R/ddel.R

Defines functions ddwd ddel

ddel=function(x, method) {
 switch(method, dwd=ddwd(x), exponential=exp(x/5)/5, logistic=exp(x/2)/(1+exp(x/2))/2)
}

ddwd=function(x) {
 ind=x>=-0.5
 ifelse(ind, 1, 0)+ifelse(ind, 0, 0.25/x^2)
}
menghaomiao/itrrnr documentation built on June 21, 2020, 2:22 a.m.