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)
}

Try the seqRFLP package in your browser

Any scripts or data that you put into this service are public.

seqRFLP documentation built on May 2, 2019, 6:02 a.m.