Format 'bagEarth' objects

Return a string representing the ‘bagEarth’ expression.

# S3 method for bagEarth
format(x, file = "", cat = TRUE, ...)

Arguments

x	An bagEarth object. This is the only required argument.
file	A connection, or a character string naming the file to print to. If "" (the default), the output prints to the standard output connection. See cat.
cat	a logical; should the equation be printed?
...	Arguments to format.earth.

Value

A character representation of the bagged earth object.

See also

earth

Examples

a <- bagEarth(Volume ~ ., data = trees, B= 3)
#> Warning: non-list contrasts argument ignored
#> Error: package earth is required
format(a)
#> Error in format(a): object 'a' not found

# yields:
# (
#   31.61075 
#   +  6.587273 * pmax(0,  Girth -   14.2) 
#   -  3.229363 * pmax(0,   14.2 -  Girth) 
#   - 0.3167140 * pmax(0,     79 - Height) 
#   +
#    22.80225 
#   +  5.309866 * pmax(0,  Girth -     12) 
#   -  2.378658 * pmax(0,     12 -  Girth) 
#   +  0.793045 * pmax(0, Height -     80) 
#   - 0.3411915 * pmax(0,     80 - Height) 
#   +
#    31.39772 
#   +   6.18193 * pmax(0,  Girth -   14.2) 
#   -  3.660456 * pmax(0,   14.2 -  Girth) 
#   + 0.6489774 * pmax(0, Height -     80) 
# )/3