From 01909102444eff3c050c43f407e0cc257383396c Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 24 Jun 2020 16:49:31 +0200
Subject: [PATCH] Minor adjustments for clean check

---
 R/addAlleles.R            | 4 ++--
 R/cell.R                  | 1 +
 R/selvitaDigitFormat.R    | 2 +-
 man/cell.Rd               | 2 ++
 man/selvitaDigitFormat.Rd | 2 +-
 5 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/R/addAlleles.R b/R/addAlleles.R
index c51e367..a1c87bd 100644
--- a/R/addAlleles.R
+++ b/R/addAlleles.R
@@ -43,7 +43,7 @@ addAlleles <- function(data, ind, line, divider) {
 		data[2 * ind, j] <- tokaAlleeli
 	}
 
-	data[2 * ind - 1,end] <- ind
-	data[2 * ind, end] <- ind
+	data[2 * ind - 1, ncol(data)] <- ind
+	data[2 * ind, ncol(data)] <- ind
 	return(data)
 }
\ No newline at end of file
diff --git a/R/cell.R b/R/cell.R
index 4bcf072..beac532 100644
--- a/R/cell.R
+++ b/R/cell.R
@@ -2,6 +2,7 @@
 #' @description Creates an array of zeros
 #' @param n a the first dimension (or both, if sz is not passed)
 #' @param sz the second dimension (or 1st and 2nd, if not passed)
+#' @param ... Other dimensions
 #' @return An array of zeroes with the dimensions passed on call
 cell <- function(n, sz = c(n, n), ...) {
 	if (length(sz) == 1 & missing(...)) {
diff --git a/R/selvitaDigitFormat.R b/R/selvitaDigitFormat.R
index 81b3519..4492ea8 100644
--- a/R/selvitaDigitFormat.R
+++ b/R/selvitaDigitFormat.R
@@ -1,6 +1,6 @@
 #' @title Find out the Digit Format
 #' @param line the first line after the "pop" word from data in Genepop format. #  @note Function clarified based on the line format whether the alleles of the data are given using 2 or 3 numbers.
-#' @return
+#' @return df
 #' @export
 selvitaDigitFormat <- function(line) {
 	# line on ensimm�inen pop-sanan j�lkeinen rivi
diff --git a/man/cell.Rd b/man/cell.Rd
index 428527c..1123477 100644
--- a/man/cell.Rd
+++ b/man/cell.Rd
@@ -10,6 +10,8 @@ cell(n, sz = c(n, n), ...)
 \item{n}{a the first dimension (or both, if sz is not passed)}
 
 \item{sz}{the second dimension (or 1st and 2nd, if not passed)}
+
+\item{...}{Other dimensions}
 }
 \value{
 An array of zeroes with the dimensions passed on call
diff --git a/man/selvitaDigitFormat.Rd b/man/selvitaDigitFormat.Rd
index 7d89daa..9350082 100644
--- a/man/selvitaDigitFormat.Rd
+++ b/man/selvitaDigitFormat.Rd
@@ -10,7 +10,7 @@ selvitaDigitFormat(line)
 \item{line}{the first line after the "pop" word from data in Genepop format. #  @note Function clarified based on the line format whether the alleles of the data are given using 2 or 3 numbers.}
 }
 \value{
-
+df
 }
 \description{
 Find out the Digit Format