结果与R转换

Question

道歉，我刚刚意识到，这已经被回答here。

这应该是非常基本的，但我不明白为什么会发生。有人可以帮忙吗？这是简单的代码与示例“数据”：

applyDirichletPrior <- function (row_vector) { 
    row_vector_added <- row_vector + min (row_vector) 
    row_vector_result <- row_vector_added/sum(row_vector_added) 
} 
data <- matrix(c(1,2,3,4,5,6,7,8), nrow=2, ncol=4) 
applied <- apply(data, 1, function(x) applyDirichletPrior(x)) 

输出被给定为：

> applied 
    [,1]  [,2] 
[1,] 0.1 0.1428571 
[2,] 0.2 0.2142857 
[3,] 0.3 0.2857143 
[4,] 0.4 0.3571429 

尽管我期望在相同的格式作为输入数据的输出，如：

> applied 
      [,1]  [,2]  [,3]  [,4] 
[1,] 0.1000000 0.2000000 0.3000000 0.4000000 
[2,] 0.1428571 0.2142857 0.2857143 0.3571429 

为什么和在什么阶段期间apply被转置怎么回事？

Answer 1

结合各个应用步骤的结果有点武断。你的期望有什么不同？你看到的行为是文档如何描述它：

如果每次调用“FUN”返回长度的矢量“N”，那么“应用” 返回尺寸c（N，暗淡的”的阵列（ X）[MARGIN]）'if'n> 1'。

请注意，您可以轻松地之后进行转置：

> t(applied) 
      [,1]  [,2]  [,3]  [,4] 
[1,] 0.1000000 0.2000000 0.3000000 0.4000000 
[2,] 0.1428571 0.2142857 0.2857143 0.3571429