Try this:
mrp <- function(){
r <- list()
mr<-matrix(0,4,1)
for(i in 1:4){
r[[i]] <- lm(dat(,i+1)~dat(,1))
mr[i,1] <- coefficients(r[[i]]) }
mr
}
Atenciosamente,
Leandro Lins Marino
Centro de Avaliação
Fundação CESGRANRIO
Rua Santa Alexandrina, 1011 - 2º andar
Rio de Janeiro, RJ - CEP: 20261-903
R (21) 2103-9600 R.:236
(21) 8777-7907
( lean...@cesgranrio.org.br
"Aquele que suporta o peso da sociedade
é precisamente aquele que obtém
as menores vantagens". (SMITH, Adam)
Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE
Esta mensagem, incluindo seus anexos, pode conter informacoes privilegiadas
e/ou de carater confidencial, nao podendo ser retransmitida sem autorizacao do
remetente. Se voce nao e o destinatario ou pessoa autorizada a recebe-la,
informamos que o seu uso, divulgacao, copia ou arquivamento sao proibidos.
Portanto, se você recebeu esta mensagem por engano, por favor, nos informe
respondendo imediatamente a este e-mail e em seguida apague-a.
-----Mensagem original-----
De: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] Em nome
de Oscar Bayona
Enviada em: segunda-feira, 15 de junho de 2009 18:42
Para: r-help@r-project.org
Assunto: [R] Hi
Hi I have a simple question. I want to run a "n times" a simple linear
regession and save beta in a matrix but I4m not able.
Imagine:
Data.txt is a 10*5 file and want to run 4 different stimations always
regressing first column on the rest.
So I try this:
First I run Data on memory
This is my function
mrp <- function(){
mr<-matrix(0,4,1)
for(i in 1:4)
r(i)=lm(dat(,i+1)~dat(,1)
mr[i] <- coefficients(r(i)))
}
I execute mrp usin source file choose option but nothing happens....
Where I4m wrong?
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
