diff --git a/R/io.R b/R/io.R index 0340770..825f983 100644 --- a/R/io.R +++ b/R/io.R @@ -486,7 +486,8 @@ make_se_customized <- function(proteins_unique, columns, expdesign, log2transfor ) } - colnames(raw)[matched] <- expdesign$label + rownames(exp_design) <- exp_design$sample_name + colnames(raw)[matched] <- expdesign$sample_name raw <- raw[, !is.na(colnames(raw))][rownames(expdesign)] # Select the rowData