1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
> # test.plotmo.R
> # This does a basic sanity test of plotmo.
> # For more comprehensive tests, see plotmo/inst/slowtests.
> library(plotmo)
Loading required package: plotrix
> library(rpart)
> data(kyphosis)
> rpart.model <- rpart(Kyphosis~., data=kyphosis)
> plotmo(rpart.model, type="vec", trace=1)
stats::predict(rpart.object, data.frame[3,3], type="vec")
stats::fitted(object=rpart.object)
fitted() was unsuccessful, will use predict() instead
got model response from model.frame(Kyphosis~Age+Number+Start,
data=call$data, na.action="na.pass")
plotmo grid: Age Number Start
87 4 13
>
|
