Death of Taxes Based on a Bellowes survey of adults, there is a 0.48 probability thata randomly selected adult uses a tax preparer to file taxes. Find the probability that among20 randomly selected adults, exactly 12 use tax preparers to file their taxes. Among 20 randomadults, is 12 an unusually high number for those who use tax preparers to file their taxes?
#data analysis using hamilton data to predict y data=read.csv("hamilton.csv") #wewill check the performance of first-order model m1=lm(y~x1+x2, data) summary(m1) par(mfrow=c(1,3)) plot(data[,1], m1$res) plot(data[,2],m1$res) plot(fitted(m1),m1$res) #I did not observe an obvious pattern in the residual plots #we will present the partial residual plots on x1 partial=m1$res+coef(m1)[2]*data[,1] plot(data[,1], partial,xlab='x1',ylab="partial residual") #partial residual plot show strict linear line #there must be violation on the assumptions to do linear regression install.packages("car") install.packages("MASS") library("car") library('MASS') vif(m1) cor.test(data[,1], data[,2])$p.value #x1 and x2 are significantly correlated #we will apply rid
