Nothing
rvec <-
function(x, y, n, j, k, e1, e2)
{
R <- array(0, 4)
jp1 <- j + 1
kp1 <- k + 1
y1j <- sum(y[1:j])
yjk <- sum(y[jp1:k])
ykn <- sum(y[kp1:n])
xy1j <- sum(x[1:j] * y[1:j])
xyjk <- sum(x[jp1:k] * y[jp1:k])
xykn <- sum(x[kp1:n] * y[kp1:n])
R[1] <- e1 * (y1j + ykn) + e2 * yjk
R[2] <- e1 * (xy1j + x[j] * ykn) + e2 * x[j] * yjk
R[3] <- e1 * (x[k] - x[j]) * ykn + e2 * (xyjk - x[j] * yjk)
R[4] <- e1 * (xykn - x[k] * ykn)
list(r = R)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.