The R Project SVN R

Rev

Rev 88855 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88855 Rev 89556
Line 84... Line 84...
84 
contrasts(ffs) <- contr.sum(5, sparse = TRUE)[, 1:2]; contrasts(ffs)
 84 
contrasts(ffs) <- contr.sum(5, sparse = TRUE)[, 1:2]; contrasts(ffs)
85 
stopifnot(all.equal(ffs, fff))
 85 
stopifnot(all.equal(ffs, fff))
86 
contrasts(ffs) <- contr.sum(5, sparse = TRUE); contrasts(ffs)
 86 
contrasts(ffs) <- contr.sum(5, sparse = TRUE); contrasts(ffs)
87 
})
 87 
})
88 
 
 88 
 
- 
 
 89 
# free1way() et al.
- 
 
 90 
example(free1way,            run.donttest = TRUE)
- 
 
 91 
example(power.free1way.test, run.donttest = TRUE)
- 
 
 92 
example(ppplot,              run.donttest = TRUE)
- 
 
 93 
 
89 
# glm.Rd
 94 
# glm.Rd
90 
utils::data(anorexia, package = "MASS")
 95 
utils::data(anorexia, package = "MASS")
91 
 
 96 
 
92 
anorex.1 <- glm(Postwt ~ Prewt + Treat + offset(Prewt),
 97 
anorex.1 <- glm(Postwt ~ Prewt + Treat + offset(Prewt),
93 
                family = gaussian, data = anorexia)
 98 
                family = gaussian, data = anorexia)
Line 136... Line 141...
136 
## IGNORE_RDIFF_END
 141 
## IGNORE_RDIFF_END
137 
options(od)
 142 
options(od)
138 
 
 143 
 
139 
# princomp.Rd
 144 
# princomp.Rd
140 
## Robust:
 145 
## Robust:
- 
 
 146 
set.seed(1)
141 
(pc.rob <- princomp(stackloss, covmat = MASS::cov.rob(stackloss)))
 147 
(pc.rob <- princomp(stackloss, covmat = MASS::cov.rob(stackloss)))
142 
 
 148 
 
143 
# xtabs.Rd
 149 
# xtabs.Rd
144 
if(require("Matrix", .Library)) {
 150 
if(require("Matrix", .Library)) {
145 
 ## similar to "nlme"s  'ergoStool' :
 151 
 ## similar to "nlme"s  'ergoStool' :