Извлечь градиент из производной команды

Question

На днях коллега задал мне следующий вопрос. Как в следующем фрагменте кода извлечь градиент:

> x=5
> a = eval(deriv(~ x^3, "x"))
> a
[1] 125
attr(,"gradient")
      x
[1,] 75

Мой ответ был

>  attr(a, "gradient")[1]
[1] 75

Этот синтаксис кажется мне неуклюжим. Есть ли лучший способ извлечь градиент?

Answer 1

Хотя это не лучше, чем ваш метод, вы можете создать функцию grad, которая принимает число с атрибутом градиента и возвращает значение градиента.

grad = function(x)attr(x,"gradient")[1]

grad(a)

, который теперь можно использовать повторно.

Answer 2

Не уверен, что они считаются лучше , но:

with(attributes(a), gradient)

или

attributes(a)$gradient

- это альтернативы, которые возвращают атрибуты в виде списка, из которого можно выбрать.