[adegenet-commits] r1018 - pkg/R

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

Author: jombart
Date: 2012-07-09 17:45:30 +0200 (Mon, 09 Jul 2012)
New Revision: 1018

Added:
   pkg/R/gengraph.R
Log:
new file for new method


Added: pkg/R/gengraph.R
===================================================================
--- pkg/R/gengraph.R	                        (rev 0)
+++ pkg/R/gengraph.R	2012-07-09 15:45:30 UTC (rev 1018)
@@ -0,0 +1,31 @@
+#############
+## GENERIC ##
+#############
+gengraph <-  function (x, ...) UseMethod("gengraph")
+
+
+
+
+
+#############
+## DEFAULT ##
+#############
+gengraph.default <- function(x, ...){
+    stop(paste("No method for objects of class",class(x)))
+} # end gengraph.default
+
+
+
+
+
+#############
+## DEFAULT ##
+#############
+gengraph.genind <- function(x, ...){
+    ## CHECKS ##
+    if(!require("igraph")) stop("igraph is required")
+
+    ## COMPUTE DISTANCES ##
+    temp <- 1-propShared(x)
+
+}