target <- list()
target$generate_randomness <- function(nobservations){
return(rnorm(nobservations))
}
target$thetadim = 2
metricL1 = function(xvec,yvec) mean(abs(xvec - yvec))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.