validate.input <- function(summary.files, reference, lambda, nsamples){
if(!is.null(summary.files)){
validate.summary.files(summary.files)
}
if(!is.null(reference)){
validate.reference(reference)
}
if(!is.null(summary.files) && !is.null(lambda)){
validate.lambda(summary.files, lambda)
}
if(!is.null(lambda) && !is.null(nsamples)){
validate.sample.size(lambda, nsamples)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.