Displaying 1 result from an estimated 1 matches for "nravgr".
Did you mean:
nrange
2000 Mar 27
1
Behavior different inside function?
...) {
dsn <- paste(fn, sesnum, ".dat", sep="", collapse=NULL)
psn <- paste(fn, sesnum, ".ps", sep="", collapse=NULL)
fm1 <- as.formula(fm)
ds <- read.table(file=dsn, header=T)
rownames(ds) <- ds$unit
nmavgres <- ds$mavgres * 1000
nravgres <- ds$ravgres * 1000
ds.mrpt <- rpart(formula=fm1, data=ds, control=rpart.control(minbucket=20))
plot(prune(ds.mrpt, cp=0.018))
text(prune(ds.mrpt, cp=0.018), digits=2)
wait()
plotcp(ds.mrpt)
wait()
post.rpart(prune(ds.mrpt, cp=0.018),
title=c(tit, paste("SES...