빅데이터분석기사 실기책 254 실행이 안되어서요

왜 안되는지 모르겠어요.

이틀째 끙끙대다가 여쭙니다. 꼭 도와주세요.

library(dplyr)
library(lubridate)
library(caret)
library(recipes)
library(pROC)

setwd("C:/myR")
getwd()

X_train<-read.csv("X_train.csv",fileEncoding = "euc-kr")
X_train %>% glimpse
y_train<-read.csv("y_train.csv",fileEncoding = "euc-kr")
y_train %>% glimpse
x_test<-read.csv("x_test.csv",fileEncoding = "euc-kr")
x_test %>% glimpse

train<-left_join(X_train,y_train,by="cust_id") %>%
  mutate(index="train")
train %>% glimpse

test<-x_test %>%  mutate(index="test")
test %>% glimpse

full<-bind_rows(train ,test)
full %>% glimpse
table(full$index )

full$gender<-as.factor(full$gender)
full$index<-as.factor(full$index)
full %>% glimpse

# 한글변수 영문으로 바꿨음
x<-c(1:10)
y<-c(1:10)
kkk<-data.frame(x,y)
kkk %>% glimpse
kkk %>% rename(sssss=x)

data<-full %>%rename(total=총구매액, 
               max=최대구매액, 
               refund=환불금액,
               product=주구매상품, 
               store=주구매지점, 
               day=내점일수,
               count=내점당구매건수, 
               week=주말방문비율,
               cycle=구매주기)

data %>% glimpse

colSums(is.na(data))
data$refund<-ifelse(is.na(data$refund),0,data$refund)
colSums(is.na(data))

rm=list(ls())
ls()

library(recipes)

recipe(gender~.,data=data) %>%
  step_YeoJohnson(total,max,refund,day,count,week,cycle) %>% 
  step_scale(total,max,refund,day,count,week,cycle) %>% 
  step_center(total,max,refund,day,count,week,cycle) %>% 
  prep() %>% juice()->data1
data1 %>% glimpse

data1 %>% filter(index=='train') %>% select(-index)->traindata
traindata %>% glimpse

data1 %>% filter(index=='test')%>% select(-index)->testdata
testdata %>% glimpse

library(caret)
ctrl<-trainControl(method='cv', number=10,
                   summaryFunction=twoClassSummary,
                   classProbs=TRUE)

ctrl %>% glimpse

train(gender~., data=traindata,
      method='rpart',
      metric="ROC",
      trControl=ctrl)->rpart1

#  위 실행하면 콘솔창에 아래와 같은 에러나옴
#Error: At least one of the class levels is not a valid R variable name; This will cause errors when class probabilities are generated because the variables names will be converted to  X0, X1 . Please use factor levels that can be used as valid R variable names  (see ?make.names for help).