我正在编写以下脚本：

#options(java.parameters = "-Xmx50000m")
library(bartMachine)
library(tidyverse)

data <- data.frame(x=rnorm(100, 5, 2), 
                   z=rnorm(100, 1, 0.5), 
                   y=as.factor(rep(c("a", "b"), 100)))

model <-  bartMachine(X= data[,c("x", "z")],
                           y= data$y, seed = 999,
                           serialize = T)

test <- data.frame(x=rnorm(1000, 5, 2.5), 
                   z=rnorm(1000, 1, 0.7))

pred <- predict(model, test)

在我的真实的世界示例中，当调用predict时，我得到以下消息：
validObject（.Object）中出错：无效类“jobjRef”对象：类“jobjRef”中插槽“jobj”对象无效：得到类“NULL”，应该是或扩展类“externalptr”
以前有人见过这个错误吗？我在网上找不到太多。很抱歉无法复制此问题。
@Sean posted关于类似的错误消息。