RFCs doesn't work if informant is numeric

[rasmus87]

Due to the use of this function:

RFCdata <- RFCdata %>% dplyr::mutate_if(is.numeric, ~1 * 
                                          (. != 0))

The function doesn't work if the informant column is numeric. I am afraid that this error might occur elsewhere as well, but I have not come across it so far.

The line can simply be replaced with, which would work:

RFCdata$FCps <- (RFCdata$FCps > 0) * 1

[rasmus87]

Unless we assume that the dataset includes full zero rows for all species not mentioned by an informant you need to change this as well:

RFCs <- RFCdata %>% dplyr::group_by(sp_name) %>% dplyr::summarize(RFCs = sum(FCps/(length(unique(informant))))) %>% 
  dplyr::arrange(-RFCs) %>% dplyr::mutate(RFCs = round(RFCs,  3))

This will solve it:

N <- length(unique(RFCdata$informant))
RFCs <- RFCdata %>% dplyr::group_by(sp_name) %>% dplyr::summarize(RFCs = sum(FCps)/N) %>% 
  dplyr::arrange(-RFCs) %>% dplyr::mutate(RFCs = round(RFCs, 3))

[CWWhitney]

I added the 'N' calculation (this is a good addition).