# NOT RUN {
## Identify outliers using 1.5 standard deviations as criterion
susanne <- rSC(level = 1.0)
res.outlier <- outlierSC(susanne, criteria = c("SD", 1.5))
plotSC(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 <- outlierSC(Grosche2011, criteria = c("Cook", "4/n"))
plotSC(Grosche2011, marks = res.outlier)
# }
Run the code above in your browser using DataLab