checkplate <- function(id, db = "cytotox")
{
    checkexperiment(id, db = db)
}