如何用r语言判断两条线交叉

最近用r语言在做程序化交易，想请问大神有没简单的方法判断两条线是否交叉。比如五日均线从下向上穿过十日均线。求代码

1. seq1 <- c(1,2,3,4,5)
   
2. seq2 <- c(1,3,6,3,1)
   
3. ifcross <- sum((seq1-seq2)!=(seq1[1]>seq2[1]))>0

复制代码