Использовать функцию l oop в r для вычисления постоянного значения для каждого дня?

Question

Hi имеют данные скорости (val) и глубины (dep). Итак, используя функцию l oop в r, я хочу найти константу с именем 'K' (K = ODobbins (val, dep), 'ODobbins' - это функция в StreamMetabolism пакете) для бесконечных дат при получении данных

structure(list(date = c("12/01/2019", "13/01/2019", "14/01/2019", 
"15/01/2019", "16/01/2019", "17/01/2019"), vel = c(0.6, 0.5, 
0.6, 0.2, 0.8, 0.1), dep = c(0.42, 0.21, 0.35, 0.24, 0.65, 0.12
)), class = "data.frame", row.names = c(NA, -6L))

Кто-нибудь может с этим помочь?

Answer 1

ODobbins - это векторизованная функция, как

library(StreamMetabolism)
ODobbins
function (vel, dep) 
{
    (3.93 * (vel^0.5))/(dep^1.5)
}

Здесь / и ^ векторизованы, поэтому мы можем передать функцию apply с аргументами в виде столбцов

with(df, ODobbins(vel, dep))
#[1] 11.183925 28.876770 14.701651 14.948261  6.707605 29.896523