prob.fun<-function(a){
if(is.infinite(exp(a))){
if(a>0){
return(1)
}else{
return(0)
}
}else{
return(exp(a)/(1+exp(a)))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.