Typo in docs and tp

Author: Tyson Barrett

R/tp.R

@@ -25,9 +25,9 @@ tp = function(formula, data, bin.link = "logit", count.family = poisson(link = "
 
 
 print.tp = function(x, ...){
-  cat("---\nBinary Portion of Two-Part Hurdle Model\n\n")
+  cat("---\nBinary Portion of Two-Part Model\n\n")
   print(summary.glm(x$Binary)$coef, ...)
-  cat("\n---\nCount Portion of Two-Part Hurdle Model\n\n")
+  cat("\n---\nCount Portion of Two-Part Model\n\n")
   print(summary.glm(x$Count)$coef, ...)
   cat("---\nModel 1: binomial with", x$Binary$family[[2]], "link",
       "\nModel 2:", x$Count$family[[1]], "with", x$Count$family[[2]], "link \n")

man/furniture-package.Rd

@@ -40,7 +40,7 @@ levels(b$race) = c("white", "black", "other")
 ## Table1 example ##
 
 table1(b, age, race, smoke, ptl, ht, ui, ftv,
-       splitby=~low,
+       splitby=~factor(low),
        test=TRUE,
        var.names = c("Age", "Race", "Smoking Status", "Previous Premature Labors", "Hypertension",
                      "Uterine Irratibility", "Physician Visits"),

man/table1.Rd

@@ -91,14 +91,16 @@ levels(b$race) = c("white", "black", "other")
 table1(b, age, race, smoke, ptl, ht, ui, ftv,
        NAkeep=TRUE)
 
+## can adjust variable in the function -- low changed to factor
 table1(b, age, race, smoke, ptl, ht, ui, ftv,
-       splitby=~low,
+       splitby=~factor(low),
        NAkeep=TRUE)
-
 table1(b, age, race, smoke, ptl, ht, ui, ftv,
-       splitby=~low,
+       splitby=~factor(low),
        test=TRUE)
 
+## or can adjust before hand
+b$low = as.factor(b$low)
 table1(b, age, race, smoke, ptl, ht, ui, ftv,
        splitby=~low,
        test=TRUE,