diff --git a/FUNCTIONS.R b/FUNCTIONS.R index e3bdc23e7562a437fcf43dc14556a103a356eb7a..de65809bfaf3f720883ef01e45643b2ea7b89a4f 100644 --- a/FUNCTIONS.R +++ b/FUNCTIONS.R @@ -229,7 +229,7 @@ runRelativeAntibodyUnits = function(fname1, fname2, MFI_CSV, MFI_N_ANTIGENS, TEM dplyr::mutate(Location = paste0(1:n(), "(1,", Location, ")")) # Remove columns that are not MFI readings or sample code / location - L <- L[, !(colnames(L) %in% c("Region", "Gate", "Total", "% Agg Beads", "Sampling Errors"))] + L <- L[, !(colnames(L) %in% c("Region", "Gate", "Total", "% Agg Beads", "Sampling Errors", "Description"))] # Antigen names clean-up colnames(L) = gsub("\\..*", "", colnames(L))