R scripts for throughput

Found that the mean was being skewed by interfaces that weren't participating
in the scenario. Have added code to delete these inactive interfaces.

Cheers.