[adegenet-commits] r1097 - pkg/R

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

Author: jombart
Date: 2013-03-21 18:03:42 +0100 (Thu, 21 Mar 2013)
New Revision: 1097

Modified:
   pkg/R/dapc.R
Log:
Fixed glitch in printing of DAPC - adding #####

Modified: pkg/R/dapc.R
===================================================================
--- pkg/R/dapc.R	2013-03-21 16:27:00 UTC (rev 1096)
+++ pkg/R/dapc.R	2013-03-21 17:03:42 UTC (rev 1097)
@@ -380,9 +380,9 @@
 # Function print.dapc
 ######################
 print.dapc <- function(x, ...){
-    cat("\t#########################################\n")
+    cat("\t#################################################\n")
     cat("\t# Discriminant Analysis of Principal Components #\n")
-    cat("\t#########################################\n")
+    cat("\t#################################################\n")
     cat("class: ")
     cat(class(x))
     cat("\n$call: ")