Cluster application times about mungbean_pm HOT 5 CLOSED

Code is incorporated into the chapter 'Prepare data'.

from mungbean_pm.

I have been adding this data grouping to the master branch in 04_Prep_data.rmd. I noted that with the code supplied in your md above allocated the control treatments to late clusters.

I updated this with the following code

slim_PM_dat[slim_PM_dat$fungicide_ai == "control", c("fungicide_timing_1", "fungicide_timing_2", "fungicide_timing_3","cluster_1", "cluster_2","cluster_3")] <- "control"

from mungbean_pm.

Ah, it did? Good catch.

I'm trying to follow where your code fits what I did?

from mungbean_pm.

I've fixed the code in my branch to address the issue.

from mungbean_pm.

I updated the clustering code in your branch to handle NA values.

mb <-
  mb %>%
  mutate(
    cluster_1 = case_when(
      is.na(fungicide_timing_1) ~ NA_character_,
      fungicide_timing_1 < 0 ~ "Early",
      fungicide_timing_1 >= 0 &
        fungicide_timing_1 < 4 ~ "Recommended",
      fungicide_timing_1 > 4 ~ "Late"
    )
  ) %>%
  mutate(
    cluster_2 = case_when(
      is.na(fungicide_timing_2) ~ NA_character_,
      fungicide_timing_2 < 13 ~ "Early",
      fungicide_timing_2 >= 13 &
        fungicide_timing_2 < 17 ~ "Recommended",
      fungicide_timing_2 > 17 ~ "Late"
    )
  ) %>% 
  mutate(
    cluster_3 = case_when(
      is.na(fungicide_timing_3) ~ NA_character_,
      fungicide_timing_3 < 14 ~ "Early",
      fungicide_timing_3 == 14 ~ "Recommended"
    )
  )

from mungbean_pm.