Nothing
## Startup functions ------------------------------------
#' .onAttach start message
#'
#' @param libname defunct
#' @param pkgname defunct
#'
#' @return invisible()
.onAttach <- function(libname, pkgname) {
start_message <- c(" \n"
, " LNIRT v", packageDescription("LNIRT")$Version, " (log-normal RT-IRT Modeling)", "\n"
, " ", rep('-', 41), "\n"
, " J.-P. Fox & K. Klotzke \n", sep = "")
#, " ", rep('-', 20), "\n", sep = "")
packageStartupMessage(start_message)
invisible()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.