getPauseType('a', 'b')
## [1] "SwitchingPause"
getPauseType('a', 'Grp')
## [1] "SwitchingPause"
getPauseType('Grp', 'Grp')
## [1] "GrpPause"
getPauseType('Grp', 'a')
## [1] "GrpSwitchingPause"
getPauseType('a', 'a')
##[1] "Pause"
Run the code above in your browser using DataLab