R 查找负相关时，互相关为abs（最大ccf（））

我有两个时间序列，我使用ccf来寻找它们之间的互相关。ccf（ts1、ts2）列出了所有时滞的互相关。然后我使用绝对最大值函数来帮助我找出绝对最大相关

---

然而，我发现返回值是相关性的绝对值，但我确实想得到相关性的原始值，这意味着我想知道相关性是负的还是正的。我能做什么？

引用链接中的函数：

Find_Abs_Max_CCF<- function(a,b)
{
 d <- ccf(a, b, plot = FALSE, lag.max = length(a)-5)
 cor = d$acf[,,1]
 abscor = abs(d$acf[,,1])
 lag = d$lag[,,1]
 res = data.frame(cor,lag)
 absres = data.frame(abscor,lag)
 absres_max = res[which.max(absres$abscor),]
 return(absres_max)
}

---

Find\u Abs\u Max\u ccf请提供一个可复制的示例。为什么不使用链接中的代码，一旦找到最大值的索引，请执行
maxindThank！是的，我使用了链接中的代码，但是我发现返回值只是最大相关性的绝对值，问题是我想确定这个值是负值还是正值。我已经试过你的编码了，似乎有什么不对劲是的，这就是我要找的。多谢各位@user3169448如果此答案满足您的需要，请单击复选标记接受。谢谢