在R中创建每个可能变化权重的组合

我想知道R是否具有执行以下功能的功能：

weight <- function(n,x){...}

---

提前谢谢。

我发现答案是一篇旧帖子。我已经发布了下面的链接

line 1    100    0    0     0     0
line 2   .99   .01   0     0     0
line 3   .98   .01  .01    0     0