Nothing
.ROStcalc <- function(FUELTYPE,ROSeq,HR,CFB){
alpha <- ifelse(FUELTYPE %in% c("C1","O1A","O1B","S1","S2","S3","D1"),
0.115, # /* page 41 */
0.115 - 18.8 * (CFB**2.5) * exp(-8* CFB)) # /* 72 */
ROSt <- ROSeq * (1 - exp(-alpha * HR)) # /* 70 */
ROSt}
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.