From b96be65d73037b32ce0069f4d854b179812049ff Mon Sep 17 00:00:00 2001 From: Your Name Date: Tue, 9 May 2017 11:49:20 +0200 Subject: [PATCH] NA control for xyplot in reliabilityCategories --- R/reliabilityCategories.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/reliabilityCategories.R b/R/reliabilityCategories.R index 8147419..9806e09 100644 --- a/R/reliabilityCategories.R +++ b/R/reliabilityCategories.R @@ -314,7 +314,7 @@ reliabilityCategories <- function(obs, panel.text(0.35, ylimcat, catname[i]) panel.xyplot(x, y, pch = 16, col = "black", - cex = ((((hindcastfreq[[i]]*nyear*npoint)-cex0)*(cex0*cex.scale-cex0)) / ((nyear*npoint)-cex0)) + cex0) + cex = na.omit(((((hindcastfreq[[i]]*nyear*npoint)-cex0)*(cex0*cex.scale-cex0)) / ((nyear*npoint)-cex0)) + cex0)) # panel.xyplot(0.45,0.2, pch = 16, col = "black", # cex = min(hindcastfreq[[i]]) * cex.scale) # panel.text(0.68, 0.2, paste0("min: n = ", min(hindcastfreq[[i]])*nyear*npoint))