Displaying 1 result from an estimated 1 matches for "varsdel".
2009 Jul 30
1
stepwise variable selection method wanted
...ncol=4, nrow=0))->testm
for(i in 0:ncol(lhs)) {
if(i == 0){
daisy(lhs, metric="gower")->d.all
agnes(lingoes(d.all),method="ward")->agnes.d.all
cophenetic(agnes.d.all)->d1
cor(d1,d.all)->cc
testm<-data.frame(varID=0,cophenC=round(cc,3),varsdel=NA,round=0)
}
else {
daisy(lhs[,-i], metric="gower")->d.all
agnes(lingoes(d.all),method="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)[...