https://github.com/cran/IQCC
Tip revision: 53c14e2d35deeae90e359b99cad0db06d573eb53 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC
version 0.5
version 0.5
Tip revision: 53c14e2
data.1.R
data.1 <- function(m, n, mu, Sigma)
{
p <- dim(Sigma)[1]
if(n == 1)
{
u <- matrix(nrow = m, ncol = p)
for(i in 1:m)
{
N <- mvrnorm(n, mu, Sigma)
u[i, ] <- N
}
}
if(n > 1)
{
u <- array(dim = c(n, p, m))
for(i in 1:m)
{
N <- mvrnorm(n, mu, Sigma)
u[, , i] <- N
}
}
return(u)
}