Nothing
set_baseline <-
function(nr,nc,b=1){
# Script to create a simulated baseline
print(c(nr,nc))
out<-runif(nr*nc,min=0,max=b)
print(length(out))
print(dim(out))
dim(out)<-c(nr,nc)
print(dim(out))
return(out)
}
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.