Nothing
`p4pl` <-
function(theta=0,a=1,b=0,c=0,d=1,lower.tail=TRUE,log.p=FALSE) {
if(lower.tail==TRUE) result <- c + (d-c)/(1+exp(-a*(theta-b)))
if(lower.tail==FALSE) result <- 1-(c + (d-c)/(1+exp(-a*(theta-b))))
if(log.p==TRUE) result <- log(result)
return(result)
}
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.