## S3 method for class 'bagEarth':
format(x, file = "", cat = TRUE, \dots)
bagEarth
object.
This is the only required argument.link[base]{cat}
.format.earth
.earth
a <- bagEarth(Volume ~ ., data = trees, B= 3)
cat(format(a))
# 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
Run the code above in your browser using DataLab