---
tags: cage testing, animals
---

# Cage testing with animals 15Feb20

Cage 1 - 20.1g
Cage 3 - 21.1gm
Cage 5 - 21.8g

At the end of the experiment:

Cage 1 had used 8.5ml water
Cage 3 had used 7ml water
Cage 5 had used 9.25ml of water



##### Plotting energy expendeture

target <- c(1,3,5)
cages <- cages135 %>% filter(Animal %in% target)
EE=0.06*(3.941*cages$VO2 + 1.106*cages$VCO2) #Leighton 9.15
measurement <- cages %>%  select(metric)
df<-as.data.frame(EE)

p <- ggplot(data = cages,aes(x=as.POSIXct(StartTime),y=EE))
p <- p + geom_point(aes(group=Animal, color=Animal))
p <- p + geom_smooth(data=df$V1)
p <- p + labs(x = "", y = "EE")
p <- p + scale_color_brewer(palette="Paired")
p <- p + scale_x_datetime(date_breaks = "2 hours", date_labels = "%H:%M")
p