library(PCMBase)
library(PCMBaseCpp)
library(data.table)
testData <- PCMBaseCpp::benchmarkData[1]
# original MGPM model
MiniBenchmarkRvsCpp(data = testData)
# original MGPM model and parallel mode
MiniBenchmarkRvsCpp(
data = testData,
listOptions = list(PCMBase.Lmr.mode = 21, PCMBase.Threshold.EV = 1e-9,
PCMBase.Threshold.SV = 1e-9))
# single-trait data, original MGPM model and single mode and enabled option
# PCMBase.Use1DClasses
MiniBenchmarkRvsCpp(
data = PCMBaseCpp::benchmarkData[1, list(
tree,
X = lapply(X, function(x) x[1,, drop=FALSE]),
model = lapply(model, function(m) PCMExtractDimensions(m, dims = 1)))],
listOptions = list(
PCMBase.Lmr.mode = 11,
PCMBase.Threshold.EV = 1e-9,
PCMBase.Threshold.SV = 1e-9,
PCMBase.Use1DClasses = FALSE))
Run the code above in your browser using DataLab