[R] (no subject)
Rui Barradas
ruipbarradas at sapo.pt
Wed Jul 4 08:56:37 CEST 2012
Hello,
Or maybe to avoid the typo (Market is column 5), use variables names, in
something like
myData <- read.table(text="
Date Stock1 Stock2 Stock3 Market
01/01/2000 1 2 3 4
01/02/2000 5 6 7 8
01/03/2000 1 2 3 4
01/04/2000 5 6 7 8
", header=TRUE, stringsAsFactors=FALSE)
myData$Date <- as.Date(myData$Date, fortmat="%m/%d/%Y")
myData
# Avoid typos
stocks <- grep("Stock", names(myData))
models <- lapply(myData[, stocks], function(x) lm(x ~ myData$Market))
# Do whatever you want with results
lapply(models, summary)
Hope this helps,
Rui Barradas
Em 04-07-2012 06:29, Hasan Diwan escreveu:
> On 3 July 2012 22:03, Akhil dua <akhil.dua.12 at gmail.com> wrote:
>
>> and I need to run a seperate regression of every stock on market
>> so I want to write a "for loop" so that I wont have to write codes again
>> and again to run the regression...
>>
>
> 1. Do give a subject line -- a blank one is commonly used by a virus.
> 2. In R/S+/most functional languages, you do not want to write a "for
> loop". Use apply (and friends) instead.
>
>> my data is in the format given below
>>
>> Date Stock1 Stock2 Stock3 Market
>> 01/01/2000 1 2 3 4
>> 01/02/2000 5 6 7 8
>> 01/03/2000 1 2 3 4
>> 01/04/2000 5 6 7 8
>>
>
> For example, if you wanted to know the stocks share of the total market as
> a fraction, you'd use something like:
> sapply(myData[,c(2:4)], function(x) {
> return(as.numeric(x)/as.numeric(myData[,4])) })
>
> Hope that helps.. -- H
>
More information about the R-help
mailing list