# NOT RUN {
K <- 5
n <- 50
d <- 50
dat <- gforce.generator(K,d,n,3,graph='scalefree')
th_tilde <- gforce.glatent_confints(X_vals = dat$X,clusters = dat$group_assignments,
use_cv = TRUE,graph='latent')
# }
Run the code above in your browser using DataLab