R 빅데이터분석기사 실기 작업형1 독학(왜도,첨도) 4일차 빅분기

 

train (2).csv

0.44MB

 

주어진 데이터 중 train.csv에서 'SalePrice'컬럼의 왜도와 첨도를 구한 값과, 
'SalePrice'컬럼을 스케일링(log1p)로 변환한 이후 왜도와 첨도를 구해 모두 더한 다음 소수점 2째자리까지 출력하시오

library(e1071)
library(dplyr)
df<-read.csv('../input/house-prices-advanced-regression-techniques/train.csv')

df%>%mutate(log_saleprice=log(SalePrice))
  %>%summarise(bef_kur=kurtosis(SalePrice),bef_skew=skewness(SalePrice),after_kur=kurtosis(log_saleprice),after_skew=skewness(log_saleprice))
  %>%sum%>%round(2)
  
#정답 : 9.29

 

암기

library(e1071)

kurtosis() #첨도

skewness() #왜도