4 lines
65 B
R
4 lines
65 B
R
omean <- function(v) {
|
|
m <- mean(v)
|
|
ifelse(is.na(m), 0, m)
|
|
}
|
omean <- function(v) {
|
|
m <- mean(v)
|
|
ifelse(is.na(m), 0, m)
|
|
}
|