Nothing
dJ2 <- function(gl.ini, p){
a <- (gl.ini/(gl.ini+3))^0.5
b <- trigamma(gl.ini/2)-trigamma((gl.ini+1)/2) - (2*(gl.ini+3)/(gl.ini*(gl.ini+1)^2))
c <- (gl.ini+1)/(gl.ini+3)
J1 <- a*(b^0.5)*(c^(p/2))
return(J1)
}
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.