Minor adjustments for clean check

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

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(...)) {

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<6D>inen pop-sanan j<>lkeinen rivi

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

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