如何求S&；的一阶导数；P500数据在R？

我正在努力提取股票代码S&P500去年的数据。因此，从2015年1月1日到2016年1月1日。我想找到收盘价的一阶导数，看看是否有白噪声。有人知道我怎么做吗？任何帮助都将不胜感激

这是到目前为止我得到的r代码，用来获取股票数据并进行一些计算

library(quantmod); 
getSymbols("^GSPC", src = "yahoo"); 
SP500<-GSPC['2015-01-01::2016-01-01']; 
time(SP500);
SP500$GSPC.time<-time(SP500);
derivative<-diff(SP500$GSPC.Close)/diff(SP500$GSPC.time);
derivative;
chartseries(derivative);
plot(y, main="GWN of first order derivative of S&P500 Closing Prices ",
type="l", xlab="time",ylab="y(t)", col="blue", lwd=2);
abline(h=c(0,-0.05,0.05), lwd=2, lty=c("solid","dotted","dotted"), 
col=c("green", "red", "red"));

库（quantmod）；
getSymbols（“^GSPC”，src=“yahoo”）；
SP500diff（SP500$GSPC.Close）？我做了类似的事情，但我试图计算白噪声。