Hey So I made a scaffold version of the YPR stuff.

To Run it you should just have to source the file YPR_gui.R. 
The probabilities are set on line 97. 
I sort of just shrunk the Main_gui and made it self sufficient.

I have also done some work on some other files.