Nothing
arrangePlots <-
function(n.plots, landscape = FALSE) {
# version 1.1 (14 Dec 2023)
# used internally by optiThresh
if (n.plots <= 1) return(c(1, 1))
root <- sqrt(n.plots)
large <- ceiling(root)
small <- round(root)
if (landscape) plots.rc <- c(small, large)
else plots.rc <- c(large, small)
return(plots.rc)
}
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.