ssp.plot {agricolae} R Documentation

## Split-split-Plot analysis

### Description

The variance analysis of a split-split plot design is divided into three parts: the main-plot, subplot and sub-subplot analysis.

### Usage

```ssp.plot(block, pplot, splot, ssplot, Y)
```

### Arguments

 `block` replications `pplot` Factor main plot `splot` Factor subplot `ssplot` Factor sub-subplot `Y` Variable, response

### Details

The split-split-plot design is an extension of the split-plot design to accommodate a third factor: one factor in main-plot, other in subplot and the third factor in sub-subplot. The model is mixed, the blocks are random and the study factors are fixed applied according to the design.

### Value

ANOVA: Splip Split plot analysis

### Author(s)

Felipe de Mendiburu

### References

Statistical procedures for agricultural research. Kwanchai A. Gomez, Arturo A. Gomez. Second Edition. 1984.

`sp.plot`, `strip.plot`, `design.split`, `design.strip `

### Examples

```# Statistical procedures for agricultural research, pag 143
# Grain Yields of Three Rice Varieties Grown under
#Three Management practices and Five Nitrogen levels; in a
#split-split-plot design with nitrogen as main-plot,
#management practice as subplot, and variety as sub-subplot
#factores, with three replications.
library(agricolae)
f <- system.file("external/ssp.csv", package="agricolae")
model<-with(ssp,ssp.plot(block,nitrogen,management,variety,yield))
gla<-model\$gl.a; glb<-model\$gl.b; glc<-model\$gl.c
Ea<-model\$Ea; Eb<-model\$Eb; Ec<-model\$Ec
op<-par(mfrow=c(1,3),cex=0.6)
out1<-with(ssp,LSD.test(yield,nitrogen,gla,Ea,console=TRUE))
out2<-with(ssp,LSD.test(yield,management,glb,Eb,console=TRUE))
out3<-with(ssp,LSD.test(yield,variety,glc,Ec,console=TRUE))
plot(out1,xlab="Nitrogen",las=1,variation="IQR")
plot(out2,xlab="Management",variation="IQR")
plot(out3,xlab="Variety",variation="IQR")
# with aov
ssp\$block<-factor(ssp\$block)
ssp\$nitrogen<-factor(ssp\$nitrogen)
ssp\$management<-factor(ssp\$management)
ssp\$variety<-factor(ssp\$variety)
AOV<-aov(yield ~  block + nitrogen*management*variety + Error(block/nitrogen/management),data=ssp)
summary(AOV)
par(op)
```

[Package agricolae version 1.3-5 Index]