Displaying 1 result from an estimated 1 matches for "cvtr".
Did you mean:
ctr
2003 Sep 25
1
data lost in cv.tree?
...lt;- data.frame(matrix(c(1:(nx*ny)), nrow = ny, ncol = nx,
dimnames=list(c(),paste("x",1:nx,sep=""))))
btr <- best.tree.lost(y~., X)
print(summary(btr))
}
best.tree.lost <- function (fmla, X) {
tr <- tree(fmla, X)
print(summary(tr))
cvtr <- cv.tree(tr, envir=parent.frame())
size <- cvtr$size[order(cvtr$dev)[1]]
print(size)
btr <- prune.tree(tr, best=size)
btr
}
##################################################################
here.is.X <- function() {
nx <- 3
ny <- 4
y <- as.factor(c(1,0,1,1)...