Nothing
"flo2f" <-
function(f, pp=NA, xlo=NULL) {
if(! check.fs(f)) return(FALSE)
if(! is.null(xlo)) pp <- xlo$pp
if(is.na(pp)) {
warning("pp can not be NA")
return(FALSE)
} else {
if(pp < 0 || pp > 1) {
warning("pp argument is not a valid nonexceedance probability")
return(FALSE)
}
}
zs <- pp+(1-pp)*f
if(any(zs < 0) || any(zs > 1)) {
warning("invalid nonexceedance probability after pp conditioning")
return(FALSE)
}
return(zs)
}
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.