filter weather by rain_threshold; apply data over spores_each_wet_hour

R/spread_spores.R

@@ -15,7 +15,21 @@ spread_spores <-
     #   max_new_growing_points_limit = max_new_gp
     # ))
 
-    for (hour in which(weather_hourly[["rain"]] >= 0.2)) {
+    # filter weather data to just wet hours
+    wet_hour_weather <-
+      weather_hourly[rain >= 0.2,]
+
+    newly_infected_list <-
+      lapply(
+        seq_len(nrow(wet_hour_weather)),
+        FUN = spores_each_wet_hour,
+        weather_hourly = weather_day,
+        paddock = paddock,
+        max_interception_probability = max_interception_probability,
+        spore_interception_parameter = spore_interception_parameter
+      )
+
+
       newlyInfectedList <- c(
         newlyInfectedList,
         spores_each_wet_hour(