Advertisement
Guest User

Untitled

a guest
Oct 28th, 2016
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. > library(DMR)
  2. > library(rpart)
  3. > library(rpart.plot)
  4. > library(lattice)
  5. > dtdat <- expand.grid(a1=seq(1, 10, 3), a2=seq(1, 10, 3))
  6. > dtdat$c <- as.factor(ifelse(dtdat$a1<=7 & dtdat$a2<=1, 1, ifelse(dtdat$a1<=7 & dtdat$a2<=7, 2, ifelse(dtdat$a1<=7, 3, ifelse(dtdat$a2<=4, 4, 5)))))
  7. > prp(rpart(c~., dtdat, minsplit=2, cp=0))
  8. Error: box.col: illegal value
  9.  
  10. library(dmr.clasval)
  11. library(dmr.stats)
  12. library(dmr.util)
  13.  
  14. Description: Ubuntu 14.04.4 LTS
  15. ii r-base-core 3.0.2-1ubuntu1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement