improved plot.ds.pca ++

metno · Dec 13, 2024 · 85108ae · 85108ae
1 parent 5d4ba7a
commit 85108ae
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot.R b/R/plot.R
@@ -1724,7 +1724,7 @@ plot.ds.pca <- function(x,...,ip=1,
     col <- rep('grey',length(mY))
     breaks <- attr(eofmap,'colbar')$breaks
     ## re-scale PCA weights to match the colour scale of the map
-    mY <- mY*IQR(eofmap)/IQR(c(mY))
+    mY <- mY*IQR(eofmap,na.rm=TRUE)/IQR(c(mY),na.rm=TRUE)
     #mY <- mY*attr(y,'eigenvalues')[ip]
     ## Add symbols with colours
     breaks <- breaks[-1]