#' # Optimize parameters from estimated μ
#' io <- generateSampleIO(100,
#' 1/2, matrix(c(1,-2,3,1),ncol=2), c(0,0), "logit")
#' # Optimize parameters from estimated μ
#' io <- generateSampleIO(100,
#' 1/2, matrix(c(1,-2,3,1),ncol=2), c(0,0), "logit")