How many samples do you need?

Data import & exploration

#### DATA IMPORT & MANAGEMENT ####
ARCdata <- read_csv("ARC_crosssectional_presentation.csv")
ARCdata$gain<-ARCdata$End-ARCdata$Start
str(ARCdata)
ARCdata<-as.data.frame(ARCdata)
ARCdata$Diet<-as.factor(ARCdata$Diet)
ARCdata$Tank<-as.factor(ARCdata$Tank)
#### DATA EXPLORATION ####
## Look at data
print(tapply(ARCdata$gain, ARCdata$Tank, mean, na.rm=TRUE))
print(tapply(ARCdata$gain, ARCdata$Diet, mean, na.rm=TRUE))
histogram(~ gain | Diet, data = ARCdata)
histogram(~ gain | Tank, data = ARCdata)
# number of observations by tank
ARCdata %>% 
  group_by(Tank) %>%
  summarise(no_rows = length(Tank))