Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- > df.nym = subset(df, tm=="NYM")
- > fit <- lm(wins_losses ~ poly(standardized_payroll, 2), data=df.nym)
- > summary(fit)
- Call:
- lm(formula = wins_losses ~ poly(standardized_payroll, 2), data = df.nym)
- Residuals:
- Min 1Q Median 3Q Max
- -0.18026 -0.02986 0.00273 0.03921 0.14284
- Coefficients:
- Estimate Std. Error t value Pr(>|t|)
- (Intercept) 0.5112 0.0117 43.78 <2e-16 ***
- poly(standardized_payroll, 2)1 0.0383 0.0639 0.60 0.55
- poly(standardized_payroll, 2)2 -0.1761 0.0639 -2.75 0.01 *
- ---
- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
- Residual standard error: 0.0639 on 27 degrees of freedom
- Multiple R-squared: 0.227, Adjusted R-squared: 0.17
- F-statistic: 3.97 on 2 and 27 DF, p-value: 0.0308
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement