n=98 measurements in this range
cages <- with(cages012346_all ,cages012346_all[ hour( StartTime ) >= 0 & hour( StartTime ) < 6 , ] )
> var(cages$H2Omg, na.rm = TRUE)
[1] 0.001656899
> var(cages$VO2, na.rm = TRUE)
[1] 0.1785384
> var(cages$VCO2, na.rm = TRUE)
[1] 0.1279258
> var(cages$EE, na.rm = TRUE)
[1] 0.015276
[1] 0.005458669
> var(cages$VO2, na.rm = TRUE)
[1] 0.1220401
> var(cages$VCO2, na.rm = TRUE)
[1] 0.08778607
> var(cages$EE, na.rm = TRUE)
[1] 0.01044119
n=89 measurements in this range
> cages <- with(cages012346_120sec ,cages012346_120sec[ hour( StartTime ) >= 0 & hour( StartTime ) < 6 , ] )
>
>
> var(cages$H2Omg, na.rm = TRUE)
[1] 0.005184012
> var(cages$VO2, na.rm = TRUE)
[1] 0.2078887
> var(cages$VCO2, na.rm = TRUE)
[1] 0.1571118
> var(cages$EE, na.rm = TRUE)
[1] 0.01792776
> var(cages$H2Omg, na.rm = TRUE)
[1] 0.005148466
> var(cages$VO2, na.rm = TRUE)
[1] 0.129211
> var(cages$VCO2, na.rm = TRUE)
[1] 0.1010742
> var(cages$EE, na.rm = TRUE)
[1] 0.0112287