如何制作清单？

Question

如何编写一个接收2个参数的函数：vector = V和number = X，并返回两个列表： 首先是一个向量，它包含V中低于或等于X的所有数字， 第二个是高于X的数字向量。 向量不应包含重复数字（如果数字重复，则不应出现多次）

Answer 1

周五免费赠品......

fun <- function(x, v)
{
  z <- unique(v)
  list('<=' = z[z<=x], '>' = z[z>x])
}

> set.seed(152)
> X <- 5
> V <- sample(15, 100, TRUE)
> fun(X, V)
# $`<=`
# [1] 4 2 1 3 5
# 
# $`>`
# [1] 15 12 10  9 11  8  7 14 13  6