Nothing
Date: r Sys.time()
for (i in 1L:length(res.amptest())) { cat(colnames(processed.data())[i], "\n") x <- res.amptest()[[i]] summary(x) plot(x) }
cat("Input file name: ", input[["input.file"]][["name"]], "\n") cat("Test chosen: ", input[["amptester.manual"]], "\n") cat("Noise level: ", input[["amptester.noiselevel"]], "\n")
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.