# 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")
fsSparsity(cutoff(mCCF,0.3))
# }
Run the code above in your browser using DataLab