# NOT RUN {
library(sGMRFmix)
set.seed(314)
train_data <- generate_train_data()
fit <- sGMRFmix(train_data, K = 7, rho = 10)
test_data <- generate_test_data()
compute_anomaly_score(fit, test_data)
# }
Run the code above in your browser using DataCamp Workspace