#' print.IncucyteDRCPlateData
#'
#' Prints information on an IncucyteDRCPlateData object
#'
#' @param x IncucyteDRCPlateData object
#' @param ... Additional arguments
#' @export
#'
#' @examples
#' data_file <- system.file(file='extdata/example_data.txt', package='IncucyteDRC')
#' test_data <- importIncucyteData(data_file, metric='pc')
#' print(test_data)
print.IncucyteDRCPlateData <- function(x, ...) {
cat("## This is an IncucyteDRCPlateData S3 object with the following elements\n")
cat(names(x))
cat('\n\n## Data (data)\n')
print(head(x$data))
cat(sprintf("....\n%s rows\n", nrow(x$data)))
cat('\n## Metric (metric)\n')
cat(x$metric)
cat('\n\n## Plate ID (plateid)\n')
cat(x$plateid)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.