# Yaw rate, rolling, pitching and rudder angle of a ship
data(HAKUSAN)
y <- as.matrix(HAKUSAN[, 2:4]) # Rolling, Pitching, Rudder
crscor(y, lag = 50)
# The groundwater level and the atmospheric pressure
data(Haibara)
crscor(Haibara, lag = 50)
Run the code above in your browser using DataLab