我正在尝试使用apply()函数通过“ respirometry”软件包中的conv_o2()计算局部压力。我有一个包含6列数据的数据框:日期,温度,氧气浓度,盐度,压力和分压。到目前为止,这是我尝试过的:
test_func <- function(y, temp, oxy, salinity, pressure) {
return (conv_o2(o2 = oxy,
from = "ml_per_l", to ="kPa",
temp = temp,
sal = salinity,
atm_pres = pressure*100))
}
output = apply(y, 1, test_func, temp = y$temp, oxy = y$oxy.conc, salinity = y$salinity, pressure = y$pressure)
输出大约是我想要的,但是对于10行数据,我不知道为什么它返回10x10矩阵:
谢谢!