Last updated on 2024-06-14 00:53:52 CEST.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 1.2-20 | 19.50 | 364.75 | 384.25 | OK | |
r-devel-linux-x86_64-debian-gcc | 1.2-20 | 13.73 | 223.02 | 236.75 | ERROR | |
r-devel-linux-x86_64-fedora-clang | 1.2-20 | 467.88 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 1.2-20 | 455.46 | OK | |||
r-devel-windows-x86_64 | 1.2-20 | 16.00 | 360.00 | 376.00 | OK | |
r-patched-linux-x86_64 | 1.2-20 | 19.98 | 352.02 | 372.00 | OK | |
r-release-linux-x86_64 | 1.2-20 | 17.52 | 345.48 | 363.00 | OK | |
r-release-macos-arm64 | 1.2-20 | 140.00 | OK | |||
r-release-macos-x86_64 | 1.2-20 | 317.00 | OK | |||
r-release-windows-x86_64 | 1.2-20 | 18.00 | 370.00 | 388.00 | OK | |
r-oldrel-macos-arm64 | 1.2-20 | 168.00 | OK | |||
r-oldrel-macos-x86_64 | 1.2-20 | 363.00 | OK | |||
r-oldrel-windows-x86_64 | 1.2-20 | 23.00 | 396.00 | 419.00 | OK |
Version: 1.2-20
Check: package dependencies
Result: NOTE
Packages suggested but not available for checking: 'pmml', 'AER'
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.2-20
Check: tests
Result: ERROR
Running ‘bugfixes.R’ [5s/8s]
Comparing ‘bugfixes.Rout’ to ‘bugfixes.Rout.save’ ... OK
Running ‘constparty.R’ [3s/4s]
Running ‘regtest-MIA.R’ [2s/3s]
Comparing ‘regtest-MIA.Rout’ to ‘regtest-MIA.Rout.save’ ... OK
Running ‘regtest-cforest.R’ [12s/19s]
Comparing ‘regtest-cforest.Rout’ to ‘regtest-cforest.Rout.save’ ... OK
Running ‘regtest-ctree.R’ [2s/3s]
Comparing ‘regtest-ctree.Rout’ to ‘regtest-ctree.Rout.save’ ... OK
Running ‘regtest-glmtree.R’ [34s/54s]
Comparing ‘regtest-glmtree.Rout’ to ‘regtest-glmtree.Rout.save’ ... OK
Running ‘regtest-honesty.R’ [2s/3s]
Running ‘regtest-lmtree.R’ [3s/5s]
Running ‘regtest-nmax.R’ [2s/3s]
Comparing ‘regtest-nmax.Rout’ to ‘regtest-nmax.Rout.save’ ... OK
Running ‘regtest-node.R’ [2s/2s]
Comparing ‘regtest-node.Rout’ to ‘regtest-node.Rout.save’ ... OK
Running ‘regtest-party-random.R’ [3s/4s]
Running ‘regtest-party.R’ [4s/7s]
Comparing ‘regtest-party.Rout’ to ‘regtest-party.Rout.save’ ...1696,1704c1696,1704
< 1 0.05014605 0.04927463 0.05077326 0.05648251 0.06781552 0.08543723 0.1090358
< 2 0.05014605 0.04927463 0.05077326 0.05648251 0.06781552 0.08543723 0.1090358
< 3 0.05014605 0.04927463 0.05077326 0.05648251 0.06781552 0.08543723 0.1090358
< 4 0.05014605 0.04927463 0.05077326 0.05648251 0.06781552 0.08543723 0.1090358
< 5 0.05014605 0.04927463 0.05077326 0.05648251 0.06781552 0.08543723 0.1090358
< 6 0.53931587 0.57642008 0.59646131 0.59404629 0.56391732 0.50569550 0.4285727
< 7 0.53931587 0.57642008 0.59646131 0.59404629 0.56391732 0.50569550 0.4285727
< 8 0.53931587 0.57642008 0.59646131 0.59404629 0.56391732 0.50569550 0.4285727
< 9 0.37052295 0.34224786 0.31061019 0.27784819 0.24583962 0.21599023 0.1891591
---
> 1 0.05020125 0.04935438 0.05087955 0.05661364 0.06796655 0.08560162 0.1092080
> 2 0.05020125 0.04935438 0.05087955 0.05661364 0.06796655 0.08560162 0.1092080
> 3 0.05020125 0.04935438 0.05087955 0.05661364 0.06796655 0.08560162 0.1092080
> 4 0.05020125 0.04935438 0.05087955 0.05661364 0.06796655 0.08560162 0.1092080
> 5 0.05020125 0.04935438 0.05087955 0.05661364 0.06796655 0.08560162 0.1092080
> 6 0.53975912 0.57687027 0.59689413 0.59443918 0.56427527 0.50605792 0.4289844
> 7 0.53975912 0.57687027 0.59689413 0.59443918 0.56427527 0.50605792 0.4289844
> 8 0.53975912 0.57687027 0.59689413 0.59443918 0.56427527 0.50605792 0.4289844
> 9 0.37075877 0.34250760 0.31088903 0.27813780 0.24612980 0.21627046 0.1894201
1706,1714c1706,1714
< 1 0.1375178 0.1692056
< 2 0.1375178 0.1692056
< 3 0.1375178 0.1692056
< 4 0.1375178 0.1692056
< 5 0.1375178 0.1692056
< 6 0.3504241 0.2903920
< 7 0.3504241 0.2903920
< 8 0.3504241 0.2903920
< 9 0.1656585 0.1453499
---
> 1 0.1376954 0.1693900
> 2 0.1376954 0.1693900
> 3 0.1376954 0.1693900
> 4 0.1376954 0.1693900
> 5 0.1376954 0.1693900
> 6 0.3508934 0.2908752
> 7 0.3508934 0.2908752
> 8 0.3508934 0.2908752
> 9 0.1658930 0.1455540
Running ‘regtest-split.R’ [2s/3s]
Comparing ‘regtest-split.Rout’ to ‘regtest-split.Rout.save’ ... OK
Running ‘regtest-weights.R’ [2s/4s]
Comparing ‘regtest-weights.Rout’ to ‘regtest-weights.Rout.save’ ... OK
Running the tests in ‘tests/constparty.R’ failed.
Complete output:
> ### R code from vignette source 'constparty.Rnw'
>
> ### test here after removal of RWeka dependent code
>
> ###################################################
> ### code chunk number 1: setup
> ###################################################
> options(width = 70)
> library("partykit")
Loading required package: grid
Loading required package: libcoin
Loading required package: mvtnorm
> set.seed(290875)
>
>
> ###################################################
> ### code chunk number 2: Titanic
> ###################################################
> data("Titanic", package = "datasets")
> ttnc <- as.data.frame(Titanic)
> ttnc <- ttnc[rep(1:nrow(ttnc), ttnc$Freq), 1:4]
> names(ttnc)[2] <- "Gender"
>
>
> ###################################################
> ### code chunk number 3: rpart
> ###################################################
> library("rpart")
> (rp <- rpart(Survived ~ ., data = ttnc, model = TRUE))
n= 2201
node), split, n, loss, yval, (yprob)
* denotes terminal node
1) root 2201 711 No (0.6769650 0.3230350)
2) Gender=Male 1731 367 No (0.7879838 0.2120162)
4) Age=Adult 1667 338 No (0.7972406 0.2027594) *
5) Age=Child 64 29 No (0.5468750 0.4531250)
10) Class=3rd 48 13 No (0.7291667 0.2708333) *
11) Class=1st,2nd 16 0 Yes (0.0000000 1.0000000) *
3) Gender=Female 470 126 Yes (0.2680851 0.7319149)
6) Class=3rd 196 90 No (0.5408163 0.4591837) *
7) Class=1st,2nd,Crew 274 20 Yes (0.0729927 0.9270073) *
>
>
> ###################################################
> ### code chunk number 4: rpart-party
> ###################################################
> (party_rp <- as.party(rp))
Model formula:
Survived ~ Class + Gender + Age
Fitted party:
[1] root
| [2] Gender in Male
| | [3] Age in Adult: No (n = 1667, err = 20.3%)
| | [4] Age in Child
| | | [5] Class in 3rd: No (n = 48, err = 27.1%)
| | | [6] Class in 1st, 2nd: Yes (n = 16, err = 0.0%)
| [7] Gender in Female
| | [8] Class in 3rd: No (n = 196, err = 45.9%)
| | [9] Class in 1st, 2nd, Crew: Yes (n = 274, err = 7.3%)
Number of inner nodes: 4
Number of terminal nodes: 5
>
>
> ###################################################
> ### code chunk number 5: rpart-plot-orig
> ###################################################
> plot(rp)
> text(rp)
>
>
> ###################################################
> ### code chunk number 6: rpart-plot
> ###################################################
> plot(party_rp)
>
>
> ###################################################
> ### code chunk number 7: rpart-pred
> ###################################################
> all.equal(predict(rp), predict(party_rp, type = "prob"),
+ check.attributes = FALSE)
[1] TRUE
>
>
> ###################################################
> ### code chunk number 8: rpart-fitted
> ###################################################
> str(fitted(party_rp))
'data.frame': 2201 obs. of 2 variables:
$ (fitted) : int 5 5 5 5 5 5 5 5 5 5 ...
$ (response): Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
>
>
> ###################################################
> ### code chunk number 9: rpart-prob
> ###################################################
> prop.table(do.call("table", fitted(party_rp)), 1)
(response)
(fitted) No Yes
3 0.7972406 0.2027594
5 0.7291667 0.2708333
6 0.0000000 1.0000000
8 0.5408163 0.4591837
9 0.0729927 0.9270073
>
>
> ###################################################
> ### code chunk number 10: J48
> ###################################################
> #if (require("RWeka")) {
> # j48 <- J48(Survived ~ ., data = ttnc)
> #} else {
> # j48 <- rpart(Survived ~ ., data = ttnc)
> #}
> #print(j48)
> #
> #
> ####################################################
> #### code chunk number 11: J48-party
> ####################################################
> #(party_j48 <- as.party(j48))
> #
> #
> ####################################################
> #### code chunk number 12: J48-plot
> ####################################################
> #plot(party_j48)
> #
> #
> ####################################################
> #### code chunk number 13: J48-pred
> ####################################################
> #all.equal(predict(j48, type = "prob"), predict(party_j48, type = "prob"),
> # check.attributes = FALSE)
>
>
> ###################################################
> ### code chunk number 14: PMML-Titantic
> ###################################################
> ttnc_pmml <- file.path(system.file("pmml", package = "partykit"),
+ "ttnc.pmml")
> (ttnc_quest <- pmmlTreeModel(ttnc_pmml))
Loading required namespace: XML
Model formula:
Survived ~ Gender + Class + Age
Fitted party:
[1] root
| [2] Gender in Female
| | [3] Class in 3rd, Crew: Yes (n = 219, err = 49.8%)
| | [4] Class in 1st, 2nd
| | | [5] Class in 2nd: Yes (n = 106, err = 12.3%)
| | | [6] Class in 1st: Yes (n = 145, err = 2.8%)
| [7] Gender in Male
| | [8] Class in 3rd, 2nd, Crew
| | | [9] Age in Child: No (n = 59, err = 40.7%)
| | | [10] Age in Adult
| | | | [11] Class in 3rd, Crew
| | | | | [12] Class in Crew: No (n = 862, err = 22.3%)
| | | | | [13] Class in 3rd: No (n = 462, err = 16.2%)
| | | | [14] Class in 2nd: No (n = 168, err = 8.3%)
| | [15] Class in 1st: No (n = 180, err = 34.4%)
Number of inner nodes: 7
Number of terminal nodes: 8
>
>
> ###################################################
> ### code chunk number 15: PMML-Titanic-plot1
> ###################################################
> plot(ttnc_quest)
>
>
> ###################################################
> ### code chunk number 16: ttnc2-reorder
> ###################################################
> ttnc2 <- ttnc[, names(ttnc_quest$data)]
> for(n in names(ttnc2)) {
+ if(is.factor(ttnc2[[n]])) ttnc2[[n]] <- factor(
+ ttnc2[[n]], levels = levels(ttnc_quest$data[[n]]))
+ }
>
>
> ###################################################
> ### code chunk number 17: PMML-Titanic-augmentation
> ###################################################
> ttnc_quest2 <- party(ttnc_quest$node,
+ data = ttnc2,
+ fitted = data.frame(
+ "(fitted)" = predict(ttnc_quest, ttnc2, type = "node"),
+ "(response)" = ttnc2$Survived,
+ check.names = FALSE),
+ terms = terms(Survived ~ ., data = ttnc2)
+ )
> ttnc_quest2 <- as.constparty(ttnc_quest2)
>
>
> ###################################################
> ### code chunk number 18: PMML-Titanic-plot2
> ###################################################
> plot(ttnc_quest2)
>
>
> ###################################################
> ### code chunk number 19: PMML-write
> ###################################################
> library("pmml")
Error in library("pmml") : there is no package called 'pmml'
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.2-20
Check: re-building of vignette outputs
Result: NOTE
Note: skipping ‘constparty.Rnw’ due to unavailable dependencies: 'pmml'
Note: skipping ‘mob.Rnw’ due to unavailable dependencies: 'AER'
Flavor: r-devel-linux-x86_64-debian-gcc