CRAN Package Check Results for Package C443

Last updated on 2020-05-29 10:47:18 CEST.

Check Details

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in 'C443-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: treesimilarities
    > ### Title: Calculating similarities between classification trees
    > ### Aliases: treesimilarities
    >
    > ### ** Examples
    >
    > require(rpart)
    Loading required package: rpart
    > require(MASS)
    Loading required package: MASS
    > #Function to draw a bootstrap sample from a dataset
    > DrawBoots <- function(dataset, i){
    + set.seed(2394 + i)
    + Boot <- dataset[sample(1:nrow(dataset), size = nrow(dataset), replace = TRUE),]
    + return(Boot)
    + }
    >
    > #Function to grow a tree using rpart on a dataset
    > GrowTree <- function(x,y,BootsSample, minsplit = 40, minbucket = 20, maxdepth =3){
    + controlrpart <- rpart.control(minsplit = minsplit, minbucket = minbucket,
    + maxdepth = maxdepth, maxsurrogate = 0, maxcompete = 0)
    + tree <- rpart(as.formula(paste(noquote(paste(y, "~")), noquote(paste(x, collapse="+")))),
    + data = BootsSample, control = controlrpart)
    + return(tree)
    + }
    >
    > #Use functions to draw 20 boostrapsamples and grow a tree on each sample
    > Boots<- lapply(1:20, function(k) DrawBoots(Pima.tr ,k))
    > Trees <- lapply(1:20, function (i) GrowTree(x=c("npreg", "glu", "bp", "skin",
    + "bmi", "ped", "age"), y="type", Boots[[i]] ))
    >
    > #Turn the lists of dataframes and rpart trees to a forest object
    > myforest<- forest(Pima.tr,Boots,Trees)
    >
    > #Calculate similarities between trees in forest, based on similarity measure m=1.
    > Simmatrix1 <- treesimilarities(forest=myforest, m=1)
    >
    > #Calculate similarities between trees in forest, based on similarity measure m=6,
    > #taking splitpoints into account.
    > Simmatrix6<- treesimilarities(forest=myforest, m=6, tol=rep(1,7))
    Error in findInterval(splitpoints[h, ], c(paths1[[2]][[i]][h] - d, paths1[[2]][[i]][h] + :
     'vec' must be sorted non-decreasingly and not contain NAs
    Calls: treesimilarities ... lapply -> FUN -> simsets -> JaccardPaths -> findInterval
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 2.0.0
Check: dependencies in R code
Result: NOTE
    Namespaces in Imports field not imported from:
     ‘qgraph’ ‘reshape2’
     All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in ‘C443-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: treesimilarities
    > ### Title: Calculating similarities between classification trees
    > ### Aliases: treesimilarities
    >
    > ### ** Examples
    >
    > require(rpart)
    Loading required package: rpart
    > require(MASS)
    Loading required package: MASS
    > #Function to draw a bootstrap sample from a dataset
    > DrawBoots <- function(dataset, i){
    + set.seed(2394 + i)
    + Boot <- dataset[sample(1:nrow(dataset), size = nrow(dataset), replace = TRUE),]
    + return(Boot)
    + }
    >
    > #Function to grow a tree using rpart on a dataset
    > GrowTree <- function(x,y,BootsSample, minsplit = 40, minbucket = 20, maxdepth =3){
    + controlrpart <- rpart.control(minsplit = minsplit, minbucket = minbucket,
    + maxdepth = maxdepth, maxsurrogate = 0, maxcompete = 0)
    + tree <- rpart(as.formula(paste(noquote(paste(y, "~")), noquote(paste(x, collapse="+")))),
    + data = BootsSample, control = controlrpart)
    + return(tree)
    + }
    >
    > #Use functions to draw 20 boostrapsamples and grow a tree on each sample
    > Boots<- lapply(1:20, function(k) DrawBoots(Pima.tr ,k))
    > Trees <- lapply(1:20, function (i) GrowTree(x=c("npreg", "glu", "bp", "skin",
    + "bmi", "ped", "age"), y="type", Boots[[i]] ))
    >
    > #Turn the lists of dataframes and rpart trees to a forest object
    > myforest<- forest(Pima.tr,Boots,Trees)
    >
    > #Calculate similarities between trees in forest, based on similarity measure m=1.
    > Simmatrix1 <- treesimilarities(forest=myforest, m=1)
    >
    > #Calculate similarities between trees in forest, based on similarity measure m=6,
    > #taking splitpoints into account.
    > Simmatrix6<- treesimilarities(forest=myforest, m=6, tol=rep(1,7))
    Error in findInterval(splitpoints[h, ], c(paths1[[2]][[i]][h] - d, paths1[[2]][[i]][h] + :
     'vec' must be sorted non-decreasingly and not contain NAs
    Calls: treesimilarities ... lapply -> FUN -> simsets -> JaccardPaths -> findInterval
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64