set trial_ref to factor()

Closes #23
openplantpathology · May 30, 2020 · fa40d4d · fa40d4d
1 parent e8cff18
commit fa40d4d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/slimming_PM_dat.R b/R/slimming_PM_dat.R
@@ -9,7 +9,7 @@ slim_PM_dat <- data.frame(
    trial = paste(PM_MB_Mtemp$trial_ref, PM_MB_Mtemp$year,
                  PM_MB_Mtemp$location,PM_MB_Mtemp$host_genotype,
                  PM_MB_Mtemp$row_spacing, sep = "_"),
-   trial_ref = as.character(PM_MB_Mtemp$trial_ref),
+   trial_ref = as.factor(PM_MB_Mtemp$trial_ref),
    year = as.integer(PM_MB_Mtemp$year),
    host_genotype = PM_MB_Mtemp$host_genotype,
    location = as.character(PM_MB_Mtemp$location),