diff --git a/data-raw/hanwoo_kpn/DATASET.R b/data-raw/hanwoo_kpn/DATASET.R
index a42045e..69ab0a9 100755
--- a/data-raw/hanwoo_kpn/DATASET.R
+++ b/data-raw/hanwoo_kpn/DATASET.R
@@ -6,7 +6,7 @@ library(dplyr)
 
 names(hanwoo::hanwoo_kpn)
 
-hanwoo_kpn <- readxl::read_excel("data-raw/hanwoo_kpn/kpn-nias-2402.xlsx") %>%
+hanwoo_kpn <- readxl::read_excel("data-raw/hanwoo_kpn/kpn-nias-2406.xlsx") %>%
   janitor::clean_names(case = "lower_camel", ascii = FALSE)
 
 glimpse(hanwoo::hanwoo_kpn)
@@ -18,6 +18,7 @@ ncol(hanwoo_kpn)
 tail(hanwoo::hanwoo_kpn)
 tail(hanwoo_kpn)
 
+# 이전 버전과 colnames 체크
 data.frame(
   old = names(hanwoo::hanwoo_kpn),
   new = names(hanwoo_kpn)
@@ -25,14 +26,16 @@ data.frame(
   mutate(
     diff = ifelse(old == new, TRUE, FALSE)
   ) %>%
-  # filter(diff == FALSE) %>%
-  pull(diff) %>% table()
+  filter(diff == FALSE)
+  # pull(diff) %>% table()
 
 names(hanwoo::hanwoo_kpn)
 names(hanwoo_kpn)
 
+names(hanwoo_kpn) <- gsub("명호", "", names(hanwoo_kpn))
+
 # 만약 확인해보고.. colname 다른 것들 내용이 일치하면 기존 양식이랑 동일하게 진행
-names(hanwoo_kpn) <- names(hanwoo::hanwoo_kpn)
+# names(hanwoo_kpn) <- names(hanwoo::hanwoo_kpn)
 
 # use_data
 usethis::use_data(hanwoo_kpn, overwrite = TRUE)
diff --git a/data-raw/hanwoo_kpn/kpn-nias-2406.xlsx b/data-raw/hanwoo_kpn/kpn-nias-2406.xlsx
new file mode 100644
index 0000000..da87c01
Binary files /dev/null and b/data-raw/hanwoo_kpn/kpn-nias-2406.xlsx differ
diff --git a/data/hanwoo_kpn.rda b/data/hanwoo_kpn.rda
index 4129821..2f4b9c3 100755
Binary files a/data/hanwoo_kpn.rda and b/data/hanwoo_kpn.rda differ