From 231e0ff501dd195e3aae7ae829ca69ffe0894742 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Tue, 30 Mar 2021 08:23:21 +0200
Subject: [PATCH] Fixed syntax

---
 R/testaaOnkoKunnollinenBapsData.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/testaaOnkoKunnollinenBapsData.R b/R/testaaOnkoKunnollinenBapsData.R
index 8cdc5f3..0bf5c61 100644
--- a/R/testaaOnkoKunnollinenBapsData.R
+++ b/R/testaaOnkoKunnollinenBapsData.R
@@ -7,13 +7,13 @@ testaaOnkoKunnollinenBapsData <- function(data) {
 	# Tarkastaa onko viimeisess?sarakkeessa kaikki
 	# luvut 1,2,...,n johonkin n:��n asti.
 	# Tarkastaa lis�ksi, ett?on v�hint��n 2 saraketta.
-	if (size[data, 1] < 2) {
+	if (size(data, 1) < 2) {
 		ninds <- 0
 		return(ninds)
 	}
 	lastCol <- data[, ncol(data)]
 	ninds <- max(lastCol)
-	if (t(1:ninds) != unique(lastCol)) {
+	if (any(1:ninds != unique(lastCol))) {
 		ninds <- 0
 		return(ninds)
 	}