derpsiBY3 <- function(t,c3) { res=NULL for (i in 1:length(t)) { if (t[i] <= c3) { res=rbind(res,0) } else {res=rbind(res,-exp(-sqrt(t[i]))/(2*sqrt(t[i]))) } } res }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.