---

transform <- read.csv(“CompleteGeneticData.csv”, 1) install.packages(“xlsx”) head(transform) transform.sub <- transform[transform$Plot == “WV.R”,] plot(transform.sub\(transect.x, transform.sub\)transect.y) GT218_1 <- transform.sub$GT218 hist(GT218_1)