diff --git a/README.md b/README.md index 26b07c6..d408894 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,7 @@ This repository contains data and code for the manuscript -*"Interventions can shift the thermal optimum for disease: Evidence from human schistosomiasis"* +*"Interventions can shift the thermal optimum for parasitic disease transmission"* by K.H. Nguyen1*, P.H. Boersch-Supan2*, R.B. Hartman, S.Y. Mendiola, V.J. Harwood, D.J. Civitello, J.R. Rohr (2021) Corresponding authors: diff --git a/data/cercarial_shedding_observations.csv b/data/cercarial_shedding_observations.csv index b39b24b..d5ce760 100644 --- a/data/cercarial_shedding_observations.csv +++ b/data/cercarial_shedding_observations.csv @@ -3,7 +3,7 @@ #name: shedding #title: Temperature-specific shedding success of Schistosoma mansoni cercaria from # Biomphalaria glabrata snails -#author: K.H. Nguyen, P.H. Boersch-Supan, V.J. Harwood, J.R. Rohr +#author: K.H. Nguyen, P.H. Boersch-Supan, R.B. Hartman, S.Y. Mendiola, V.J. Harwood, D.J. Civitello, J.R. Rohr #path: https://github.com/pboesu/schistosomiasis #fields: #- name: temperature diff --git a/data/trait_observations.csv b/data/trait_observations.csv index d370bbe..1820567 100644 --- a/data/trait_observations.csv +++ b/data/trait_observations.csv @@ -4,7 +4,7 @@ #title: Temperature-specific observations of various Schistosoma mansoni and Biomphalaria # traits #path: https://github.com/pboesu/schistosomiasis -#author: K.H. Nguyen, P.H. Boersch-Supan, V.J. Harwood, J.R. Rohr +#author: K.H. Nguyen, P.H. Boersch-Supan, R.B. Hartman, S.Y. Mendiola, V.J. Harwood, D.J. Civitello, J.R. Rohr #fields: #- name: temperature # type: number diff --git a/predict_temperature_specific_R0.R b/predict_temperature_specific_R0.R index c8232ed..343c40a 100644 --- a/predict_temperature_specific_R0.R +++ b/predict_temperature_specific_R0.R @@ -1,5 +1,5 @@ # Example code to predict temperature-specific R0 curves for schistosomiasis with and without snail control -# Supplement to "Interventions can shift the thermal optimum for disease: Evidence from human schistosomiasis" by K.H. Nguyen, P.H. Boersch-Supan, V.J. Harwood, J.R. Rohr (2020) +# Supplement to "Interventions can shift the thermal optimum for parasitic disease transmission" by K.H. Nguyen, P.H. Boersch-Supan, R.B. Hartman, S.Y. Mendiola, V.J. Harwood, D.J. Civitello, J.R. Rohr (2021) # https://github.com/pboesu/schistosomiasis library(dplyr) @@ -45,6 +45,6 @@ for (i in 1:nrow(clean_parameters_wide)){ #for each row } #plot normalised R0 curves -plot(R_0_temp_no_control/max(R_0_temp_no_control) ~ clean_parameters_wide_no_control$temperature, type = 'l', main='', xlab='Temperature (°C)', ylab = latex2exp::TeX('R_{0}/max(R_{0})'), lwd = 2) +plot(R_0_temp_no_control/max(R_0_temp_no_control) ~ clean_parameters_wide_no_control$temperature, type = 'l', main='', xlab='Temperature (°C)', ylab = latex2exp::TeX('R_{0}/max(R_{0})'), lwd = 2) lines(R_0_temp_snail_control/max(R_0_temp_snail_control) ~ clean_parameters_wide$temperature, type = 'l', col = 'darkgreen',lty = 1, lwd = 2) legend('topright', lwd = c(2,2), col = c('black','darkgreen'), legend = c('no control','snail control'), bty = 'n', cex = 0.8)