[adegenet-commits] r309 - in pkg: R man

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

Author: jombart
Date: 2009-05-15 11:48:55 +0200 (Fri, 15 May 2009)
New Revision: 309

Added:
   pkg/man/seqTrack.Rd
Modified:
   pkg/R/seqTrack.R
Log:
empty doc



Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-05-14 12:35:22 UTC (rev 308)
+++ pkg/R/seqTrack.R	2009-05-15 09:48:55 UTC (rev 309)
@@ -15,6 +15,13 @@
         stop("inconsistent length for seq.dates")
     }
 
+    if(is.character(seq.dates)){
+        msg <- paste("seq.dates is a character vector; " , 
+                     "please convert it as dates using 'as.POSIXct'" ,
+                     "\n(making sure dates are given as 'YYYY/MM/DD' or 'YYYY-MM-DD').", sep="")
+        stop(msg)
+    }
+    
     W <- as.matrix(W)
 
     if(length(seq.names) != nrow(W)){

Added: pkg/man/seqTrack.Rd
===================================================================
--- pkg/man/seqTrack.Rd	                        (rev 0)
+++ pkg/man/seqTrack.Rd	2009-05-15 09:48:55 UTC (rev 309)
@@ -0,0 +1,28 @@
+\name{seqTrack}
+\alias{seqTrack}
+\alias{plotSeqTrack}
+\title{seqTrack algorithm}
+\description{
+  The \code{seqTrack} algorithm is currently in development. Please do
+  not use it.
+}
+\usage{
+seqTrack(seq.names, seq.dates, W, optim = c("min", "max"), \dots)
+plotSeqTrack(x, xy, useArrows = TRUE, col = NULL, bg = "grey", add = FALSE, 
+    \dots)
+}
+\arguments{
+  \item{seq.names}{}
+  \item{seq.dates}{}
+  \item{W}{}
+  \item{optim}{}
+  \item{x}{}
+  \item{xy}{}
+  \item{useArrows}{}
+  \item{col}{}
+  \item{bg}{}
+  \item{add}{}
+  \item{\dots}{}
+  % \item{}{}
+}
+\author{Thibaut Jombart \email{t.jombart at imperial.ac.uk}}