CRAN Package Check Results for Package LTR

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

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.0.0 1.71 18.07 19.78 ERROR
r-devel-linux-x86_64-debian-gcc 1.0.0 1.50 14.27 15.77 ERROR
r-devel-linux-x86_64-fedora-clang 1.0.0 24.70 ERROR
r-devel-linux-x86_64-fedora-gcc 1.0.0 24.11 ERROR
r-devel-windows-ix86+x86_64 1.0.0 5.00 30.00 35.00 NOTE
r-devel-windows-ix86+x86_64-gcc8 1.0.0 6.00 40.00 46.00 NOTE
r-patched-linux-x86_64 1.0.0 1.21 16.52 17.73 NOTE
r-patched-solaris-x86 1.0.0 34.70 NOTE
r-release-linux-x86_64 1.0.0 1.30 16.48 17.78 NOTE
r-release-windows-ix86+x86_64 1.0.0 4.00 45.00 49.00 NOTE
r-release-osx-x86_64 1.0.0 NOTE
r-oldrel-windows-ix86+x86_64 1.0.0 2.00 27.00 29.00 NOTE
r-oldrel-osx-x86_64 1.0.0 NOTE

Check Details

Version: 1.0.0
Check: DESCRIPTION meta-information
Result: NOTE
    Malformed Description field: should contain one or more complete sentences.
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: 1.0.0
Check: R code for possible problems
Result: NOTE
    fit.LTR: no visible global function definition for 'lm'
    Undefined global functions or variables:
     lm
    Consider adding
     importFrom("stats", "lm")
    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: 1.0.0
