R：apply（）中的自定义函数

Question

初次使用者在这里！ 我只是在学习R，我希望有一个简单的问题。 我有一个数字，数字数组，我将确保没有一个数字大于一个。 我在努力

myfct <- function(x) {
  if ( x > 1.0 ) x = 1.0
  return(x)
}
apply(nums, 1, myfct)

但是我得到这个错误

Error in apply(nums, 1, myfct) : 
dim(X) must have a positive length

我在做什么错，有更好的方法吗？ 谢谢！

Answer 1

我们可以使用replace

replace(nums, nums > 1, 1)

Answer 2

尝试以下方法：

 nums[] <- pmin(nums, 1)

pmax是“并行化” maximun所以大于1由1代替任何值可能不工作过的[]如果nums是一个原子矢量。