Nothing
lambda.u = function(nu){
H = length(nu)
ph = rep(0, H)
ph <- .C("lambda", as.double(nu), as.integer(H), as.double(ph), PACKAGE="BHTSpack")[[3]]
return(ph)
}
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.