initial commit

Author: kabacoff

Ch08 Regression.R

@@ -281,7 +281,7 @@ relweights <- function(fit,...){
            sub=paste("Total R-Square=", round(rsquare, digits=3)),
            ...)
   return(import)
-  
+  }
 
   # Listing 8.17 - Applying the relweights function
   states <- as.data.frame(state.x77[,c("Murder", "Population",

Ch09 Analysis of Variance.R

@@ -151,7 +151,7 @@ outliers
 
 # Listing 9.10 - Robust one-way MANOVA
 library(rrcov)
-Wilks.test(y,shelf, method="mcd")
+Wilks.test(y,shelf, method="mcd")  # this can take a while
 
 
 # Listing 9.11 - A regression approach to the Anova problem

Ch17 Classification.R

@@ -97,7 +97,7 @@ svm.perf <- table(na.omit(df.validate)$class,
 svm.perf
 
 
-# Listing 17.7 Tuning an RBF support vector machine
+# Listing 17.7 Tuning an RBF support vector machine (this can take a while)
 set.seed(1234)
 tuned <- tune.svm(class~., data=df.train,
                   gamma=10^(-6:1),