[빅분기 실기 R] T1-10. 여-존슨과 박스-칵스 변환

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