[빅분기 실기 R] T1-10. Yeo-Johnson and Box–Cox / #여존슨 #박스-콕스 #결측치 #최빈값

# 주어진 데이터에서 20세 이상의 데이터 추출한 후, 'f1'컬럼을 결측치를 최빈값으로 채운 후, # f1 컬럼의 여-존슨과 박스콕스 변환 값을 구하고, 두 값의 차이를 절대값으로 구한다음 모두 더해 소수점 둘째 자리까지 출력(반올림)하시오 # 데이터셋 : basic1.csv library(dplyr) library(caret) df=read.csv('../input/bigdatacertificationkr/basic1.csv') df1<-df%>%filter(age>=20)%>%mutate(pre_f1=ifelse(is.na(f1),as.numeric(names(which.max(table(f1)))),f1)) yeo<-preProcess(df1,c("YeoJohnson","scale","center")) bxcx<-preProcess(df1,c("BoxCox","scale","center")) tr_y<-(predict(yeo,df1))$pre_f1 tr_b<-(predict(...