`calcStrandCC` <-
function( goodCnt, badCnt) {
# measure like Correlation coefficient of how many reads are on the right vs wrong strand
tot <- goodCnt + badCnt
cc <- ifelse ( tot == 0, 0, (goodCnt-badCnt)/tot)
return( cc)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.