Merge pull request #101 from jschadewald/master

Example now preserves integrity of the data in when
topepo · Jan 28, 2015 · f2da367 · f2da367
2 parents 3d6d999 + 985bf35
commit f2da367
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/pkg/caret/man/dummyVars.Rd b/pkg/caret/man/dummyVars.Rd
@@ -128,8 +128,11 @@ when <- data.frame(time = c("afternoon", "night", "afternoon",
                            "Wed", "Wed", "Fri",
                            "Sat", "Sat", "Fri"))
 
-levels(when$time) <- c("morning", "afternoon", "night")
-levels(when$day) <- c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
+levels(when$time) <- list(morning="morning",
+                          afternoon="afternoon",
+                          night="night")
+levels(when$day) <- list(Mon="Mon", Tue="Tue", Wed="Wed", Thu="Thu",
+                         Fri="Fri", Sat="Sat", Sun="Sun")
 
 ## Default behavior:
 model.matrix(~day, when)