# NOT RUN {
# Loading packages
library("RolWinMulCor")
library("gtools")
library("pracma")
# Loading data set
data(synthetic_data)
# Testing the function 'rolwincor_1win' (bi-variate case)
# Window length = 21 and plot output in screen format
test1_rolwincor_1win <- rolwincor_1win(synthetic_data[,1:3], varnametsX="X",
varnametsY="Y", units="NU", widthwin=21,
device="screen")
# Window length = 51 and plot output in screen format
test2_rolwincor_1win <- rolwincor_1win(synthetic_data[,1:3], varnametsX="X",
varnametsY="Y", units="NU", widthwin=51,
device="screen")
# Window length = 51 and plot output in PDF format
# }
# NOT RUN {
test3_rolwincor_1win <- rolwincor_1win(synthetic_data[,1:3], varnametsX="X",
varnametsY="Y", units="NU", widthwin=51,
device="pdf", ofilename="test3")
# }
Run the code above in your browser using DataLab