Nothing
#source("moninit")
library("RCALI")
# Cubature:
param <- list( output=1, input=2, dz=c(0,21), dp=c(100,0), tz=c(0,1))
califlopp("data2",c(fpollen,fseed), param=param)
# Grid:
param <- list(method="grid", grid=list(step=c(50,50)))
califlopp("data2",dispf=c(3,1), param=param)
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.