https://github.com/cran/IQCC
Tip revision: ef4202fc61e884dce81758e0f31c6f1ae429e523 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC
version 0.6
version 0.6
Tip revision: ef4202f
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)
}