날짜의 뺄셈

숫자와 마찬가지로, 날짜에도 산술 연산을 할 수 있어요. 특히, 뺄셈을 사용하면 두 날짜 사이의 차이를 일(day) 단위로 구할 수 있습니다:

today <- as.Date("2017-01-02")
tomorrow <- as.Date("2017-01-03")
one_year_away <- as.Date("2018-01-02")

tomorrow - today
Time difference of 1 days

one_year_away - today
Time difference of 365 days

동일하게, difftime() 함수를 사용해 시간 간격을 구할 수도 있습니다.

difftime(tomorrow, today)
Time difference of 1 days

# 몇 가지 추가 옵션과 함께!
difftime(tomorrow, today, units = "secs")
Time difference of 86400 secs

dates 벡터가 준비되어 있습니다.
빼기 연산으로 R이 1970년 1월 1일부터 날짜를 계산한다는 것을 확인해 보세요. 먼저, "1970-01-01"을 날짜로 담은 origin 변수를 만드세요.
이제 dates에 as.numeric()을 적용해 1970년 1월 1일부터 며칠이 지났는지 확인하세요.
마지막으로, 결과를 확인하기 위해 dates에서 origin을 빼 보세요! (여기서 재활용 규칙이 어떻게 적용되는지 주의하세요!)