R/func.output.linearFormula.R

Defines functions func.output.linearFormula

func.output.linearFormula <-
function( output ){
  if( is.null(output$writeTarget) )
    return()

  coeffLast <- "z*Xn"
  if(names(output$coefficients)[1] == "(Intercept)")
    coeffLast <- "const"

  writeLines( paste("General Equation: Y = a*X1 + b*X2 + ... + ", coeffLast) , con = output$writeTarget )
}

Try the cvq2 package in your browser

Any scripts or data that you put into this service are public.

cvq2 documentation built on May 2, 2019, 8:29 a.m.