Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/80.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何使用;保留的一组滞后(时差)“;在acf中()在R中路由_R_Time Series_Autocorrelation - Fatal编程技术网

如何使用;保留的一组滞后(时差)“;在acf中()在R中路由

如何使用;保留的一组滞后(时差)“;在acf中()在R中路由,r,time-series,autocorrelation,R,Time Series,Autocorrelation,函数的R文档中有几行 i要保留的一组滞后(时差) j要保留的一组序列(名称或数字) 它们是什么意思以及如何使用它们?我在文档中没有看到相关示例 (我认为它应该像acf(time_series,I=c(1,2,4,7))一样简单,但它会抛出警告消息,不会影响输出) 例如: time_series = rnorm(100) acf(time_series, i=c(1,2,4,7)) # There were 12 warnings (...) # In plot.window(...) : &q

函数的
R
文档中有几行

i要保留的一组滞后(时差)

j要保留的一组序列(名称或数字)

它们是什么意思以及如何使用它们?我在文档中没有看到相关示例

(我认为它应该像
acf(time_series,I=c(1,2,4,7))
一样简单,但它会抛出警告消息,不会影响输出

例如:

time_series = rnorm(100)
acf(time_series, i=c(1,2,4,7))

# There were 12 warnings (...)
# In plot.window(...) : "i" is not a graphical parameter
# ... 

对于
acf
Extract
plot
print
)建议使用3种方法

提取(
[
)源代码的S3方法返回,它是一个带星号的方法

grep("acf", methods("["), value = TRUE)
#[1] "[.acf"

getAnywhere('[.acf')
function (x, i, j) 
{
    if (missing(j)) 
        j <- seq_len(ncol(x$lag))
    ii <- if (missing(i)) 
        seq_len(nrow(x$lag))
    else match(i, x$lag[, 1, 1], nomatch = NA_integer_)
    x$acf <- x$acf[ii, j, j, drop = FALSE]
    x$lag <- x$lag[ii, j, j, drop = FALSE]
    x
}
grep(“acf”,方法(“[”),值=TRUE)
#[1] “[.acf”
getAnywhere(“[.acf”)
函数(x,i,j)
{
如果(缺少(j))

j这不是一个错误,而是一个警告问题在于
绘图
。您可以将其设置为
FALSE
,即
out@akrun,我看不到更多警告,但
i
似乎没有添加任何内容。我希望它只返回(1,2,4,7)个延迟。我缺少什么?
i,j
不是来自
x[i,j]
而不是在
acf
参数上?我找不到在源代码acfthank中使用的
I
j
。你能添加一个简单的例子来说明这一点吗?@garej我想当它找到一个类方法进行提取时,该方法会激活。我假设它是一个data.frame,类中有“acf”a我不确定它什么时候会激活,因为文档中不清楚
grep("acf", methods("["), value = TRUE)
#[1] "[.acf"

getAnywhere('[.acf')
function (x, i, j) 
{
    if (missing(j)) 
        j <- seq_len(ncol(x$lag))
    ii <- if (missing(i)) 
        seq_len(nrow(x$lag))
    else match(i, x$lag[, 1, 1], nomatch = NA_integer_)
    x$acf <- x$acf[ii, j, j, drop = FALSE]
    x$lag <- x$lag[ii, j, j, drop = FALSE]
    x
}