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