Displaying 1 result from an estimated 1 matches for "rightn".
Did you mean:
rights
2004 Nov 18
0
implementing a "loop" using by(x,x$factor,FUN)
...), seq(0,max(vgrmL$u), l=10)))
mlR<- likfit(as.geodata(LRGdata$"FALSE"),
ini=expand.grid(seq(0, max(vgrmR$v), l=10), seq(0,max(vgrmR$u), l=10)))
LeftDev <- summary(mlL)[[8]]$log.L
RightDev <- summary(mlR)[[8]]$log.L
LeftN <- dim(LRGdata$"TRUE")[1]
RightN <- dim(LRGdata$"FALSE")[1]
splits <- rbind(splits, c(paste("<=",cutpoint),paste(">",cutpoint),
LeftN, RightN, RootDev, LeftDev, RightDev,
-2*(RootDev-(LeftDev+RightDev))))
}
- Mohamed