# NOT RUN {
## simulate two dichotomous series
tS = simts(0.25, 0.05, 0.2, 0.2, 0.25, 100)
ts1 = tS[1,]; ts2 = tS[2,]
## k = 1, as series are dichotomous
## check data(crqa) for alternative data (RDts1, RDts2)
k = 1; ws = 40
res = calcphi(ts1, ts2, ws, k)
# }
Run the code above in your browser using DataLab