Displaying 1 result from an estimated 1 matches for "gitterpunkte".
2002 Feb 25
1
problem with step-Function
...more.
What could be the reason for that error?
Any hint is appreciated!
Andreas
RQuadrat<-list()
elimParam<-list()
frei.grade<-list()
RQuadrat<-c(rep(list(rep(NA,286)),26))
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...