R Code used at NetBooster