require(dplyr)
data(eem_list)
eem_list_red <- eem_red2smallest(eem_list)
# create an eemlist where data is missing
eem_list2 <- eem_exclude(eem_list,
list("ex" = c(280,290,350),
"em" = c(402,510),
"sample" = c()))
# modify names of samples with missing data
eem_names(eem_list2) <- paste0("x",eem_names(eem_list2))
# combined the lists with and without missing data
eem_list3 <- eem_bind(eem_list,eem_list2)
#ggeem(eem_list3)
# reduce the data in the whole sampleset to the smallest wavelengths that are present in all samples
eem_list4 <- eem_red2smallest(eem_list3)
#ggeem(eem_list4)
Run the code above in your browser using DataLab