# \donttest{
data(eem_list)
eem_list <- eem_list[1:6]
class(eem_list) <- "eemlist"
remove_scatter <- c(FALSE, TRUE, TRUE, TRUE)
remove_scatter_width = c(15, 10, 16, 12)
eem_list <- eem_rem_scat(eem_list, remove_scatter, remove_scatter_width)
eem_list <- eem_interp(eem_list, cores = 2)
ggeem(eem_list)
eem_list2 <- eem_setNA(eem_list, ex = 200:280, interpolate=FALSE)
ggeem(eem_list2)
eem_list3 <- eem_interp(eem_list2, type = 1, extend = TRUE, cores = 2)
ggeem(eem_list3)
eem_list3 <- eem_interp(eem_list2, type = 1, extend = FALSE, cores = 2)
ggeem(eem_list3)
# }
Run the code above in your browser using DataLab