r - Rにおける特殊関数の導関数

Question

次の式があります。

ここでTは転置で、上記の関数の x に関する 1 次導関数を計算したいと考えています。Rでどうやってそれを行うことができますか?

        x = c(1, 2)
        y = cbind(y1, y2)
        y1 = runif(n = 100, -2, 2)
        y2 = rbinom(n = 100, 1, 0.5)

最後に、x に関する導関数である 4 つの値が必要です。