Track down error in R

Hi,

It's quite hard to read your code right now, as it's not formatted.

Ideally, you'd please turn this into a self-contained reprex (short for minimal reproducible example). However, if, for some reason, you cannot, check out the code-formatting FAQ:

Right now the best way to install reprex is:

# install.packages("devtools")
devtools::install_github("tidyverse/reprex")

If you've never heard of a reprex before, you might want to start by reading the tidyverse.org help page. The reprex dos and don'ts are also useful.

For pointers specific to the community site, check out the reprex FAQ, linked to below.