Errors in running code in vignettes:
when running code in 'constparty.Rnw'

> options(width = 70)

> library("partykit")
Loading required package: grid
Loading required package: libcoin
Loading required package: mvtnorm

> set.seed(290875)

> data("Titanic", package = "datasets")

> ttnc <- as.data.frame(Titanic)

> ttnc <- ttnc[rep(1:nrow(ttnc), ttnc$Freq), 1:4]

> names(ttnc)[2] <- "Gender"

> 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) *

> (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

> plot(rp)

> text(rp)

> plot(party_rp)

> all.equal(predict(rp), predict(party_rp, type = "prob"), 
+     check.attributes = FALSE)
[1] TRUE

> 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 ...

> 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

> if (require("RWeka")) {
+     j48 <- J48(Survived ~ ., data = ttnc)
+ } else {
+     j48 <- rpart(Survived ~ ., data = ttnc)
+ }
Loading required package: RWeka

> print(j48)
J48 pruned tree
------------------

Gender = Male
|   Class = 1st
|   |   Age = Child: Yes (5.0)
|   |   Age = Adult: No (175.0/57.0)
|   Class = 2nd
|   |   Age = Child: Yes (11.0)
|   |   Age = Adult: No (168.0/14.0)
|   Class = 3rd: No (510.0/88.0)
|   Class = Crew: No (862.0/192.0)
Gender = Female
|   Class = 1st: Yes (145.0/4.0)
|   Class = 2nd: Yes (106.0/13.0)
|   Class = 3rd: No (196.0/90.0)
|   Class = Crew: Yes (23.0/3.0)

Number of Leaves  : 	10

Size of the tree : 	15


> (party_j48 <- as.party(j48))

Model formula:
Survived ~ Class + Gender + Age

Fitted party:
[1] root
|   [2] Gender in Male
|   |   [3] Class in 1st
|   |   |   [4] Age in Child: Yes (n = 5, err = 0.0%)
|   |   |   [5] Age in Adult: No (n = 175, err = 32.6%)
|   |   [6] Class in 2nd
|   |   |   [7] Age in Child: Yes (n = 11, err = 0.0%)
|   |   |   [8] Age in Adult: No (n = 168, err = 8.3%)
|   |   [9] Class in 3rd: No (n = 510, err = 17.3%)
|   |   [10] Class in Crew: No (n = 862, err = 22.3%)
|   [11] Gender in Female
|   |   [12] Class in 1st: Yes (n = 145, err = 2.8%)
|   |   [13] Class in 2nd: Yes (n = 106, err = 12.3%)
|   |   [14] Class in 3rd: No (n = 196, err = 45.9%)
|   |   [15] Class in Crew: Yes (n = 23, err = 13.0%)

Number of inner nodes:     5
Number of terminal nodes: 10

> plot(party_j48)

> all.equal(predict(j48, type = "prob"), predict(party_j48, 
+     type = "prob"), check.attributes = FALSE)
[1] TRUE

> 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

> plot(ttnc_quest)

> 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]]))
+ }

> ttnc_quest2 <- party(ttnc_quest$node, data = ttnc2, 
+     fitted = data.frame(`(fitted)` = predict(ttnc_quest, ttnc2, 
+         type = "node"), `( .... [TRUNCATED] 

> ttnc_quest2 <- as.constparty(ttnc_quest2)

> plot(ttnc_quest2)

> library("pmml")
Loading required package: XML

  When sourcing 'constparty.R':
Error: package or namespace load failed for 'pmml' in namespaceExport(ns, exports):
 undefined exports: %s!=%, %s!==%, %s+%, %s<%, %s<=%, %s==%, %s===%, %s>%, %s>=%, %stri!=%, %stri!==%, %stri+%, %stri<%, %stri<=%, %stri==%, %stri===%, %stri>%, %stri>=%, stri_datetime_add<-, stri_sub<-, stri_subset<-, stri_subset_charclass<-, stri_subset_coll<-, stri_subset_fixed<-, stri_subset_regex<-, stri_c, stri_c_list, stri_cmp, stri_cmp_eq, stri_cmp_equiv, stri_cmp_ge, stri_cmp_gt, stri_cmp_le, stri_cmp_lt, stri_cmp_neq, stri_cmp_nequiv, stri_compare, stri_conv, stri_count, stri_count_boundaries, stri_count_charclass, stri_count_coll, stri_count_fixed, stri_count_regex, stri_count_words, stri_datetime_add, stri_datetime_create, stri_datetime_fields, stri_datetime_format, stri_datetime_fstr, stri_datetime_now, stri_datetime_parse, stri_datetime_symbols, stri_detect, stri_detect_charclass, stri_detect_coll, stri_detect_fixed, stri_detect_regex, stri_dup, stri_duplicated, stri_duplicated_any, stri_
Execution halted