data(eem_list)
eem_list2 <- eem_dilution(eem_list, dilution = 5)
dilutionT <- data.frame(dilution = rep(5, length(eem_list)))
row.names(dilutionT) <- eem_names(eem_list)
dilutionT
eem_list3 <- eem_dilution(eem_list, dilution = dilutionT)
Run the code above in your browser using DataLab