# NOT RUN {
## Identify outliers using 1.5 standard deviations as criterion
susanne <- rSC(level = 1.0)
res_outlier <- outlier(susanne, criteria = c("SD", 1.5))
plot(susanne, marks = res_outlier)
## Identify outliers in the original data from Grosche (2011) using Cook's Distance
## greater than 4/n as criterion
res_outlier <- outlier(Grosche2011, criteria = c("Cook", "4/n"))
plot(Grosche2011, marks = res_outlier)
# }
Run the code above in your browser using DataLab