inst/reproducepointestimation/gamma_normal_functions.R

target <- list()

target$generate_randomness <- function(nobservations){
  return(rnorm(nobservations))
}

target$thetadim = 2

metricL1 = function(xvec,yvec)  mean(abs(xvec - yvec))
pierrejacob/winference documentation built on Feb. 17, 2020, 10:28 p.m.