Nothing
###############################################################################
## Remove bands below LOD
###############################################################################
RFLPlod <- function(x, LOD){
if(length(LOD) > 1){
warning("Only first element of 'LOD' is used.")
LOD <- LOD[1]
}
message(paste(sum(x$MW < LOD), "bands were removed."))
x[x$MW >= LOD, ]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.