Nothing
lactin_wrapper <-
function(Tmean, parms) {
calc <- lactin(Tmean, parms[1], parms[2], parms[3], parms[4])
if(calc < 0) calc <- 0
return(as.numeric(calc))
}
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.