search for: wtsum

Displaying 1 result from an estimated 1 matches for "wtsum".

Did you mean: tsum
2005 Aug 26
1
Help in Compliling user -defined functions in Rpart
...for right side devlci<-abs(lci)*(1-abs(lci)) #deviance for left side devrci<-abs(rci)*(1-abs(rci)) #deviance for right side goodness<-devci-(lw/sum(wt))*devlci-(rw/sum(wt))*devrci list(goodness=goodness, direction=sign(lci)) } else { ux<-sort(unique(x)) wtsum<-tapply(wt,x,sum) ysum<-tapply(wt*y,x,sum) means<-ysum/wtsum ord<-order(means) n<-length(ord) lss<-cumsum(ysum[ord])[-n] rss<-sum(ysum)-lss lw<-cumsum(wtsum[ord])[-n] rw<-sum(wtsum)-lw lm<-lss/lw rm<-rss/rw lysum<-tapply(wt*(y-lm)...