[캡스톤 프로젝트] 푸리에 변환 개념

https://darkpgmr.tistory.com/171

Fourier Transform(푸리에 변환)의 이해와 활용

#Apply FFT (Fast Fourier Transform) - 푸리에 변환
  ft <- function(data){
    fft_data <- data %>% fft()
    
    #실수 부분과 허수 부분을 가져와서
    re <- fft_data %>% Re()
    im <- fft_data %>% Im()
    
    #기술통계량 값을 구함
    rf1 <- re %>% max()
    rf2 <- re %>% min()
    rf3 <- re %>% mean()
    rf4 <- re %>% sd()
    rf5 <- re %>% skewness()
    rf6 <- re %>% kurtosis()
    rf7 <- re %>% IQR()
    
    if1 <- im %>% max()
    if2 <- im %>% min()
    if3 <- im %>% mean()
    if4 <- im %>% sd()
    if5 <- im %>% skewness()
    if6 <- im %>% kurtosis()
    if7 <- im %>% IQR()
    
    return(cbind(rf1, rf2, rf3, rf4, rf5, rf6, rf7,
                 if1, if2, if3, if4, if5, if6, if7))
  }