R/psiBY3.R

psiBY3 <-
function(t,c3)
{(exp(-sqrt(c3))*as.numeric(t <= c3))+(exp(-sqrt(t))*as.numeric(t >c3))}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.