## Not run:
# invcdfnames <- c("qt","qpois","qnorm")
# paramslists <- list(
# m1 = list(df = 3),
# m2 = list(lambda = 5),
# m3 = list(mean = 0, sd = 1)
# )
# cor_matrix_correct <- matrix(c(1,0.5,-0.3,0.5,1,0.4,-0.3,0.4,1), 3)
# cor_matrix_wrong <- matrix(c(1,0.94,-0.3,0.94,1,0.4,-0.3,0.4,1), 3)
# check_input_cormat(invcdfnames, paramslists, cor_matrix_correct)
# check_input_cormat(invcdfnames, paramslists, cor_matrix_wrong)
# ## End(Not run)
Run the code above in your browser using DataLab