Displaying 1 result from an estimated 1 matches for "docuproxi".
Did you mean:
docuproxies
2002 Feb 25
1
problem with step-Function
...6))
elimParam<-c(rep(list(rep(NA,286)),26))
frei.grade<-c(rep(list(rep(NA,286)),26))
cat('\nVerarbeitete Gitterpunkte (von 286):\n')
for(i in 1:286)
{
j<-1
if(any(is.na(annJMSLTv.box[,i])==F))
{
fit<-lm(annJMSLTv.box~.,data=data.frame(annJMSLTv.box=annJMSLTv.box[,i],docuProxies),
na.action=na.omit)
RQuadrat[[j]][i]<-round(summary(fit)$r.squared, dig=3)
frei.grade[[j]][i]<-fit$df.residual
for(j in 2:26)
{
backfit<-step(fit,scale=2,trace=F,steps=1)
fit<-eval(backfit$call)
RQuadrat[[j]][i]<-round(summary(fit)$r.squared,3)...