# NOT RUN {
set.seed(2)
data(u133VsExon)
u <- Uhat(u133VsExon[sample(19577, 500), ]) # Subset for faster fitting
theta1 <- fit.full.GMCM(u, m = 2, method = "L-BFGS")
goodness.of.fit(theta1, u) # AIC
goodness.of.fit(theta1, u, method = "BIC")
# }
# NOT RUN {
theta2 <- fit.full.GMCM(u, m = 3, method = "L-BFGS")
goodness.of.fit(theta2, u)
goodness.of.fit(theta2, u, method = "BIC")
# }
Run the code above in your browser using DataLab