Displaying 2 results from an estimated 2 matches for "annjmsltv".
2002 Feb 15
2
difficult R-problem
...Elements like
c(0.324, 0.456, 0.657 ...)
Below is a short version of how I have tried to solve it but I don't
know how to insert numbers at the i-th place. The problem seems to be
the "assign" line. Thanks a lot for all hints.
for(j in 1:10) {
for(i in 1:30) {
fit<-lm(annJMSLTv.box~.,data=data.frame(annJMSLTv.box=annJMSLTv.box[,i],allTreerings[,1:15])
backfit<-step(fit,trace=F,steps=1)
assign(eval(parse(text=paste("RQuadratStep",j,sep=""))),round(summary(fit)$r.squared, dig=3))
}
}
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-...
2002 Feb 25
1
problem with step-Function
...as
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.residual
for(j in 2:26)
{
backfit<-step(fit,scale=2,tr...