Content - 95c5994e0435d6083f5747e7524f3bff83e07924 - 6493792/double.exp.R

double.exp.R

double.exp<- function(x) {
# double exponential weight function 
       .5* exp(-abs(x))
    }