X-Git-Url: https://git.donarmstrong.com/?p=ape.git;a=blobdiff_plain;f=R%2FCheverud.R;h=a2073d05aa7ca53ca1a5b93cb89a6cc8ef340eff;hp=6b70a12bf193d11932a9c35a506e05eab0de9637;hb=f5c4abe6ac31486e821d82788bf66b5db2be51d1;hpb=a0436318d70829a2d16134be7ca1d6d454613a20

diff --git a/R/Cheverud.R b/R/Cheverud.R
index 6b70a12..a2073d0 100644
--- a/R/Cheverud.R
+++ b/R/Cheverud.R
@@ -35,7 +35,7 @@ compar.cheverud <- function(y, W, tolerance=1e-6, gold.tol=1e-4)
 	  }
     sorted[ii] <- Re(sorted[ii]) # Remove imaginary part
   }
-  sorted <- as.real(sorted)
+  sorted <- as.double(sorted)
 
 	Distinct <- numeric(0)
   Distinct[1] <- -Inf