应用用户定义的功能

Question

我有一个用户定义的函数，试图将其应用于矩阵。 也许这个例子可以更好地解释它：

modFn<-function(x)
{
   mod10 = x %% 10;

   return(mod10)
}

mat = matrix(100:119, nrow = 5, ncol = 4)

apply(mat, 1, modFn)

它没有给我我需要的输出。 我究竟做错了什么？

Answer 1

1进

apply(mat, 1, modFn)

表示您正在按行工作...，然后apply函数返回一个矩阵，该列与您的原始行有关...即。 转置。

您可能正在考虑的是：

apply(mat, 2, modFn)

但这与Stibu提到的mat %% 10相同。

(mat %% 10) == t (apply(mat, 1, modFn))