#' @param beta regression matrix, of size p*m*k
#' @param covY covariance for the response vector (of size m*m)
#'
#' @param beta regression matrix, of size p*m*k
#' @param covY covariance for the response vector (of size m*m)
#'
#'
#' @export
generateXY <- function(n, prop, meanX, beta, covX, covY)
#'
#' @export
generateXY <- function(n, prop, meanX, beta, covX, covY)