Elvetleaf is a particularly annoying weed in corn fields. It produces lots of seeds, and the seeds wait in the soil for years until conditions are right. The velvetleaf seed beetle feeds on the seeds and might be a natural weed control. Here are the total seeds, seeds infected by the beetle, and percent of seeds infected for 28 velvetleaf plants: Seeds Infected Percent 2450 135 5.3 2504 101 4.1 2114 76 3.5 1110 24 2.1 2137 121 5.7 8015 189 2.2 1623 31 1.7 1531 44 2.8 2008 73 3.4 1716 12 0.6 Seeds Infected Percent 721 27 3.6 863 40 4.4 1136 41 3.5 2819 79 2.7 1911 82 4.3 2101 85 3.9 1051 42 3.9 218 0 0.0 1711 64 3.8 164 7 4.1 Seeds Infected Percent 2228 156 7.1 363 31 8.3 5973 240 4.1 1050 91 8.5 1961 137 6.9 1809 92 5.3 130 5 3.8 880 23 2.5 In R, do a complete analysis of the percent of seeds infected by the beetle. #R Code Percent = c( 5.3, 4.1, 3.5, 2.1, 5.7, 2.2, 1.7, 2.8, 3.4, 0.6, 3.6, 4.4, 3.5, 2.7, 4.3, 3.9, 3.9, 0.0, 3.8, 4.1, 7.1, 8.3, 4.1, 8.5, 6.9, 5.3, 3.8, 2.5) hist(Percent) mean(Percent) sd(Percent) t. test(Percent, mu = 5.0, conf. level = 0.90) Researchers would like to test whether the average percent of seeds infected is different than 5 percent. What is the null and alternative hypothesis for this test?