#' Malawi Developmental Assessment Tool (MDAT): Language
#'
#' A dataset containing the 26-item MDAT language

measure must be equal to 'SMD'.", call. = FALSE)
else {
mdat <- smd

ms5rawlevels$timenum = as.numeric(ms5rawlevels$date_time)
mdat = merge(ts, ms5rawlevels, by = "timenum")
rm(ts

colnames(x) <- cname
norm.quantile <- function(mdat,method="quantile1")
if(!is(mdat, "MethylSet

$fold == 3, ]
dat4 = M2N50F5[M2N50F5$fold == 4, ]
dat5 = M2N50F5[M2N50F5$fold == 5, ]

colnames(x) <- cname
normalize.quantile.450k <- function(mdat,method="quantile1")
if(!is(mdat

colnames(x) <- cname
norm.quantile <- function(mdat,method="quantile1")
#   if(!require("preprocessCore

<- normalize.quantiles2(x)
rownames(x) <- rname
colnames(x) <- cname

guideDat
merge(seqDat,guideDat, by="coordinate",all=TRUE)->mDat
mDat[!is.na(mDat$guideSeq),]

if (lnOR$sm != "OR")
stop("Effect measure must be equal to 'OR'.", call. = FALSE)
else {

(input)
mdat <- merge(candidate, database[,c('SMILES',tox)], by='SMILES', all =FALSE)
#remove na and return

predSex <-function(mdat,cutoff=2){
if(!is(mdat, "rgDataSet") & !is(mdat, "methDataSet")){
stop("[predSex

# Control the main pipeline iterations
pl_main <- function(mdat, mode = "rocprc", calc_avg = TRUE, cb_alpha = 0.05

<- function(mdat,type="Illumina",offset=100)
if(!is(mdat, "MethylSet"))
{stop("The input must be an object

",
EGMA_quantity_discrimination.Endline = "quant[0-9]+_3",
EGMA_addition.Endline = "add[0-9]+_3")

("A"), "A")
expect_equal(.pmatch_expd_first(1), 1)
expect_equal(.pmatch_expd_first(NULL), NULL)