## Not run:
# # Load the data
# data(PHAT0train)
# data(PHAT0test)
#
# # Run the analysis
# photoZest <- CosmoPhotoZestimator(PHAT0train, PHAT0test, 6)
#
# # Create a boxplot showing the results
# plotDiagPhotoZ(photoz = photoZest, specz = PHAT0test$redshift, type = "box")
# ## End(Not run)
Run the code above in your browser using DataLab