Added displine

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');

R/displine.R

@@ -0,0 +1,4 @@
+#' @title Print a separator line
+dispLine <- function() {
+    cat('---------------------------------------------------\n')
+}

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
+}