CRAN Package Check Results for Package freestats

Last updated on 2020-02-19 10:48:53 CET.

Check Details

Version: 0.0.3
Check: R code for possible problems
Result: NOTE
    cv.work: no visible global function definition for 'predict'
    fakedata: no visible global function definition for 'runif'
    Undefined global functions or variables:
     predict runif
    Consider adding
     importFrom("stats", "predict", "runif")
    to your NAMESPACE file.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64

Version: 0.0.3
Check: examples
Result: ERROR
    Running examples in 'freestats-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: adaBoost
    > ### Title: Adaboost algorithm
    > ### Aliases: adaBoost
    >
    > ### ** Examples
    >
    > set.seed(1024)
    > z <- runif(n=5)
    > mydata <- fakedata(w=z,n=100)
    > X<- mydata$S[,1:4]
    > y <- mydata$y
    > res <- adaBoost(dat.train=X,y.train=y,B=3)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    freestats
     --- call from context ---
    train(dat.train, w, y.train, ...)
     --- call from argument ---
    if (class(w) != "matrix") {
     w <- as.matrix(w)
    }
     --- R stacktrace ---
    where 1: train(dat.train, w, y.train, ...)
    where 2: adaBoost(dat.train = X, y.train = y, B = 3)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (X, w, y)
    {
     if (class(w) != "matrix") {
     w <- as.matrix(w)
     }
     theta <- vector()
     best.cost <- vector()
     Compare <- 10
     for (d in 1:dim(X)[2]) {
     if (!is.factor(X[, d])) {
     for (n in 1:dim(X)[1]) {
     yhat <- 2 * (X[, d] > X[n, d]) - 1
     cost.temp <- t(w) %*% (y != yhat)/sum(w)
     if (cost.temp < Compare) {
     Compare <- cost.temp
     best.theta <- X[n, d]
     best.j <- d
     best.n <- n
     }
     }
     }
     else stop("only for numeric input now!")
     }
     res <- list(j = best.j, theta = best.theta, m = 1)
     class(res) <- "ds"
     return(res)
    }
    <bytecode: 0x3af71a8>
    <environment: namespace:freestats>
     --- function search by body ---
    Function decisionStump in namespace freestats has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(w) != "matrix") { : the condition has length > 1
    Calls: adaBoost -> train
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.0.3
Check: examples
Result: ERROR
    Running examples in ‘freestats-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: adaBoost
    > ### Title: Adaboost algorithm
    > ### Aliases: adaBoost
    >
    > ### ** Examples
    >
    > set.seed(1024)
    > z <- runif(n=5)
    > mydata <- fakedata(w=z,n=100)
    > X<- mydata$S[,1:4]
    > y <- mydata$y
    > res <- adaBoost(dat.train=X,y.train=y,B=3)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    freestats
     --- call from context ---
    train(dat.train, w, y.train, ...)
     --- call from argument ---
    if (class(w) != "matrix") {
     w <- as.matrix(w)
    }
     --- R stacktrace ---
    where 1: train(dat.train, w, y.train, ...)
    where 2: adaBoost(dat.train = X, y.train = y, B = 3)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (X, w, y)
    {
     if (class(w) != "matrix") {
     w <- as.matrix(w)
     }
     theta <- vector()
     best.cost <- vector()
     Compare <- 10
     for (d in 1:dim(X)[2]) {
     if (!is.factor(X[, d])) {
     for (n in 1:dim(X)[1]) {
     yhat <- 2 * (X[, d] > X[n, d]) - 1
     cost.temp <- t(w) %*% (y != yhat)/sum(w)
     if (cost.temp < Compare) {
     Compare <- cost.temp
     best.theta <- X[n, d]
     best.j <- d
     best.n <- n
     }
     }
     }
     else stop("only for numeric input now!")
     }
     res <- list(j = best.j, theta = best.theta, m = 1)
     class(res) <- "ds"
     return(res)
    }
    <bytecode: 0x563f8f68f528>
    <environment: namespace:freestats>
     --- function search by body ---
    Function decisionStump in namespace freestats has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(w) != "matrix") { : the condition has length > 1
    Calls: adaBoost -> train
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.0.3
Check: examples
Result: ERROR
    Running examples in ‘freestats-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: adaBoost
    > ### Title: Adaboost algorithm
    > ### Aliases: adaBoost
    >
    > ### ** Examples
    >
    > set.seed(1024)
    > z <- runif(n=5)
    > mydata <- fakedata(w=z,n=100)
    > X<- mydata$S[,1:4]
    > y <- mydata$y
    > res <- adaBoost(dat.train=X,y.train=y,B=3)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    freestats
     --- call from context ---
    train(dat.train, w, y.train, ...)
     --- call from argument ---
    if (class(w) != "matrix") {
     w <- as.matrix(w)
    }
     --- R stacktrace ---
    where 1: train(dat.train, w, y.train, ...)
    where 2: adaBoost(dat.train = X, y.train = y, B = 3)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (X, w, y)
    {
     if (class(w) != "matrix") {
     w <- as.matrix(w)
     }
     theta <- vector()
     best.cost <- vector()
     Compare <- 10
     for (d in 1:dim(X)[2]) {
     if (!is.factor(X[, d])) {
     for (n in 1:dim(X)[1]) {
     yhat <- 2 * (X[, d] > X[n, d]) - 1
     cost.temp <- t(w) %*% (y != yhat)/sum(w)
     if (cost.temp < Compare) {
     Compare <- cost.temp
     best.theta <- X[n, d]
     best.j <- d
     best.n <- n
     }
     }
     }
     else stop("only for numeric input now!")
     }
     res <- list(j = best.j, theta = best.theta, m = 1)
     class(res) <- "ds"
     return(res)
    }
    <bytecode: 0x33a2c48>
    <environment: namespace:freestats>
     --- function search by body ---
    Function decisionStump in namespace freestats has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(w) != "matrix") { : the condition has length > 1
    Calls: adaBoost -> train
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.0.3
Check: examples
Result: ERROR
    Running examples in ‘freestats-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: adaBoost
    > ### Title: Adaboost algorithm
    > ### Aliases: adaBoost
    >
    > ### ** Examples
    >
    > set.seed(1024)
    > z <- runif(n=5)
    > mydata <- fakedata(w=z,n=100)
    > X<- mydata$S[,1:4]
    > y <- mydata$y
    > res <- adaBoost(dat.train=X,y.train=y,B=3)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    freestats
     --- call from context ---
    train(dat.train, w, y.train, ...)
     --- call from argument ---
    if (class(w) != "matrix") {
     w <- as.matrix(w)
    }
     --- R stacktrace ---
    where 1: train(dat.train, w, y.train, ...)
    where 2: adaBoost(dat.train = X, y.train = y, B = 3)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (X, w, y)
    {
     if (class(w) != "matrix") {
     w <- as.matrix(w)
     }
     theta <- vector()
     best.cost <- vector()
     Compare <- 10
     for (d in 1:dim(X)[2]) {
     if (!is.factor(X[, d])) {
     for (n in 1:dim(X)[1]) {
     yhat <- 2 * (X[, d] > X[n, d]) - 1
     cost.temp <- t(w) %*% (y != yhat)/sum(w)
     if (cost.temp < Compare) {
     Compare <- cost.temp
     best.theta <- X[n, d]
     best.j <- d
     best.n <- n
     }
     }
     }
     else stop("only for numeric input now!")
     }
     res <- list(j = best.j, theta = best.theta, m = 1)
     class(res) <- "ds"
     return(res)
    }
    <bytecode: 0x2cfe3c0>
    <environment: namespace:freestats>
     --- function search by body ---
    Function decisionStump in namespace freestats has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(w) != "matrix") { : the condition has length > 1
    Calls: adaBoost -> train
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc