我在R中的集成功能遇到了一些问题。我试图绘制积分的声音,但似乎我做得不正确。
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'长度不同< / EM> 即可。请问有人可以帮我解决这个问题吗?
答案 0 :(得分:5)