Nothing
P2A.lin = function(p, z, az, ATM){
ceff = as.vector(ATM$c0 + c(ATM$wx0, ATM$wy0) %*% c(sin(az*pi/180), cos(az*pi/180))
+ (z - ATM$z0) * (ATM$gc + c(ATM$gwx, ATM$gwy) %*% c(sin(az*pi/180), cos(az*pi/180))))
a = asin(p * ceff) * 180/pi
return(a)
}
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.