--- a/R/plotPWmap.R
+++ b/R/plotPWmap.R
@@ -182,18 +182,18 @@
   ## Now we can plot the Pathway Map
 
   if (pmap) { ## person map
-    xrange.pmap <- range(pfitZ,na.rm=TRUE)
+    xrange.pmap <- range(pfitZ,finite=TRUE)
     xrange.pmap[1] <- min(-2.5,xrange.pmap[1])
     xrange.pmap[2] <- max(2.5,xrange.pmap[2]+1) ## need space for labels
-    yrange.pmap<-range(ploc,na.rm=TRUE)
+    yrange.pmap<-range(ploc,finite=TRUE)
     yrange.pmap[1]<-yrange.pmap[1]-pci*max(pse)
     yrange.pmap[2]<-yrange.pmap[2]+pci*max(pse)
   }
   if (imap) { ## item map
-    xrange.imap <- range(ifitZ,na.rm=TRUE)
+    xrange.imap <- range(ifitZ,finite=TRUE)
     xrange.imap[1] <- min(-2.5,xrange.imap[1])
     xrange.imap[2] <- max(2.5,xrange.imap[2]+1) ## need space for labels
-    yrange.imap<-range(iloc,na.rm=TRUE)
+    yrange.imap<-range(iloc,finite=TRUE)
     yrange.imap[1]<-yrange.imap[1]-ici*max(ise)
     yrange.imap[2]<-yrange.imap[2]+ici*max(ise)
   }
