Nothing
fleishman.roots <-
function(p, r){
f = rep(NA,length(p))
f[1] = p[1]^2 + 6*p[1]*p[3]+2*p[2]^2+15*p[3]^2-1
f[2] = 2*p[2]*(p[1]^2+24*p[1]*p[3]+105*p[3]^2+2)-r[1]
f[3] = p[1]*p[3]+p[2]^2*(1+p[1]^2+28*p[1]*p[3])+p[3]^2*(12+48*p[1]*p[3]+141*p[2]^2+225*p[3]^2)-r[2]/24
return(f)}
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.