baseball = read.csv("baseball.csv") model 1m (RPG-OBP, data=baseball, subset=(League=="American")) summary (model) ## ##23 Call: - #23 #23 1m (formula = RPG OBP, data = baseball, subset = (League ## ## "American")) %%23 Residuals: == ## Min 10 Median 30 Max ## -0.21680 -0.13016 -0.08556 0.09241 0.46542 ## ##23 Coefficients: ## #23%23 (Intercept) ## OBP Estimate Std. Error t value Pr(>|t|). -8.247 38.817 1.921 -4.294 0.00104 ** 5.506 7.050 1.34e-05 *** ## --- #3%#23 Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 0.1 1 ## #23%23 Residual standard error: 0.2099 on 12 degrees of freedom ## Multiple R-squared: 0.8055, Adjusted R-squared: 0.7893 #2 #23 F-statistic: 49.7 on 1 and 12 DF, p-value: 1.337e-05