Example R script for calculation of isolate FWS scores