print.lm cannot be called directly anymore

christophsax · Jan 11, 2014 · 6531a40 · 6531a40
1 parent 2c1e7a3
commit 6531a40
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/td.output.R b/R/td.output.R
@@ -10,9 +10,11 @@ print.td <- function(x, ...){
   #
   # Returns: 
   #   prints the object with print.lm as a side effect
-  print.lm(x, ...)
+
+  class(x) <- "lm"
+  print(x, ...)
 
-  cat("\nUse summary() for details. \nUse predict() to extract the final series.
+  cat("Use summary() for details. \nUse predict() to extract the final series.
       \nUse ?td to see the help file.\n")
 }