diff --git a/.jules/bolt.md b/.jules/bolt.md
index 7d3c603f..bb66603c 100644
--- a/.jules/bolt.md
+++ b/.jules/bolt.md
@@ -16,3 +16,6 @@
 ## 2025-02-12 - R 언어에서 반복적인 mirt 모델 생성 시 불필요한 데이터프레임 부분집합 추출 최적화
 **Learning:** R에서 데이터프레임의 특정 열을 추출하는 작업(`df[cols]`)은 O(N)의 메모리 복사를 수반합니다. `autoFIPC`에서 `mirt` 모델의 파라미터를 설정하거나 호출하는 과정 중에 `newformXDataK[colnames(newFormModel@Data$data)]` 코드가 반복해서 사용되었고, 심지어 `ncol()`을 위해 단순히 개수를 구할 때도 사용되어 불필요한 메모리 할당과 오버헤드를 초래했습니다.
 **Action:** 조건문이나 반복문 내부에서 불필요하게 데이터프레임 부분집합 연산이 반복되지 않도록 외부에서 한 번만 `linkedFormData <- newformXDataK[colnames(newFormModel@Data$data)]`로 캐싱(caching)한 뒤, `ncol(linkedFormData)`와 `data = linkedFormData` 형태로 재사용하여 메모리 복사와 O(N) 오버헤드를 방지해야 합니다.
+## 2025-02-12 - R 언어에서 데이터프레임의 행렬 형변환 최적화
+**Learning:** 행렬 또는 데이터프레임의 컬럼 개수를 구할 때 `as.data.frame()`으로 형변환하여 `ncol()`을 호출하는 것은 O(N)의 메모리 할당 및 복사 오버헤드를 발생시킵니다.
+**Action:** R의 `ncol()` 함수는 행렬(matrix)과 데이터프레임 모두에 대해 기본적으로 동작하므로, 불필요한 `as.data.frame()` 형변환을 제거하고 객체에 직접 `ncol()`을 호출하여 O(1) 수준으로 최적화해야 합니다.
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/tests/testthat/test-autoFIPC.R b/tests/testthat/test-autoFIPC.R
index 13cecd92..a404fd9e 100644
--- a/tests/testthat/test-autoFIPC.R
+++ b/tests/testthat/test-autoFIPC.R
@@ -89,3 +89,37 @@ test_that("autoFIPC validates input types securely", {
     "Security Error: tryEM must be a single non-NA logical value"
   )
 })
+
+test_that("autoFIPC handles matrix inputs correctly and processes ncol without as.data.frame", {
+  skip_if_not_installed("mockery")
+
+  mat_new <- matrix(1:4, ncol=2)
+  colnames(mat_new) <- c("A", "B")
+  mat_old <- matrix(1:4, ncol=2)
+  colnames(mat_old) <- c("A", "B")
+
+  # mirt::mirt의 느린 실행을 방지하기 위한 mock 생성
+  mockery::stub(autoFIPC, 'mirt::mirt', function(data, ...) {
+    mod <- new("SingleGroupClass")
+    mod@OptimInfo$converged <- TRUE
+    mod@OptimInfo$secondordertest <- TRUE
+    mod@Data$data <- as.data.frame(data)
+    return(mod)
+  })
+
+  mockery::stub(autoFIPC, 'interactive', function() TRUE)
+
+  # ncol(matrix)이 정상적으로 동작하여 nItems가 올바르게 세팅되는지 확인하기 위해
+  # 일부러 itemtype 길이를 안맞게 하여 에러를 유발시키고 에러 메시지를 검증
+  expect_error(
+    aFIPC::autoFIPC(
+      newformXData = mat_new,
+      oldformYData = mat_old,
+      newformCommonItemNames = c('A'),
+      oldformCommonItemNames = c('A'),
+      itemtype = c("2PL", "2PL", "2PL"), # 의도적인 에러 유발 (길이가 nItems와 불일치)
+      confirmCommonItems = TRUE
+    ),
+    "Security Error: itemtype must be length 1 or length 2 \\(number of items\\)."
+  )
+})