Displaying 1 result from an estimated 1 matches for "rowsintestm".
2009 Jul 30
1
stepwise variable selection method wanted
...="ward")->agnes.d.all
cophenetic(agnes.d.all)->d1
cor(d1,d.all)->cc
testm<-rbind(testm,data.frame(varID=i,cophenC=round(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],"cophen...