时间戳

首页 > 解决方案 > 如何在 R 中编写一个带有 2 个参数并返回百分比的函数？

r - 如何在 R 中编写一个带有 2 个参数并返回百分比的函数？

问题描述

我对用 R 编写函数并没有真正的经验，我正在尝试编写一个带有 2 个参数的函数——第一个是向量，第二个是数字。该函数将返回向量中小于相同元素的百分比（即低于所提供值的累积分布）。例如，如果向量有 5 个元素 (1,2,3,4,5)，其中 2 是传递给函数的数字，则函数将返回 0.2（因为 20% 的数字低于 2）。这是我到目前为止所拥有的：

testfunction <- function(myVector, x)
{
uniqueCounts(myVector > x)/x
}

标签： rfunctionvector

解决方案

你在这里有正确的语法

your_function <- function(arg1, arg2){
    do_something
}

在这里，您还需要一个表达式，该表达式将按照您的描述进行评估。@TimBiegeleisen 为您提供了一个，sum(a > b)给出了向量 a 中大于 b 的值的出现次数。该比例sum(a > b)/ length(a)将为您提供 a 中大于 b 的值的比例，并且应该介于没有值大于的0向量和所有值大于的向量之间，并且将给出if is , , if is 。如果您想强制执行和/或拥有某些属性，您可以添加错误检查。ab1bNaNaNULLNAaNAab

testfunction <- function(myVector, x){
    sum(myVector > x)/length(myVector)
}
tesfunction(1:10, 2)
# [1] 0.8

在 R 中，如果没有显式 ，则函数返回最后一个计算的表达式return。如果你想强制执行某些属性，你可以调用stop()，例如

testfunction <- function(myVector, x){
  if(length(x) != 1) stop("x must have length == 1")
  sum(myVector > x)/length(myVector)
}
testfunction(1:10, 2:3)
# Error in testfunction(1:10, 2:3) : x must have length == 1

推荐阅读