Create RB_Risk.R

This is very hard coded, needs to be reworked.