Displaying 2 results from an estimated 2 matches for "knot1".
Did you mean:
knots
2010 Dec 26
1
Question about mars() -function
...2e-06 ***
m$x3 -1.9428 0.3084 -6.300 6.61e-09 ***
---
Signif. codes: 0 ?***? 0.001 ?**? 0.01 ?*? 0.05 ?.? 0.1 ? ? 1
Residual standard error: 23.38 on 108 degrees of freedom
Multiple R-squared: 0.8147, Adjusted R-squared: 0.8095
F-statistic: 158.2 on 3 and 108 DF, p-value: < 2.2e-16
knot1 <- function (x,k) ifelse(x > k, x-k, 0)
knot2 <- function(x, k) ifelse(x < k, k-x, 0)
reg <- lm(ozone ~knot1(temperature,85)+knot2(temperature,85),data=data)
summary(reg)
Call:
lm(formula = ozone ~ knot1(temperature, 85) + knot2(temperature,
85), data = data)
Residuals:...
2005 Mar 14
0
polymars
...1 6 0.2243499 0.3764709 0.02893749
7 0 5 0.2243804 0.3766148 0.02331277
8 0 4 0.2299605 0.3766946 0.01935784
9 0 3 0.2312835 0.3819480 0.01637875
10 0 2 0.2316042 0.3820036 0.01391882
11 0 1 0.2486744 0.6520499 0.01756785
Model produced
pred1 knot1 pred2 knot2 Coefs 1 Coefs 2 SE 1 SE 2
1 0 NA 0 NA 0.40139070 0.14049628 0.02195431 0.02819553
2 2 NA 0 NA -0.02146696 -0.08538267 0.01047337 0.01345076
RESPONSES : 2
Rsquared : 0.069 0.414
If I have well understood, polymars tries to build sev...