RleCigarList <- cigarToRleList('3M4I93M')
BpPos <- 5
newPos <- realCigarPosition.old(RleCigar=RleCigarList[[1]], BpPos)
newPositions <- realCigarPositions.old(RleCigar=RleCigarList[[1]])
newPositionsList <- realCigarPositionsList.old(RleCigarList=RleCigarList)
Run the code above in your browser using DataLab