- xmin <- min(afc$rowcoord[,1]) + (0.1 * min(afc$rowcoord[,1]))
- xmax <- max(afc$rowcoord[,1]) + (0.1 * max(afc$rowcoord[,1]))
- ymin <- min(afc$rowcoord[,2]) + (0.1 * min(afc$rowcoord[,2]))
- ymax <- max(afc$rowcoord[,2]) + (0.1 * max(afc$rowcoord[,2]))
+ xmin <- min(afc$rowcoord[,1], na.rm = TRUE) + (0.1 * min(afc$rowcoord[,1], na.rm = TRUE))
+ xmax <- max(afc$rowcoord[,1], na.rm = TRUE) + (0.1 * max(afc$rowcoord[,1], na.rm = TRUE))
+ ymin <- min(afc$rowcoord[,2], na.rm = TRUE) + (0.1 * min(afc$rowcoord[,2], na.rm = TRUE))
+ ymax <- max(afc$rowcoord[,2], na.rm = TRUE) + (0.1 * max(afc$rowcoord[,2], na.rm = TRUE))