library(rJava) library(xlsxjars) setwd("/Users/charlotterunzel/Desktop") library(xlsx) library(ggplot2) A <- read.xlsx("Final_Field Sponge Data.xlsx", sheetName="ANOVA3") test2 = aov(Slope~Depth2,A) summary(test2) B <- read.xlsx("Final_Field Sponge Data.xlsx", sheetName="ANOVA") test3 = aov(Growth~Depth2,B) summary(test3) boxplot(New~Depth2, data=A, xlab="Depth (m)", ylab="Growth Rate (mm/Day") B <- read.xlsx("Final_Field Sponge Data.xlsx", sheetName="ANOVA4") test4 = aov(New~Depth2,B) summary(test4) boxplot(New~Depth2, data=B, xlab="Depth (m)", ylab="Growth Rate (mm/Day") C <- read.xlsx("Final_Field Sponge Data.xlsx", sheetName="ANOVA4") t.test(New~Depth2, data=C) D <- read.xlsx("Final_Field Sponge Data.xlsx", sheetName="ANOVA2") t.test(Growth2~Depth2, data=D)