categorical_tests_in_linear_regression
m <- mean(mtcars$mpg)
m <- round(m,3)
leg.m <- paste("grand mean: ", m)
k <- tapply(mtcars$mpg, mtcars$am, mean)
k <- round(k,3)
leg.1 <- paste("auto,0: ", k[1])
leg.2 <- paste("manual,1: ", k[2])
plot(x=(mtcars$am), mtcars$mpg)
abline(h=mean(mtcars$mpg), lwd=3, col='red')
abline(h=k[1], lwd=3, col='green')
abline(h=k[2], lwd=3, col='blue')
text(x = .2, y = 18, leg.1)
text(x = .8, y = 25, leg.2)
text(x = .5, y = 21, leg.m)
categorical_tests_in_linear_regression.txt · Last modified: 2022/10/15 19:35 by hkimscil