Nothing
#' Print function for output from nca()
#'
#' @param x output object (list) from nca()
#' @param ... variables past on to print function
#' @export
print.nca_output <- function(x, ...) {
res <- rbind(data.frame(value = t(as.data.frame(x$pk))),
data.frame(value = t(as.data.frame(x$descriptive))))
res$value <- format(round(res$value, 4), scientific = FALSE)
print(res)
}
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.