pairwiseCI (version 0.1-27)

rooting: Rooting (success/failure) of plants in a 3-factorial field trial

Description

Part of an experiment on propagation of plant genera Acer and Pyrus. Cuttings were taken from motherplants of age 5 and age 20, from top or base, and were treated with 0, 0.5 and 2 percent IBA to induce rooting. Treatments were arranged in a completely randomized design, among other variables, the number of cuttings with and without roots was recorded.

Usage

data(rooting)

Format

A data frame with 48 observations on the following 6 variables.

Age

a numeric vector: age of mother plants

Position

a factor with levels B and T, for "base" and "top" cuttings

IBA

a numeric vector, specifying the concentration of IBA

Rep

a numeric vector, number of replication

root

a numeric vector, number of cuttings with successfull rooting, out of 12 trials

noroot

a numeric vector, number of cuttings showing no rooting, out of 12 trials

Examples

# NOT RUN {
data(rooting)

rooting$IBAf<-as.factor(rooting$IBA)
rooting$Rep<-as.factor(rooting$Rep)

fitB<-glm(cbind(root,noroot)~Rep+(Age + Position + IBA)^2,
 data=rooting, family=binomial)

fitQB<-glm(cbind(root,noroot)~Rep+(Age + Position + IBA)^2,
 data=rooting, family=quasibinomial)

summary(fitB)
summary(fitQB)

anova(fitB, test="Chisq")
anova(fitQB, test="F")

# }