# Hint function. IMPORTANT FOR THE GROUP THAT HAS TO LOOK AT OUR PACKAGE: Read the very beginning of the
# vignette before looking at this function.
# This function is not relevant for the rest of the package.
#' @export
hint <- function(x = NULL){
if (x == 1){
cat("The wrong part(s) are in the ppcc part.")
} else if (x == 2){
cat("We are looking for shape parameters, right?")
} else if (x == 3){
cat("Try to use the following code:", "\n", "a <- sort(rexp(1000, 5))", "\n", "summary(replicate(1000, cor(a, sort(rexp(1000, 1)))))", "\n", "Evaluate the result.")
} else if (x == 4){
cat("Exponential and Normal distribution.")
} else {
cat("Error. Please select a hint (x) from 1 to 4.")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.