在R中正确链接向量

试验数据和测定方法位于：

我需要将“测试”数据输入到另一个函数中。下面提供了x和y的数据（基本上是两个选项，1=（89.3，12.1）和2=（97.2，8.5）。下面的等式是更大函数的一部分，但这就是问题所在。我想做的是从我们的向量中单独调用每个值（Test）对于输出，测试中的每个值都有2个值。当我直接链接测试时，我会收到一个新向量，其中有50个输出值，这没有实际意义。如果我将测试向量中的第一个值放入，我会收到2个值的输出，这是正确的（我已手动检查）

但是，从测试中获取第一个值并手动输入会得出以下结果：

c(-0.75*(((24.77549)-x)/y)^2)
[1] -21.32750 -54.44958

这就是我想要测试中所有50个值的结果

感谢您的帮助。

使用：

---

谢谢。作为一个补充，我已经有效地将sapply应用到我的方程中，现在我得到了正确的答案（手动检查）。让我们调用我的方程Opt1，我想将它的两个结果除以两个输出的总和（从上面取输出1（-54.44959/和（-21.32750--54.44959））=0.7185，因此-21.32750的另一个值隐含为0.2815。因此，我想以与上面相同的格式生成另一组值，但我在这里努力工作。应用（结果，2，函数（v）v/sum（v））（

apply

将函数应用于矩阵的边距-即行或列。

2

告诉它将其应用于列）。

 [1] -21.32750 -55.05068 -25.23216 -49.25087 -20.09236 -53.28421 -19.61593
 [8] -51.81307 -21.32136 -62.68412 -22.28700 -56.50245 -21.33593 -47.71792
[15] -18.53459 -55.10348 -16.12545 -42.79888 -19.73790 -40.38937 -17.77048
[22] -51.94862 -19.20262 -54.78823 -18.92120 -51.75187 -22.82277 -52.08655
[29] -18.82475 -45.86141 -16.28231 -56.33673 -24.02006 -50.75048 -14.97440
[36] -40.67076 -20.51602 -50.05597 -21.04648 -58.66084 -20.32455 -65.47588
[43] -20.01028 -53.19754 -15.84125 -52.88386 -23.09141 -50.51265 -19.73710
[50] -50.32994

c(-0.75*(((24.77549)-x)/y)^2)
[1] -21.32750 -54.44958

set.seed(1)
Test <- ifelse(runif(50, 0, 1) < 0.69, rnorm(50, 25, 4), rnorm(50, 28, 4.3))

x <- c(89.3, 97.2)
y <- c(12.1, 8.5)

result = sapply(Test, function(t) c(-0.75*(((t)-x)/y)^2))

> result
          [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]
[1,] -21.32750 -21.59186 -25.23216 -19.04891 -20.09236 -20.81548 -19.61593
[2,] -54.44959 -55.05068 -63.29020 -49.25087 -51.63562 -53.28421 -50.54767
          [,8]      [,9]     [,10]     [,11]     [,12]     [,13]     [,14]
[1,] -20.17012 -21.32136 -24.96341 -22.28700 -22.23106 -21.33593 -18.37988
[2,] -51.81307 -54.43561 -62.68412 -56.62937 -56.50245 -54.46874 -47.71792
         [,15]     [,16]     [,17]     [,18]     [,19]     [,20]     [,21]
[1,] -18.53459 -21.61509 -16.12545 -16.24298 -19.73790 -15.20235 -17.77048
[2,] -48.07270 -55.10348 -42.52723 -42.79888 -50.82633 -40.38937 -46.31876
         [,22]     [,23]     [,24]     [,25]     [,26]     [,27]     [,28]
[1,] -20.22954 -19.20262 -21.47642 -18.92120 -20.14330 -22.82277 -20.29001
[2,] -51.94862 -49.60262 -54.78823 -48.95848 -51.75187 -57.84436 -52.08655
         [,29]     [,30]     [,31]     [,32]     [,33]     [,34]     [,35]
[1,] -18.82475 -17.57154 -16.28231 -22.15805 -24.02006 -19.70470 -14.97440
[2,] -48.73760 -45.86141 -42.88975 -56.33673 -60.55407 -50.75048 -39.86019
         [,36]     [,37]     [,38]     [,39]     [,40]     [,41]     [,42]
[1,] -15.32366 -20.51602 -19.40083 -21.04648 -23.18320 -20.32455 -26.20255
[2,] -40.67076 -52.60188 -50.05597 -53.81015 -58.66084 -52.16534 -65.47588
         [,43]     [,44]     [,45]     [,46]     [,47]     [,48]    [,49]
[1,] -20.01028 -20.77743 -15.84125 -20.63975 -23.09141 -19.60061 -19.7371
[2,] -51.44830 -53.19754 -41.86986 -52.88386 -58.45297 -50.51265 -50.8245
         [,50]
[1,] -19.52067
[2,] -50.32994