Displaying 1 result from an estimated 1 matches for "vars2del".
Did you mean:
varmodel
2009 Jul 30
1
stepwise variable selection method wanted
...cc,3),varsdel=colnames(dta)[i],round=j))
#print(paste("var", i, "out of",ncol(lhs),"nrows", nrow(lhs),"rowsInTestm:",nrow(testm)))
}
}
if(j == 1) {
testm[testm[,2] == min(testm[,2]),][1,]->varsdel #use only the first if there are several
vars2del<-varsdel[j,3]
lhs<-dta[,-which(colnames(dta) %in% vars2del)]
print(paste("var2delete",varsdel[j,1],varsdel[j,3],"cophenC=",varsdel[j,2],"rowsInTestm:",nrow(testm)))
} # put exclusion variable into record
else {
rbind(varsdel,testm[testm[,2] == min(t...