[Seqinr-commits] r1746 - pkg/R

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

Author: lobry
Date: 2010-05-24 11:28:04 +0200 (Mon, 24 May 2010)
New Revision: 1746

Added:
   pkg/R/as.alignment.R
Log:
 

Added: pkg/R/as.alignment.R
===================================================================
--- pkg/R/as.alignment.R	                        (rev 0)
+++ pkg/R/as.alignment.R	2010-05-24 09:28:04 UTC (rev 1746)
@@ -0,0 +1,9 @@
+#
+# Constructor for class alignment
+#
+as.alignment <- function(nb = NULL, nam = NULL, seq = NULL, com = NULL){
+  ali <- list(nb = as.numeric(nb), nam = nam, seq = seq, com = com)
+  class(ali) <- "alignment"
+  return(ali)
+}
+