# NOT RUN {
# Load traffic data
data(traffic.mini)
# Scaling is sometimes useful for feature selection
# Exclude the first column - it contains timestamps
data <- scale(traffic.mini$data[,-1])
mCCF<-fsMTS(data, max.lag=3, method="CCF")
cutoff(mCCF, 0.3)
cutoff(mCCF, 0.1)
mIndependent<-fsMTS(data, max.lag=3, method="ownlags")
cutoff(mIndependent, 0.3)
cutoff(mIndependent, 0.1)
# }
Run the code above in your browser using DataLab