rm(list = ls())
GoogData <- read.table("d:\\Google.csv",header = T,sep=",")
attach(GoogData)
names(GoogData)
Train <- head(GoogData,77)
rGoogex <- GoogData$rGoog_ex
Test <- tail(GoogData,24)
Onefactor <- lm(rGoogex ~ rM_ex, Train)

出现如下问题

Error in model.frame.default(formula = rGoogex ~ rM_ex, data = Train,  :
  variable lengths differ (found for 'rM_ex')