# toy <- generate.toydata(N = N,
# zDim = zdim, xDim = xdim, yDim = ydim,
# marginal.covariances = marginalCovariances,
# priors = priors)
# res <- fit.dependency.model(toy$X, toy$Y,
# zDimension = zdim,
# marginalCovariances = marginalCovariances,
# priors = priors,
# matched = FALSE)
# vec <- compare.estimate.and.truth(res, toy)
#
Run the code above in your browser using DataLab