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([email protected] == [email protected], na.rm=TRUE)Run the code above in your browser using DataLab