CRAN Package Check Results for Package ffmanova

Last updated on 2021-06-21 11:52:04 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.1.0 4.31 41.87 46.18 OK
r-devel-linux-x86_64-debian-gcc 1.1.0 3.29 31.50 34.79 OK
r-devel-linux-x86_64-fedora-clang 1.1.0 62.99 OK
r-devel-linux-x86_64-fedora-gcc 1.1.0 52.22 OK
r-devel-windows-x86_64 1.1.0 6.00 54.00 60.00 OK
r-devel-windows-x86_64-gcc10-UCRT 1.1.0 ERROR
r-patched-linux-x86_64 1.1.0 4.05 39.79 43.84 OK
r-patched-solaris-x86 1.1.0 76.20 OK
r-release-linux-x86_64 1.1.0 3.83 39.66 43.49 OK
r-release-macos-arm64 1.1.0 OK
r-release-macos-x86_64 1.1.0 OK
r-release-windows-ix86+x86_64 1.1.0 7.00 58.00 65.00 OK
r-oldrel-macos-x86_64 1.1.0 OK

Check Details

Version: 1.1.0
Check: package dependencies
Result: NOTE
    Package suggested but not available for checking: 'car'
Flavor: r-devel-windows-x86_64-gcc10-UCRT

Version: 1.1.0
Check: examples
Result: ERROR
    Running examples in 'ffmanova-Ex.R' failed
    The error most likely occurred in:
    
    > ### Name: ffAnova
    > ### Title: Type II* Anova
    > ### Aliases: ffAnova
    >
    > ### ** Examples
    >
    > # Generate example data
    > set.seed(123)
    > a <- c(0, 0, 0, 10, 10, 10, 1, 1, 1)
    > A <- as.character(a) # A is categorical
    > b <- 1:9
    > y <- rnorm(9)/10 + a # y depends strongly on a (and A)
    > a100 <- a + 100 # change of scale (origin)
    > b100 <- b + 100 # change of scale (origin)
    >
    > # Four ways of obtaining the same results
    > ffAnova(y ~ A * b)
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    A 2 183.461 91.730 16902.8204 8.359e-07 ***
    b 1 0.011 0.011 2.1017 0.243
    A:b 2 0.031 0.016 2.8708 0.201
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    > ffAnova(y ~ A * b100)
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    A 2 183.461 91.730 16902.8204 8.359e-07 ***
    b100 1 0.011 0.011 2.1017 0.243
    A:b100 2 0.031 0.016 2.8708 0.201
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    > ffAnova(lm(y ~ A * b))
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    A 2 183.461 91.730 16902.8204 8.359e-07 ***
    b 1 0.011 0.011 2.1017 0.243
    A:b 2 0.031 0.016 2.8708 0.201
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    > ffAnova(y ~ A * b, data.frame(A = A, y = y, b = 1:9))
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    A 2 183.461 91.730 16902.8204 8.359e-07 ***
    b 1 0.011 0.011 2.1017 0.243
    A:b 2 0.031 0.016 2.8708 0.201
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    >
    > # Second order continuous variable
    > ffAnova(y ~ a + I(a^2))
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    a 1 184.667 184.67 18829.1151 1.01e-11 ***
    I(a^2) 1 0.010 0.01 1.0522 0.3446
    Residuals 6 0.059 0.01
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    >
    > # Model equivalent to 'y ~ A * b'
    > ffAnova(y ~ (a + I(a^2)) * b)
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    a 1 183.443 183.443 33802.3559 3.548e-07 ***
    I(a^2) 1 0.007 0.007 1.2609 0.3432
    b 1 0.011 0.011 2.1017 0.2430
    a:b 1 0.003 0.003 0.4944 0.5326
    I(a^2):b 1 0.028 0.028 5.2471 0.1059
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    >
    > # Demonstrating similarities and differences using package car
    > if (!require(car)) # Package car is loaded if available
    + Anova <- function(x) { # Replacement function if car not available
    + warning("No results since package car is not available")}
    Loading required package: car
    Warning in library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, :
     there is no package called 'car'
    >
    > lm_Ab <- lm(y ~ A * b)
    > lm_Ab100 <- lm(y ~ A * b100)
    >
    > # Type II same as type II* in this case
    > Anova(lm_Ab) # Type II
    Warning in Anova(lm_Ab) : No results since package car is not available
    > Anova(lm_Ab100) # Type II
    Warning in Anova(lm_Ab100) :
     No results since package car is not available
    > ffAnova(lm_Ab) # Type II*
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    A 2 183.461 91.730 16902.8204 8.359e-07 ***
    b 1 0.011 0.011 2.1017 0.243
    A:b 2 0.031 0.016 2.8708 0.201
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    > ffAnova(lm_Ab100) # Type II*
    Anova Table (Type II* tests)
    
    Response: y
     Df Sum Sq Mean Sq F value Pr(>F)
    A 2 183.461 91.730 16902.8204 8.359e-07 ***
    b100 1 0.011 0.011 2.1017 0.243
    A:b100 2 0.031 0.016 2.8708 0.201
    Residuals 3 0.016 0.005
    ---
    Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
    >
    > # Type III depends on scale
    > Anova(lm_Ab, type = 3)
    Error in Anova(lm_Ab, type = 3) : unused argument (type = 3)
    Execution halted
Flavor: r-devel-windows-x86_64-gcc10-UCRT