sanity_check_fine <- function(df, Dates=unique(df$Date),
Pre_Threshold_Temp_Upper=0.2,
Pre_Threshold_Temp_Lower=0.2,
Post_Threshold_Temp_Upper=5,
Post_Threshold_Temp_Lower=0.2) {}
We could easily add two params that define the time period we consider pre-pulse and post-pulse. Currently defaults are
pre-pulse(00:00-02:00)
post-pulse (02:01-15:00)