Added displine

This commit is contained in:
Waldir Leoncio 2019-12-17 16:48:22 +01:00
parent 6a1f10edd4
commit 2fa3d06083
3 changed files with 15 additions and 7 deletions

View file

@ -609,13 +609,6 @@ admix1 <- function(tietue) {
# %--------------------------------------------------------------- # %---------------------------------------------------------------
# function dispLine;
# disp('---------------------------------------------------');
# %--------------------------------------------------------------------------
# function tulostaAdmixtureTiedot(proportions, uskottavuus, alaRaja, niter) # function tulostaAdmixtureTiedot(proportions, uskottavuus, alaRaja, niter)
# h0 = findobj('Tag','filename1_text'); # h0 = findobj('Tag','filename1_text');
# inputf = get(h0,'String'); # inputf = get(h0,'String');

4
R/displine.R Normal file
View file

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

11
man/dispLine.Rd Normal file
View file

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