> # test.type5.R
> 
> source("test.prolog.R")
Loading required package: rpart
> 
> anova.model <- rpart(Mileage~., data=cu.summary)
> data(iris)
> multi.class.model <- rpart(Species~., data=iris, cp=.001, minsplit=10)
> data(ptitanic)
> ptit <- ptitanic
> binary.model <- rpart(survived~., data=ptit, cp=.02)
> 
> par(mfrow=c(2,3), mar=c(0, 0, 6, 0))
> 
> rpart.plot(anova.model, type=5, main="*** rpart.plot type=5 ***\nanova.model\nmileage")
> 
> rpart.plot(multi.class.model, type=5, main="multi.class.model\nspecies")
> 
> rpart.plot(binary.model, type=5, main="binary model\nptitanic")
> 
> rpart.plot(anova.model, type=5, under=TRUE, varlen=-2, faclen=4,
+            box.palette="BnBu",
+            main='varlen=3, faclen=3\nbox.palette="BnBu"')
> 
> expect.err(try(rpart.plot(anova.model, type=-1)), "type must be 0...5, you have type=-1")
Error : type must be 0...5, you have type=-1
Got expected error from try(rpart.plot(anova.model, type = -1))
> expect.err(try(rpart.plot(anova.model, type=6)), "type must be 0...5, you have type=6")
Error : type must be 0...5, you have type=6
Got expected error from try(rpart.plot(anova.model, type = 6))
> expect.err(try(rpart.plot(anova.model, type="x")), "'type' is a string but it should be an integer")
Error : 'type' is a string but it should be an integer
Got expected error from try(rpart.plot(anova.model, type = "x"))
> expect.err(try(rpart.plot(anova.model, type=1.23)), "type=1.23 but it should be an integer")
Error : type=1.23 but it should be an integer
Got expected error from try(rpart.plot(anova.model, type = 1.23))
> 
> par(old.par)
> 
> par(mfrow=c(2,3), mar=c(0, 0, 6, 0))
> 
> prp(anova.model, type=5, main="*** prp type=5 ***\nanova.model\nmileage")
> 
> prp(multi.class.model, type=5, main="multi.class.model\nspecies")
> 
> prp(binary.model, type=5, main="binary model\nptitanic")
> 
> prp(multi.class.model, type=5, varlen=-5, fallen.leaves=TRUE,
+     clip.left.labs=FALSE, clip.right.labs=FALSE,
+     box.palette=list("Blues", "Greens", "Reds"),
+     main='varlen=-5 fallen.leaves\nbox.palette=list\nclip.left.labs=clip.right.labs=FALSE')
> 
> prp(multi.class.model, main="assorted arguments",
+     type=5,
+     extra=104,
+     under=TRUE,
+     nn=TRUE,
+     clip.left.labs=FALSE,
+     clip.right.labs=FALSE,
+     faclen=-4,
+     varlen=-5,
+     branch.lty=3,
+     branch=.5,
+     split.prefix="is ",
+     split.suffix="?",
+     box.palette=list("Blues", "Greens", "Grays"),
+     split.box.col="lightgray",
+     split.border.col="darkgray",
+     split.round=.5)
> 
> prp(anova.model, type=5, under=TRUE, varlen=-2, faclen=4,
+            box.palette="RdYlGn",
+            main='varlen=-2, faclen=4\nbox.palette="RdYlGn"')
> 
> expect.err(try(prp(anova.model, type=-1)), "type must be 0...5, you have type=-1")
Error : type must be 0...5, you have type=-1
Got expected error from try(prp(anova.model, type = -1))
> expect.err(try(prp(anova.model, type=6)), "type must be 0...5, you have type=6")
Error : type must be 0...5, you have type=6
Got expected error from try(prp(anova.model, type = 6))
> expect.err(try(prp(anova.model, type="x")), "'type' is a string but it should be an integer")
Error : 'type' is a string but it should be an integer
Got expected error from try(prp(anova.model, type = "x"))
> expect.err(try(prp(anova.model, type=1.23)), "type=1.23 but it should be an integer")
Error : type=1.23 but it should be an integer
Got expected error from try(prp(anova.model, type = 1.23))
> 
> par(old.par)
> 
> source("test.epilog.R")