Check: examples
Result: ERROR
    Running examples in 'LTR-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: apply.LTR
    > ### Title: Apply a fitted LTR model to a new dataset
    > ### Aliases: apply.LTR
    > ### Keywords: models
    >
    > ### ** Examples
    >
    > x <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > y <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > model.fit <- fit.LTR(x, y);
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    LTR
     --- call from context ---
    fit.LTR(x, y)
     --- call from argument ---
    if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
    }
     --- R stacktrace ---
    where 1: fit.LTR(x, y)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (dataset1, dataset2)
    {
     dataset1 <- as.matrix(dataset1)
     dataset2 <- as.matrix(dataset2)
     if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
     }
     if (class(dataset2) != "matrix") {
     stop("dataset2 is not a matrix")
     }
     if (ncol(dataset1) != ncol(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of columns")
     }
     if (nrow(dataset1) != nrow(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of rows")
     }
     if (!all(rownames(dataset1) == rownames(dataset2))) {
     warning("non-matching rownames for dataset1 and dataset2")
     }
     to.return <- list(rownames = rownames(dataset1), intercepts = vector(mode = "numeric",
     length = nrow(dataset1)), slopes = vector(mode = "numeric",
     length = nrow(dataset1)), r.squared = vector(mode = "numeric",
     length = nrow(dataset1)), residuals = matrix(nrow = nrow(dataset1),
     ncol = ncol(dataset1)))
     for (i in 1:nrow(dataset1)) {
     fit <- lm(formula = dataset2 ~ dataset1, data = data.frame(dataset2 = dataset2[i,
     ], dataset1 = dataset1[i, ]))
     to.return$intercepts[i] <- as.numeric(fit$coefficients[1])
     to.return$slopes[i] <- as.numeric(fit$coefficients[2])
     to.return$r.squared[i] <- summary(fit)$r.squared
     to.return$residuals[i, ] <- as.numeric(fit$residuals)
     }
     return(to.return)
    }
    <bytecode: 0x2acb160>
    <environment: namespace:LTR>
     --- function search by body ---
    Function fit.LTR in namespace LTR has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(dataset1) != "matrix") { :
     the condition has length > 1
    Calls: fit.LTR
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.0.0
Check: examples
Result: ERROR
    Running examples in ‘LTR-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: apply.LTR
    > ### Title: Apply a fitted LTR model to a new dataset
    > ### Aliases: apply.LTR
    > ### Keywords: models
    >
    > ### ** Examples
    >
    > x <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > y <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > model.fit <- fit.LTR(x, y);
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    LTR
     --- call from context ---
    fit.LTR(x, y)
     --- call from argument ---
    if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
    }
     --- R stacktrace ---
    where 1: fit.LTR(x, y)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (dataset1, dataset2)
    {
     dataset1 <- as.matrix(dataset1)
     dataset2 <- as.matrix(dataset2)
     if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
     }
     if (class(dataset2) != "matrix") {
     stop("dataset2 is not a matrix")
     }
     if (ncol(dataset1) != ncol(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of columns")
     }
     if (nrow(dataset1) != nrow(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of rows")
     }
     if (!all(rownames(dataset1) == rownames(dataset2))) {
     warning("non-matching rownames for dataset1 and dataset2")
     }
     to.return <- list(rownames = rownames(dataset1), intercepts = vector(mode = "numeric",
     length = nrow(dataset1)), slopes = vector(mode = "numeric",
     length = nrow(dataset1)), r.squared = vector(mode = "numeric",
     length = nrow(dataset1)), residuals = matrix(nrow = nrow(dataset1),
     ncol = ncol(dataset1)))
     for (i in 1:nrow(dataset1)) {
     fit <- lm(formula = dataset2 ~ dataset1, data = data.frame(dataset2 = dataset2[i,
     ], dataset1 = dataset1[i, ]))
     to.return$intercepts[i] <- as.numeric(fit$coefficients[1])
     to.return$slopes[i] <- as.numeric(fit$coefficients[2])
     to.return$r.squared[i] <- summary(fit)$r.squared
     to.return$residuals[i, ] <- as.numeric(fit$residuals)
     }
     return(to.return)
    }
    <bytecode: 0x55d544f5eb20>
    <environment: namespace:LTR>
     --- function search by body ---
    Function fit.LTR in namespace LTR has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(dataset1) != "matrix") { :
     the condition has length > 1
    Calls: fit.LTR
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.0.0
Check: examples
Result: ERROR
    Running examples in ‘LTR-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: apply.LTR
    > ### Title: Apply a fitted LTR model to a new dataset
    > ### Aliases: apply.LTR
    > ### Keywords: models
    >
    > ### ** Examples
    >
    > x <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > y <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > model.fit <- fit.LTR(x, y);
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    LTR
     --- call from context ---
    fit.LTR(x, y)
     --- call from argument ---
    if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
    }
     --- R stacktrace ---
    where 1: fit.LTR(x, y)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (dataset1, dataset2)
    {
     dataset1 <- as.matrix(dataset1)
     dataset2 <- as.matrix(dataset2)
     if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
     }
     if (class(dataset2) != "matrix") {
     stop("dataset2 is not a matrix")
     }
     if (ncol(dataset1) != ncol(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of columns")
     }
     if (nrow(dataset1) != nrow(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of rows")
     }
     if (!all(rownames(dataset1) == rownames(dataset2))) {
     warning("non-matching rownames for dataset1 and dataset2")
     }
     to.return <- list(rownames = rownames(dataset1), intercepts = vector(mode = "numeric",
     length = nrow(dataset1)), slopes = vector(mode = "numeric",
     length = nrow(dataset1)), r.squared = vector(mode = "numeric",
     length = nrow(dataset1)), residuals = matrix(nrow = nrow(dataset1),
     ncol = ncol(dataset1)))
     for (i in 1:nrow(dataset1)) {
     fit <- lm(formula = dataset2 ~ dataset1, data = data.frame(dataset2 = dataset2[i,
     ], dataset1 = dataset1[i, ]))
     to.return$intercepts[i] <- as.numeric(fit$coefficients[1])
     to.return$slopes[i] <- as.numeric(fit$coefficients[2])
     to.return$r.squared[i] <- summary(fit)$r.squared
     to.return$residuals[i, ] <- as.numeric(fit$residuals)
     }
     return(to.return)
    }
    <bytecode: 0x2673a68>
    <environment: namespace:LTR>
     --- function search by body ---
    Function fit.LTR in namespace LTR has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(dataset1) != "matrix") { :
     the condition has length > 1
    Calls: fit.LTR
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.0.0
Check: examples
Result: ERROR
    Running examples in ‘LTR-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: apply.LTR
    > ### Title: Apply a fitted LTR model to a new dataset
    > ### Aliases: apply.LTR
    > ### Keywords: models
    >
    > ### ** Examples
    >
    > x <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > y <- matrix(nrow = 100, ncol = 10, data = rnorm(1000));
    > model.fit <- fit.LTR(x, y);
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    LTR
     --- call from context ---
    fit.LTR(x, y)
     --- call from argument ---
    if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
    }
     --- R stacktrace ---
    where 1: fit.LTR(x, y)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (dataset1, dataset2)
    {
     dataset1 <- as.matrix(dataset1)
     dataset2 <- as.matrix(dataset2)
     if (class(dataset1) != "matrix") {
     stop("dataset1 is not a matrix")
     }
     if (class(dataset2) != "matrix") {
     stop("dataset2 is not a matrix")
     }
     if (ncol(dataset1) != ncol(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of columns")
     }
     if (nrow(dataset1) != nrow(dataset2)) {
     stop("dataset1 and dataset2 have different numbers of rows")
     }
     if (!all(rownames(dataset1) == rownames(dataset2))) {
     warning("non-matching rownames for dataset1 and dataset2")
     }
     to.return <- list(rownames = rownames(dataset1), intercepts = vector(mode = "numeric",
     length = nrow(dataset1)), slopes = vector(mode = "numeric",
     length = nrow(dataset1)), r.squared = vector(mode = "numeric",
     length = nrow(dataset1)), residuals = matrix(nrow = nrow(dataset1),
     ncol = ncol(dataset1)))
     for (i in 1:nrow(dataset1)) {
     fit <- lm(formula = dataset2 ~ dataset1, data = data.frame(dataset2 = dataset2[i,
     ], dataset1 = dataset1[i, ]))
     to.return$intercepts[i] <- as.numeric(fit$coefficients[1])
     to.return$slopes[i] <- as.numeric(fit$coefficients[2])
     to.return$r.squared[i] <- summary(fit)$r.squared
     to.return$residuals[i, ] <- as.numeric(fit$residuals)
     }
     return(to.return)
    }
    <bytecode: 0x30b5688>
    <environment: namespace:LTR>
     --- function search by body ---
    Function fit.LTR in namespace LTR has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(dataset1) != "matrix") { :
     the condition has length > 1
    Calls: fit.LTR
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc