head(Cone11.17.1)
names(Cone11.17.1)<-c("Control", "Mangrove")
plot(Mangrove~Control, data=Cone11.17.1, cex.axis="1.5", cex.lab="2")
lm(Mangrove~Control, data=Cone11.17.1)
abline(lm(Mangrove~Control, data=Cone11.17.1))
summary(lm(Mangrove~Control, data=Cone11.17.1))