#' @export
#this is the starting function of the package
Analyze4C <- function()
{
cat(" *****************************\n Analyze 4C \n *****************************\n\n\n")
#here needs to be a welcome and description
main.menu()
setwd("..") #returning to root folder
#exiting message
cat("thank you\ncome again...\n\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.