data(KcViabSmall)
x <- KcViabSmall
xs <- spatialNormalization(x, save.model = TRUE, h=3)
## Calling spatialNormalization function from "normalizePlates":
xopt <- normalizePlates(x, varianceAdjust="none", save.model = TRUE)
all(xs@rowcol.effects == xopt@rowcol.effects, na.rm=TRUE)
Run the code above in your browser using DataLab