prepare structure for R package

[valse.git] / R / generateIO.R

library(MASS) #simulate from a multivariate normal distribution

generateIO = function(meanX, covX, covY, pi, beta, n){ #don't need meanX
  size_covX = dim(covX)
  p = size_covX[1]
  k = size_covX[3]
  
  size_covY = dim(covY)
  m = size_covY[1]
  
  Y = matrix(0,n,m)
  BX = array(0, dim=c(n,m,k))
  
  for(i in 1:n){
    for(r in 1:k){
      BXir = rep(0,m)
      for(mm in 1:m){
        Bxir[[mm]] = X[i,] %*% beta[,mm,r]
      }
      Y[i,]=Y[i,] + pi[[r]] * mvrnorm(1,BXir, covY[,,r])
    }
  }
  
  return(list(X,Y))
}