## Not run: ------------------------------------
# # load test data
#
# data(gomms_test_data);
#
# # estimate factor scores
# cdat <- as.matrix(gomms_test_data[,-ncol(gomms_test_data)]);
# rslt <- gomms(cdat);
#
# # plot estimated factor scores
# y <- as.matrix(gomms_test_data$group);
# gomms.plot(rslt, y);
## ---------------------------------------------
Run the code above in your browser using DataLab