如何在给定功能中使用

Question

我有以下代码：

f=function(a,b) det((rbind(cbind(a,b),c(b,2))))

K=matrix(0,nrow(x),1)
G=matrix(0,length(X),1)
for( i in 1:length(X) )
{
for( j in 1:nrow(x) )
{
K[j,]=f(X[[i]],x[j,])
}
G[i,]=max(K)
}

其中X是矩阵列表，x是矩阵。

如何使用apply()函数以获得更快的结果？

编辑

让列表X的矩阵如下：

3 0 0 
0 3 0 
0 0 3

并且矩阵x具有以下行：

0 0 0
1 1 1

然后，我们创建以下矩阵：

3 0 0 0
0 3 0 0
0 0 3 0
0 0 0 2

3 0 0 1
0 3 0 1
0 0 3 1
1 1 1 2

然后我们找到它们两个的决定因素，分别是54和27。

所以，我选择54，因为54>27。

因此，更可取的输出将是q这样的q=54。

但是我在列表X中有很多矩阵，在矩阵x中有很多行。