21 lines
526 B
R
21 lines
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)
|
|||
|
|
}
|