Displaying 1 result from an estimated 1 matches for "marsmodel".
Did you mean:
harmodel
2010 Dec 26
1
Question about mars() -function
...^2 in
R-projector some another way than in the following example or by
calculating it myself using R^2-formula?
I hope you can reply soon.
Best regards,
Tiina Hakanen
library(ElemStatLearn)
library(mda)
data<-ozone
m<-mars(data[,-1], data[,1], nk=4)
m$factor[m$s,]
m$cuts[m$s,]
m$coef
marsmodel<-lm(data[,1]~m$x-1)
summary(marsmodel)
Call:
lm(formula = data[, 1] ~ m$x - 1)
Residuals:
Min 1Q Median 3Q Max
-36.264 -15.993 -2.351 9.993 122.793
Coefficients:
Estimate Std. Error t value Pr(>|t|)
m$x1 52.9783 3.8894 13.621 < 2e-16 ***
m$x2 4.7383...