[adegenet-commits] r370 - pkg/R

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2009-06-05 14:11:34 +0200 (Fri, 05 Jun 2009)
New Revision: 370

Modified:
   pkg/R/haploSim.R
Log:
other utilitary functions.


Modified: pkg/R/haploSim.R
===================================================================
--- pkg/R/haploSim.R	2009-06-05 11:45:34 UTC (rev 369)
+++ pkg/R/haploSim.R	2009-06-05 12:11:34 UTC (rev 370)
@@ -302,6 +302,8 @@
 
 
 
+
+
 ##############
 ## [.haploSim
 ##############
@@ -317,6 +319,8 @@
 
 
 
+
+
 ####################
 ## na.omit.haploSim
 ####################
@@ -330,3 +334,27 @@
 
     return(res)
 }
+
+
+
+
+##################
+## labels.haploSim
+##################
+labels.haploSim <- function(object, ...){
+    return(rownames(x$seq))
+}
+
+
+
+#######################
+## as.POSIXct.haploSim
+#######################
+as.POSIXct.haploSim <- function(x, tz="", origin=as.POSIXct("2000/01/01"), ...){
+    res <- as.POSIXct.numeric(x$dates*24*3600, origin=origin)
+    return(res)
+}
+
+
+
+