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