Displaying 1 result from an estimated 1 matches for "var2delete".
2009 Jul 30
1
stepwise variable selection method wanted
...col(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(testm[,2]),])->varsdel
vars2del<-rbind(vars2del,varsdel[j,3])
lhs<-dta[,-which(colnames(...