# NOT RUN {
## The function requires to set some external arguments.
# In the example regarding the simmetry test (typetest = 0),
# 12 spatial points, with ID codes: DERP016, ..., DESN049, have been selected,
# then 6 spatial couples ([DERP016, DENW065], .., [DEBY047, DESN049])
# have been formed for comparison. Moreover, 4 positive and negative temporal
# lags have been considered (i.e. +1, -1, +2, -2). Finally, no (N) temporal
# lag has been set equal to zero. Hence, for the simmetry test 24 (6*4)
# spatio-temporal comparisons have been fixed.
#
# To run the example, paste and copy the following lines
# (without the symbol '#') in the console
#
#coupl_sim <- couples(typetest = 0, typecode = character())
#12
#DERP016
#DENW065
#DENW063
#DENI019
#DENW068
#DEHE046
#DEHE051
#DETH026
#DEUB029
#DETH061
#DEBY047
#DESN049
#6
#DERP016
#DENW065
#DENW063
#DENI019
#DENW068
#DEHE046
#DEHE051
#DETH026
#DEUB029
#DETH061
#DEBY047
#DESN049
#4
#1
#-1
#2
#-2
#N
# }
Run the code above in your browser using DataLab