4. Find R ^ 2 and interpret it in context . Round to the hundredth percent .
Extracted text: footage<-c(1561,1818,1421,1488,1356,1430,1881,1253,1300,1500,1806,1777,1995)>-c(1561,1818,1421,1488,1356,1430,1881,1253,1300,1500,1806,1777,1995)><-c(425,489,379,499,299,380,560,429,524.9,429.9,580,459,665) xyplot(price-footage,="" xlab="" "square="" footage",="" ylab="Asking price($000)" ,="" type="">-c(425,489,379,499,299,380,560,429,524.9,429.9,580,459,665)>
Extracted text: 600 500 400 300 1400 1600 1800 2000 square Footage cor(price, footage) ## [1] 0.7088847 pricemodel<-1m(price~footage) msummary(pricemodel)="" estimate="" std.="" error="" t="" value="" pr(=""> |t|) ## ## (Intercept) ## footage 21.14411 136.31449 0.155 0.87954 0.28388 0.08516 3.333 0.00667 ** #2# ## Residual standard error: 71.64 on 11 degrees of freedom ## Multiple R-squared: 0.5025, Adjusted R-squared: 0.4573 ## F-statistic: 11.11 on 1 and 11 DF, p-value: 0.006671 Asking price($000)
-1m(price~footage)>