Nothing
PT2Theta <-
function(P,Temp,w=0.0,consts=export_constants()){
rdcp=consts["Rd"]/moistCp(w,consts)
return(as.double(Temp*(consts["P1000"]/P)^rdcp))
}
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.