From 6e04ddaca188ad95cae90a8dc266ff798baef7de Mon Sep 17 00:00:00 2001
From: gl0020 <g.loiacono@surrey.ac.uk>
Date: Mon, 18 Dec 2023 19:34:14 +0000
Subject: [PATCH] update
---
Codes/Function_Conditional_Incidence_Quantiles.R | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/Codes/Function_Conditional_Incidence_Quantiles.R b/Codes/Function_Conditional_Incidence_Quantiles.R
index be8d541..11b0026 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))
}
--
GitLab