| anova.scam | R Documentation |
Performs hypothesis tests relating to one or more fitted scam objects.
The function is a clone of anova.gam of the mgcv package.
The documentation below is similar to that of object anova.gam.
## S3 method for class 'scam'
anova(object, ..., dispersion = NULL, test = NULL,
freq = FALSE,p.type=0)
## S3 method for class 'anova.scam'
print(x, digits = max(3, getOption("digits") - 3),...)
object, ... |
fitted model objects of class |
x |
an |
dispersion |
a value for the dispersion parameter: not normally used. |
test |
what sort of test to perform for a multi-model call. One of
|
freq |
whether to use frequentist or Bayesian approximations for parametric term
p-values. See |
p.type |
selects exact test statistic to use for single smooth term p-values. See
|
digits |
number of digits to use when printing output. |
see anova.gam for details.
In the multi-model case anova.scam produces output identical to
anova.glm, which it in fact uses.
In the single model case an object of class anova.scam is produced,
which is in fact an object returned from summary.scam.
print.anova.scam simply produces tabulated output.
If models 'a' and 'b' differ only in terms with no un-penalized components then p values from anova(a,b) are unreliable, and usually much too low.
For a single model, interpretation is similar to drop1, not anova.lm.
Simon N. Wood simon.wood@r-project.org
Scheipl, F., Greven, S. and Kuchenhoff, H. (2008) Size and power of tests for a zero random effect variance or polynomial regression in additive and linear mixed models. Comp. Statist. Data Anal. 52, 3283-3299
Wood, S.N. (2013a) On p-values for smooth components of an extended generalized additive model. Biometrika 100:221-228
Wood, S.N. (2013b) A simple test for random effects in regression models. Biometrika 100:1005-1010
scam, predict.scam,
scam.check, summary.scam, anova.gam
library(scam)
set.seed(0)
fac <- rep(1:4,20)
x1 <- runif(80)*5
x2 <- runif(80,-1,2)
x3 <- runif(80, 0, 1)
y <- fac+log(x1)/5
y <- y + exp(-1.3*x2) +rnorm(80)*0.1
fac <- factor(fac)
b <- scam(y ~ fac+s(x1,bs="mpi")+s(x2,bs="mpd")+s(x3))
b1 <- scam(y ~ fac+s(x1,bs="mpi")+s(x2,bs="mpd"))
anova(b,b1,test="F")
## b2 <- scam(y ~ fac +s(x1)+s(x2)+te(x1,x2))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.