sapply กับฟังก์ชันที่คืนค่าเป็นเวกเตอร์

# temp is already available in the workspace

# Create a function that returns min and max of a vector: extremes
extremes <- function(x) {
  c(min = min(x), ___ = ___)
}

# Apply extremes() over temp with sapply()


# Apply extremes() over temp with lapply()