[R] RES: Hi

Leandro Marino
Mon, 15 Jun 2009 22:16:17 -0000

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
( leandro at 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-bounces at r-project.org [mailto:r-help-bounces at r-project.org] Em
nome de Oscar Bayona
Enviada em: segunda-feira, 15 de junho de 2009 18:42
Para: r-help at 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?