added Rscript to calculate number of epidemic paths to theory folder