Fixing errors in countFP.R