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