У меня возникли некоторые проблемы с функцией интеграции в R. Я пытаюсь построить интегральный vo, но, похоже, я делаю не правильно.

t <- seq(0, 0.04, 0.0001)
vi <- function(x) {5 * sin(2 * pi * 50 * x)}
vo <- function(x) {integrate(vi, lower=0, upper=x)$value}

test_vect = Vectorize(vo, vectorize.args='x')
plot(t, vo(t))  # should be a cosine wave
plot(t, vi(t))  # sine wave

vo должна быть синусоида, но с использованиемtest_vect дает мне неправильный сюжет и использованиеvo прямо дает ошибкуДлина 'x' и 'y' различаются, Может ли кто-нибудь, пожалуйста, помочь мне в этом вопросе?