From 3951c1e252692e09ff2011b8cdf02cb404c9e0a2 Mon Sep 17 00:00:00 2001
From: seonghobae <8172694+seonghobae@users.noreply.github.com>
Date: Fri, 18 Sep 2026 15:51:00 +0000
Subject: [PATCH] =?UTF-8?q?=E2=9A=A1=20Bolt:=20ncol=20=EC=B5=9C=EC=A0=81?=
 =?UTF-8?q?=ED=99=94=EB=A5=BC=20=EC=9C=84=ED=95=9C=20=EB=B6=88=ED=95=84?=
 =?UTF-8?q?=EC=9A=94=ED=95=9C=20as.data.frame=20=EB=B3=80=ED=99=98=20?=
 =?UTF-8?q?=EC=A0=9C=EA=B1=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/aFIPC.R         | 4 ++--
 test_validation.R | 3 ---
 2 files changed, 2 insertions(+), 5 deletions(-)
 delete mode 100644 test_validation.R

diff --git a/R/aFIPC.R b/R/aFIPC.R
index 62546519..c96d7411 100644
--- a/R/aFIPC.R
+++ b/R/aFIPC.R
@@ -86,8 +86,8 @@ autoFIPC <-
 
     if (!is.character(itemtype)) stop('Security Error: itemtype must be a character vector')
     nItems <- NA_integer_
-    if (is.data.frame(newformXData) || is.matrix(newformXData)) nItems <- ncol(as.data.frame(newformXData))
-    else if (is.data.frame(oldformYData) || is.matrix(oldformYData)) nItems <- ncol(as.data.frame(oldformYData))
+    if (is.data.frame(newformXData) || is.matrix(newformXData)) nItems <- ncol(newformXData)
+    else if (is.data.frame(oldformYData) || is.matrix(oldformYData)) nItems <- ncol(oldformYData)
     if (!is.na(nItems) && !(length(itemtype) == 1 || length(itemtype) == nItems)) stop(sprintf('Security Error: itemtype must be length 1 or length %d (number of items).', nItems))
 
     # boolean parameter validation
diff --git a/test_validation.R b/test_validation.R
deleted file mode 100644
index f0841168..00000000
--- a/test_validation.R
+++ /dev/null
@@ -1,3 +0,0 @@
-source("R/aFIPC.R")
-source("R/surveyFA.R")
-print("Syntax check passed")