#' A template for function creation
#' @param arg Defaults to 4.
#' @family template
#' @keywords setup
#' @export setUp
#' @examples
#' skeleton(1)
#' skeleton(2)
skeleton <- function(arg = 4) {
if(arg ==1){
return("not implemented 1")
}else if(arg == 2){
return("not implemented 2")
}else if(arg ==3){
return("not implemented 3")
}else if(arg ==4){
return("not implemented 4")
}else{
return("not implemented ...")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.