# \donttest{
n <- 200
G <- 2
weight <- rep( 0.5, 2 )
mu1 <- rep(-5 , 2 )
mu2 <- rep( 5 , 2 )
sigma1 <- matrix( c( 0.4, -0.20, -0.20, 0.5 ), nrow = 2, ncol = 2 )
sigma2 <- matrix( c( 0.5, 0.20, 0.20, 0.4 ), nrow = 2, ncol = 2 )
lambda1 <- c(-5, -5 )
lambda2 <- c( 5, 5 )
theta1 <- c( 10, 12 )
theta2 <- c( 10, 20 )
mu <- list(mu1, mu2)
sigma <- list( sigma1 , sigma2 )
lambda <- list( lambda1, lambda2)
theta <- list( theta1 , theta2 )
param <- c("a","b")
PDF <- quote( (b/2)^(a/2)*x^(-a/2 - 1)/gamma(a/2)*exp( -b/(x*2) ) )
tick <- c(1, 1)
Y <- rmix(n, G, weight, model = "restricted", mu, sigma, lambda, family = "igamma", theta)
ofim <- ofim1(Y[, 1:2], G, weight, mu, sigma, lambda, family = "igamma",
skewness = "TRUE", param, theta, tick, h = 0.001, N = 3000, level = 0.05, PDF)
configuration1(Y[, 1:2], G, weight = weight, mu, sigma, lambda, family = "igamma",
skewness = "TRUE", param, theta, ofim1_solve = ofim$Fisher,
sigma_arrange1 = ofim$index_sigma, level = 0.05)
# }
Run the code above in your browser using DataLab