---
# System prepended metadata

title: Cage testing with animals 15Feb20
tags: [cage testing, ' animals']

---

---
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

![](https://i.imgur.com/m1zhNja.png)
![](https://i.imgur.com/6fZo33M.png)
![](https://i.imgur.com/oZ4ebRU.png)

![](https://i.imgur.com/0WcO5EY.png)
![](https://i.imgur.com/PvVyVFV.png)
![](https://i.imgur.com/Y3j0vJt.png)

##### 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
```

![](https://i.imgur.com/7sz7H4I.png)
