data("exampleWatsonFreq")
data("exampleCrickFreq")
frequencyMatrix <- sapply(1:ncol(exampleCrickFreq),
function(colNum){exampleCrickFreq[,colNum] / exampleWatsonFreq[,colNum]})
StrandFreqMatrix(frequencyMatrix)Run the code above in your browser using DataLab