Как передать массив векторов в функцию в R

Question

Я создаю функцию для вычисления выражения.Я не уверен, как передать вектор подвекторов в функцию, чтобы вычислить его с разными входами.Когда я запустил приведенный ниже код, он возвращает «numeric (0)» вместо 3 разных значений.

function_b <- function(x) {
  z = (x[1] ^ 2 + x[2] ^ 2) / (2 * x[1] * x[2])
  return(z)
}

v_2 <- c(c(1.1, 2.3), c(1.7, 5.2), c(6.23, 7.41))
function_b(v_2)

Answer 1

В R нет индекса 0

function_b <- function(x) {
  z = (x[1] ^ 2 + x[2] ^ 2) / (2 * x[1] * x[2])
  return(z)
}

v_2 <- list(c(1.1, 2.3), c(1.7, 5.2), c(6.23, 7.41))
sapply(v_2,FUN = function_b)
[1] 1.284585 1.692873 1.015081