R/selEnz.R

selEnz <-
function(names, enzdata = enzdata) {
    enz = enzdata[!is.na(match(enzdata[,1], names)), ]
    if( nrow(enz) == 0)
    { stop(paste("No data found in the enzdata named ", names, ".")) }
    return(enz)
}
helixcn/seqRFLP documentation built on May 17, 2019, 3:37 p.m.