## File Name: lsdm_irf_distance_mad.R
## File Version: 0.04
lsdm_irf_distance_mad <- function(data, data_fitted, wgt_theta, use_abs=TRUE)
{
dist <- data - data_fitted
if (use_abs){
dist <- abs(dist)
}
res <- rowSums(dist*wgt_theta)
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.