Olá Mauro. O comando "clipboard" extrai da área de trasnferência.
 
Faça o seguinte.
 
digite o comando abaixo e deixe o cursor no final do texto, após )

x=read.table('clipboard', h=T)

 

Vá para a tabela em um arquivo de texto ou planilha e copie para a área de transferencia

 

Volte para a área de trabalho do R e digite enter

 

Pronto, o R recupera da área de transfêrência e vc cria o objeto x com a tabela que vc quiser.

 

Valeu.



--- Em qua, 27/4/11, Mauro Sznelwar <sznelwar@uol.com.br> escreveu:

De: Mauro Sznelwar <sznelwar@uol.com.br>
Assunto: Re: [R-br] R² ajustado de Modelos Não Lineares!
Para: r-br@listas.c3sl.ufpr.br
Data: Quarta-feira, 27 de Abril de 2011, 1:58

Belíssima constribuição! Estava olhando vosso exemplo e rodei. Só uma pequena dúvida: como uso este comando do clipboard, pois para rodar eu copiei e colei num outro bloco de textos e salvei de novo.
Dá uma olhada no exemplo abaixo.
 

Dias

Tambaqui

0

6.09

0

6.09

0

6.09

30

65.73

30

52.00

30

53.13

60

105.88

60

115.80

60

119.31

90

161.06

90

174.94

90

213.63

240

233.67

240

291.93

240

301.33

270

258.47

270

326.84

270

337.04

 

x=read.table('clipboard', h=T)

 

attach(x)

 

mt = nls(Tambaqui~a*(1+b*(exp(-c*Dias)))^-1 ,  start=c(a=300,b=4, c=0.01))

 

a=summary(mt)

attach(a)

 

sqet= sigma^2*df[2]

sqet # Soma de quadrados do erro

 

sqtt = var(Tambaqui)*(length(Tambaqui)-1)

R2t = 1- sqet/sqtt

R2t #coeficiente de determinação

 

R2tajustado=1-( ((length(Tambaqui)-1)/ (length(Tambaqui)-3))*(1-R2t))

 

R2tajustado #coeficiente de determinação ajustado

 

 


-----Anexo incorporado-----

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br