फंक्शनों के बीच आर्ग्युमेंट पास करना

R में फ़ंक्शन लिखने का परिचय

Richie Cotton

Data Evangelist at DataCamp

Geometric mean निकालना

x %>%
  log() %>%
  mean() %>%
  exp()

calc_geometric_mean <- function(x) {
  x %>%
    log() %>%
    mean() %>%
    exp()
}

calc_geometric_mean <- function(x, na.rm = FALSE) {
  x %>%
    log() %>%
    mean(na.rm = na.rm) %>%
    exp()
}

calc_geometric_mean <- function(x, ...) {
  x %>%
    log() %>%
    mean(...) %>%
    exp()
}

R में फ़ंक्शन लिखने का परिचय