직접 만든 함수와 sapply

lapply()와 마찬가지로, sapply()는 사용자가 정의한 함수를 벡터나 리스트에 적용할 수 있어요:

sapply(X, FUN, ...)

여기서 FUN은 R에 내장된 함수일 수도 있고, 여러분이 작성한 함수일 수도 있어요. 직접 작성한 함수는 미리 정의해 둘 수도 있고, 익명 함수로 바로 넣을 수도 있어요.

extremes_avg() 정의를 완성하세요: 이 함수는 온도 벡터를 받아 그 벡터의 최솟값과 최댓값의 평균을 계산해요.
다음으로, 이 함수를 sapply() 안에서 사용해 temp에 들어 있는 벡터들에 적용하세요.
같은 함수를 lapply()로 temp에 적용해 보고, 결과가 어떻게 다른지 확인하세요.