Usage
stateProfile(ermaset, symbol = "IL33", upstream = 2000,
downstream = 200, ctsize = 10,
shortCellType = TRUE, tsswidth=3 )
stateProf(ermaset, shortCellType=TRUE, ctsize=10)
csProfile(ermaset, symbol, upstream = 2000, downstream = 200,
useShiny = FALSE, ctsize = 10, shortCellType = TRUE,
tsswidth = 3)