R Under development (unstable) (2024-08-17 r87027 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ## VT::15.09.2013 - this will render the output independent
> ##  from the version of the package
> suppressPackageStartupMessages(library(rrcov))
> library(MASS)
> 
> dodata <- function(method) {
+ 
+     options(digits = 5)
+     set.seed(101)
+ 
+     tmp <- sys.call()
+     cat("\nCall: ", deparse(substitute(tmp)),"\n")
+     cat("===================================================\n")
+ 
+     data(pottery);      show(lda <- LdaPP(origin~., data=pottery, method=method)); show(predict(lda))
+     data(hemophilia);   show(lda <- LdaPP(as.factor(gr)~., data=hemophilia, method=method)); show(predict(lda))
+     data(anorexia);     show(lda <- LdaPP(Treat~., data=anorexia, method=method)); show(predict(lda))
+     data(Pima.tr);      show(lda <- LdaPP(type~., data=Pima.tr, method=method)); show(predict(lda))
+     data(crabs);        show(lda <- LdaPP(sp~., data=crabs, method=method)); show(predict(lda))
+ 
+     cat("===================================================\n")
+ }
> 
> 
> ## -- now do it:
> 
> ## Commented out - still to slow
> ##dodata(method="huber")
> ##dodata(method="sest")
> 
> ## VT::14.11.2018 - Commented out: too slow
> ##  dodata(method="mad")
> ##  dodata(method="class")
> 
> proc.time()
   user  system elapsed 
   0.62    0.10    0.71