## kinetic outliers:
## on a 'modlist', using efficiency from sigmoidal fit
## and alpha = 0.01.
## F7.3 detected as outlier (shallower => low efficiency)
ml1 <- modlist(reps, 1, c(2:5, 28), model = l5)
res1 <- KOD(ml1, method = "uni1", par = parKOD(eff = "sliwin", alpha = 0.01))
plot(res1)
## sigmoidal outliers:
## remove runs without sigmoidal structure
ml2 <- modlist(testdat, model = l5)
res2 <- KOD(ml2, method = "uni2", remove = TRUE)
plot(res2, which = "single")
## multivariate outliers:
## a few runs are identified
ml3 <- modlist(reps, model = l5)
res3 <- KOD(ml3, method = "multi1")
## on a 'replist',
## several outliers identified
rl3 <- replist(ml3, group = gl(7, 4))
res4 <- KOD(rl3, method = "uni1")
Run the code above in your browser using DataLab