From 2fa3d06083edd37a3e7707ae07ae199165df7639 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 17 Dec 2019 16:48:22 +0100
Subject: [PATCH] Added displine

---
 R/admix1.R      |  7 -------
 R/displine.R    |  4 ++++
 man/dispLine.Rd | 11 +++++++++++
 3 files changed, 15 insertions(+), 7 deletions(-)
 create mode 100644 R/displine.R
 create mode 100644 man/dispLine.Rd

diff --git a/R/admix1.R b/R/admix1.R
index ffa476d..8c41234 100644
--- a/R/admix1.R
+++ b/R/admix1.R
@@ -609,13 +609,6 @@ admix1 <- function(tietue) {
 # %---------------------------------------------------------------
 
 
-# function dispLine;
-# disp('---------------------------------------------------');
-
-
-# %--------------------------------------------------------------------------
-
-
 # function tulostaAdmixtureTiedot(proportions, uskottavuus, alaRaja, niter)
 # h0 = findobj('Tag','filename1_text');
 # inputf = get(h0,'String');
diff --git a/R/displine.R b/R/displine.R
new file mode 100644
index 0000000..145d558
--- /dev/null
+++ b/R/displine.R
@@ -0,0 +1,4 @@
+#' @title Print a separator line
+dispLine <- function() {
+    cat('---------------------------------------------------\n')
+}
\ No newline at end of file
diff --git a/man/dispLine.Rd b/man/dispLine.Rd
new file mode 100644
index 0000000..80c3a61
--- /dev/null
+++ b/man/dispLine.Rd
@@ -0,0 +1,11 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/displine.R
+\name{dispLine}
+\alias{dispLine}
+\title{Print a separator line}
+\usage{
+dispLine()
+}
+\description{
+Print a separator line
+}