R/giveEnzymeSequence.r

Defines functions .giveEnzymeSequence

.giveEnzymeSequence <- function(fileNameDatabase, enzymeName) {

    enzymeDB = read.table(fileNameDatabase, header = TRUE)
    chosenEnzyme = subset(enzymeDB, enzymeDB$name == enzymeName)
    enzymeSequence = as.character(chosenEnzyme[1,2])  

    return(enzymeSequence)  
}




setMethod("giveEnzymeSequence",
    signature=signature(fileNameDatabase="character", enzymeName="character"),
    .giveEnzymeSequence)

Try the Basic4Cseq package in your browser

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

Basic4Cseq documentation built on Nov. 8, 2020, 6:53 p.m.