ckfaber / mirzadeh_cal Goto Github PK

Need ability to demarcate changes in diet/temp/other at user-specified point in recording

Noticed issue where cumulative values for the entire experiment are miscalculated.

1. Hourly food intake
2. cumulative food intake
3. Foodintake normalized to BW
4. Energy Expenditure
5. Cumulative EE
6. Energy Balance
7. Cumulative EB
8. EE normalized to BW
9. EB normalized to BW
10. Locomotion

In the tsplot function created in Cal_Plot.qmd, there remains a call to scale_fill_manual where the colors for chABC and HIchABC are hard-coded. Need to figure out how to change this so that turquoise and darkorange are applied to SEM ribbon no matter the grouping.

Lines 89-102 of Cal_Clean.R.
This causes some issues in trying to trim days with <24h recording from photoperiod-averaged plots. Working on a fix.

df %<>%
  mutate(ZT = plyr::mapvalues(hour, from = (0:23), to = c(18:23,0:17)),.before = Sex) %>%     
  mutate(Photoperiod = as.factor(plyr::mapvalues(ZT, from = c(0:23), to = c(rep(1,12),rep(0,12)))),.before = ZT) %>%
  mutate(exp_day = plyr::mapvalues(day, from = unique(day), to = 1:length(unique(day))),.after = DateTime) %>%
  rename(VO2 = VO2_M, 
         Animal = ID_Code, 
         VCO2 = VCO2_M, 
         EE = kcal_hr_M, 
         RER = RER_M, 
         FoodIn.cum = FoodInA_M, 
         WaterIn.cum = WaterInA_M, 
         AllMeters = AllMeters_R,
         BodyMass = BodyMass_M,
         VH2O = VH2O_M)