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")
if (FALSE) {
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