21 lines
No EOL
526 B
R
21 lines
No EOL
526 B
R
#' @title TestBAPS data
|
||
#' @description Test if loaded BAPS data is proper
|
||
#' @param data dataset
|
||
#' @return ninds
|
||
#' @export
|
||
testaaOnkoKunnollinenBapsData <- function(data) {
|
||
# Tarkastaa onko viimeisess?sarakkeessa kaikki
|
||
# luvut 1,2,...,n johonkin n:<3A><>n asti.
|
||
# Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>n 2 saraketta.
|
||
if (size[data, 1] < 2) {
|
||
ninds <- 0
|
||
return(ninds)
|
||
}
|
||
lastCol <- data[, ncol(data)]
|
||
ninds <- max(lastCol)
|
||
if (t(1:ninds) != unique(lastCol)) {
|
||
ninds <- 0
|
||
return(ninds)
|
||
}
|
||
return(ninds)
|
||
} |