Tick data | Economics homework help
D8_1 <- read.table(“C:/Users/keith/Desktop/Data_Table_8.1.txt”,sep = “t”,fill = TRUE, header=TRUE) ##Still NAs. Scrape all dorsal widths and throw into one vector via concatenate. Full_Data<-c(D8_1[1:8,1],D8_1[1:10,2],D8_1[1:13,3],D8_1[1:6,4]) HostNum<-c(rep(1,8),rep(2,10),rep(3,13),rep(4,6)) Tick_data<-data.frame(Width=Full_Data,Host=as.factor(HostNum)) res.aov<-aov(Width~Host, data=Tick_data) summary(res.aov) #1.a Answer qf(.05, 3, 33, lower.tail=FALSE) #1.b As our F-Statistic is greater than this critical value of 2.892, we reject the test’s null hypothesis and conclude that there is an association between host and width. pairwise.t.test(Tick_data$Width,Tick_data$Host) #1.c […]