for(i in 1:ncol(stockreturn))
{
resultlm=lm(stockreturn[,i]~marketreturn,weights = Betaweight)
stockresid[i,]=resultlm$residuals#返回残差序列
}
求每一列数据和指定数据的回归残差序列,保存在数组stockresid中,但出现如下错误
Error in stockresid[i, ] = resultlm$residuals : number of items to replace is not a multiple of replacement length