Open obiii opened 6 years ago
print = function(){ cat("Call:\n") cat("linreg(formula = ",as.character(formula[2])," ~ ",as.character(formula[3])," ,data = ",dfname,")") prdf <- as.data.frame(t(regCoefficients)) colnames(prdf) <-formulaNames cat("\n\nCoefficients:\n") print.data.frame(as.data.frame(prdf),row.names = FALSE) }
The test case test_linreg_ref_class.R for print fails even though the print function is working fine exactly same output as from lm model)
Please see the image below:
print = function(){ cat("Call:\n") cat("linreg(formula = ",as.character(formula[2])," ~ ",as.character(formula[3])," ,data = ",dfname,")") prdf <- as.data.frame(t(regCoefficients)) colnames(prdf) <-formulaNames cat("\n\nCoefficients:\n") print.data.frame(as.data.frame(prdf),row.names = FALSE) }
The test case test_linreg_ref_class.R for print fails even though the print function is working fine exactly same output as from lm model)
Please see the image below: