diff --git a/Codes/Function_Conditional_Incidence_Quantiles.R b/Codes/Function_Conditional_Incidence_Quantiles.R index be8d541374c5ff2182dc56cf6e3d1d8c76e7fe67..11b0026068af81c6ee00e35def630ae30a3b14c5 100644 --- a/Codes/Function_Conditional_Incidence_Quantiles.R +++ b/Codes/Function_Conditional_Incidence_Quantiles.R @@ -348,25 +348,25 @@ Conditional_incidence_Quantiles_4_factors<-function(Data_frame_1, Data_frame_2,P if (quarter==1){ Env_Pathogen_data_df<-subset(Env_Pathogen_data_df_all,Env_Pathogen_data_df_all$daylength<=breaks_daylength[2]) Env_Laboratory_data_df<-subset(Env_Laboratory_data_df_all,Env_Laboratory_data_df_all$daylength<=breaks_daylength[2]) - hours_char<-as.character(round(breaks_daylength[2])) + hours_char<-as.character(round(breaks_daylength[2],1)) } if (quarter==2){ Env_Pathogen_data_df<-subset(Env_Pathogen_data_df_all,Env_Pathogen_data_df_all$daylength>breaks_daylength[2] & Env_Pathogen_data_df_all$daylength<=breaks_daylength[3]) Env_Laboratory_data_df<-subset(Env_Laboratory_data_df_all,Env_Laboratory_data_df_all$daylength>breaks_daylength[2] & Env_Laboratory_data_df_all$daylength<=breaks_daylength[3]) - hours_char<-as.character(round(breaks_daylength[3])) + hours_char<-as.character(round(breaks_daylength[3],1)) } if (quarter==3){ Env_Pathogen_data_df<-subset(Env_Pathogen_data_df_all,Env_Pathogen_data_df_all$daylength>breaks_daylength[3] & Env_Pathogen_data_df_all$daylength<=breaks_daylength[4]) Env_Laboratory_data_df<-subset(Env_Laboratory_data_df_all,Env_Laboratory_data_df_all$daylength>breaks_daylength[3] & Env_Laboratory_data_df_all$daylength<=breaks_daylength[4]) - hours_char<-as.character(round(breaks_daylength[4])) + hours_char<-as.character(round(breaks_daylength[4],1)) } if (quarter==4){ Env_Pathogen_data_df<-subset(Env_Pathogen_data_df_all,Env_Pathogen_data_df_all$daylength>breaks_daylength[4]) Env_Laboratory_data_df<-subset(Env_Laboratory_data_df_all,Env_Laboratory_data_df_all$daylength>breaks_daylength[4]) - hours_char<-as.character(round(breaks_daylength[5])) + hours_char<-as.character(round(breaks_daylength[5],1)) }