docs: improve consistency of code style in examples

Author: stewid

man/events_SEIR.Rd

@@ -11,12 +11,14 @@ set_num_threads(1)
 ## births, deaths and between-node movements of individuals.
 u0 <- u0_SEIR()
 u0$E[1] <- 10
-model <- SEIR(u0      = u0,
-              tspan   = seq(from = 1, to = 4*365, by = 7),
-              events  = events_SEIR(),
-              beta    = 0.16,
-              epsilon = 0.25,
-              gamma   = 0.01)
+model <- SEIR(
+    u0      = u0,
+    tspan   = seq(from = 1, to = 4*365, by = 7),
+    events  = events_SEIR(),
+    beta    = 0.16,
+    epsilon = 0.25,
+    gamma   = 0.01
+)
 
 ## Display the number of cattle affected by each event type per day.
 plot(events(model))

man/events_SIR.Rd

@@ -12,11 +12,13 @@ set_num_threads(1)
 ## of individuals.
 u0 <- u0_SIR()
 u0$I[1] <- 1
-model <- SIR(u0     = u0,
-             tspan  = seq(from = 1, to = 4*365, by = 1),
-             events = events_SIR(),
-             beta   = 0.16,
-             gamma  = 0.01)
+model <- SIR(
+    u0     = u0,
+    tspan  = seq(from = 1, to = 4*365, by = 1),
+    events = events_SIR(),
+    beta   = 0.16,
+    gamma  = 0.01
+)
 
 ## Display the number of cattle affected by each event type per day.
 plot(events(model))

man/events_SIS.Rd

@@ -12,11 +12,13 @@ set_num_threads(1)
 ## of individuals.
 u0 <- u0_SIS()
 u0$I[1] <- 1
-model <- SIS(u0     = u0,
-             tspan  = seq(from = 1, to = 4*365, by = 1),
-             events = events_SIS(),
-             beta   = 0.16,
-             gamma  = 0.01)
+model <- SIS(
+    u0     = u0,
+    tspan  = seq(from = 1, to = 4*365, by = 1),
+    events = events_SIS(),
+    beta   = 0.16,
+    gamma  = 0.01
+)
 
 ## Display the number of cattle affected by each event type per day.
 plot(events(model))

man/events_SISe.Rd

@@ -12,22 +12,24 @@ set_num_threads(1)
 ## individuals.
 u0 <- u0_SISe()
 u0$I[1] <- 10
-model <- SISe(u0 = u0,
-              tspan = seq(from = 1, to = 4*365, by = 7),
-              events = events_SISe(),
-              phi = 0,
-              upsilon = 1.8e-2,
-              gamma = 0.1,
-              alpha = 1,
-              beta_t1 = 1.0e-1,
-              beta_t2 = 1.0e-1,
-              beta_t3 = 1.25e-1,
-              beta_t4 = 1.25e-1,
-              end_t1 = 91,
-              end_t2 = 182,
-              end_t3 = 273,
-              end_t4 = 365,
-              epsilon = 0)
+model <- SISe(
+    u0 = u0,
+    tspan = seq(from = 1, to = 4*365, by = 7),
+    events = events_SISe(),
+    phi = 0,
+    upsilon = 1.8e-2,
+    gamma = 0.1,
+    alpha = 1,
+    beta_t1 = 1.0e-1,
+    beta_t2 = 1.0e-1,
+    beta_t3 = 1.25e-1,
+    beta_t4 = 1.25e-1,
+    end_t1 = 91,
+    end_t2 = 182,
+    end_t3 = 273,
+    end_t4 = 365,
+    epsilon = 0
+)
 
 ## Display the number of cattle affected by each event type per day.
 plot(events(model))

man/events_SISe3.Rd

@@ -13,26 +13,28 @@ set_num_threads(1)
 ## between-node movements of individuals.
 u0 <- u0_SISe3
 u0$I_1[1] <- 10
-model <- SISe3(u0 = u0,
-               tspan = seq(from = 1, to = 4*365, by = 7),
-               events = events_SISe3,
-               phi = rep(0, nrow(u0)),
-               upsilon_1 = 1.8e-2,
-               upsilon_2 = 1.8e-2,
-               upsilon_3 = 1.8e-2,
-               gamma_1 = 0.1,
-               gamma_2 = 0.1,
-               gamma_3 = 0.1,
-               alpha = 1,
-               beta_t1 = 1.0e-1,
-               beta_t2 = 1.0e-1,
-               beta_t3 = 1.25e-1,
-               beta_t4 = 1.25e-1,
-               end_t1 = 91,
-               end_t2 = 182,
-               end_t3 = 273,
-               end_t4 = 365,
-               epsilon = 0)
+model <- SISe3(
+    u0 = u0,
+    tspan = seq(from = 1, to = 4*365, by = 7),
+    events = events_SISe3,
+    phi = rep(0, nrow(u0)),
+    upsilon_1 = 1.8e-2,
+    upsilon_2 = 1.8e-2,
+    upsilon_3 = 1.8e-2,
+    gamma_1 = 0.1,
+    gamma_2 = 0.1,
+    gamma_3 = 0.1,
+    alpha = 1,
+    beta_t1 = 1.0e-1,
+    beta_t2 = 1.0e-1,
+    beta_t3 = 1.25e-1,
+    beta_t4 = 1.25e-1,
+    end_t1 = 91,
+    end_t2 = 182,
+    end_t3 = 273,
+    end_t4 = 365,
+    epsilon = 0
+)
 
 ## Display the number of cattle affected by each event type per day.
 plot(events(model))