Update R program files to include plot of pool price