# \donttest{
## Using the first example dataset (PhenovatorDat1):
## Create an object of class TP.
phenoTP <- createTimePoints(dat = PhenovatorDat1,
experimentName = "Phenovator",
genotype = "Genotype",
timePoint = "timepoints",
repId = "Replicate",
plotId = "pos",
rowNum = "y", colNum = "x",
addCheck = TRUE,
checkGenotypes = c("check1", "check2",
"check3", "check4"))
## Fit a SpATS model on three points:
modPhenoSp <- fitModels(TP = phenoTP,
trait = "EffpsII",
timePoints = c(1, 6, 36))
## Plot the spatial trends for one time point:
plot(modPhenoSp,
timePoints = 36,
plotType = "spatial",
spaTrend = "percentage")
# }
if (FALSE) {
## Create a time lapse of all available time points:
plot(modPhenoSp,
plotType = "timeLapse",
outFile = "TimeLapse_modPhenoSp.gif")
}
# \donttest{
## Plot the corrected values for a subset of four genotypes:
plot(modPhenoSp,
plotType = "corrPred",
genotypes = c("check1", "check2", "G007", "G058") )
## Plot the effective dimensions of all available time points in the model
## for a subset of effective dimensions:
plot(modPhenoSp,
plotType = "effDim",
whichED = c("colId", "rowId", "fColRow","colfRow"),
EDType = "ratio")
# }
Run the code above in your browser using DataLab