max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed syntax

Browse source
This commit is contained in:
Waldir Leoncio 2021-03-30 08:23:21 +02:00
parent 76861c9027
commit 231e0ff501
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
R/testaaOnkoKunnollinenBapsData.R
View file

@ -7,13 +7,13 @@ testaaOnkoKunnollinenBapsData <- function(data) {
# Tarkastaa onko viimeisess?sarakkeessa kaikki # Tarkastaa onko viimeisess?sarakkeessa kaikki
# luvut 1,2,...,n johonkin n:<3A><>n asti. # luvut 1,2,...,n johonkin n:<3A><>n asti.
# Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>n 2 saraketta. # Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>n 2 saraketta.
if (size[data, 1] < 2) { if (size(data, 1) < 2) {
ninds <- 0 ninds <- 0
return(ninds) return(ninds)
} }
lastCol <- data[, ncol(data)] lastCol <- data[, ncol(data)]
ninds <- max(lastCol) ninds <- max(lastCol)
if (t(1:ninds) != unique(lastCol)) { if (any(1:ninds != unique(lastCol))) {
ninds <- 0 ninds <- 0
return(ninds) return(ninds)
} }