R/pred.R

In AdelaidaK/Lab4AdvancedR: Linear Regression Analysis

pred.linreg <- function(formula, data) {
  #' Method pred.linreg
  #'
  #' @export pred.linreg
  #' @param some Some
  #'
  #' @return The predicted values of the linear regression analysis of the input data
  #' @examples
  #' pred.linreg(Petal.Length~Species, data = iris)
  #' pred.linreg(Employed ~ ., longley)
  #' @source \url{http://web.nchu.edu.tw/~numerical/course1012/ra/Applied_Regression_Analysis_A_Research_Tool.pdf}
  
  l_full_linreg <- linreg(formula, data)
  return (unlist(l_full_linreg$Fitted))
}