eport the simple regression of score on bty_avg in a table similar to that in table 1 as column 1, assign asteriks for statistical signicance, report the number of observations, R2 and R2. Interpret the slope coe cient without imposing identifying assumptions (consider a one std deviation increase in bty_avg). For this use the following code: score_beauty1 <- lm(score ~bty_avg, data = evals_ch6) summary(score_beauty1