sim <- generateData(n = 150, p = 10, q = 8, rho = 0.1, missing.type = "MCAR")
# \donttest{
## Fit a model without CV (plots GoF surface)
fit <- missoNet(X = sim$X, Y = sim$Z, verbose = 0)
plot(fit, type = "heatmap") # GoF heatmap
plot(fit, type = "scatter", plt.surf = TRUE) # GoF 3D scatter
## Cross-validation (plots CV error surface)
cvfit <- cv.missoNet(X = sim$X, Y = sim$Z, verbose = 0)
plot(cvfit, type = "heatmap", detailed.axes = FALSE)
plot(cvfit, type = "scatter", plt.surf = FALSE)
# }
Run the code above in your browser using DataLab