set.seed(1, kind = "L'Ecuyer-CMRG")
D.training <- models("gaussian", K = 2, p = 500, Ka = 1)
# plot for class "glmtrans"
fit.gaussian <- glmtrans(D.training$target, D.training$source)
plot(fit.gaussian)
# \donttest{
# plot for class "glmtrans_source_detection"
detection.gaussian <- source_detection(D.training$target, D.training$source)
plot(detection.gaussian)
# }
Run the code above in your browser using DataLab