# NOT RUN {
## The function requires to set some external arguments. In this example, it
# is only necessary to specify the number of variables in the STFDF (rr_13).
#
# To run the example, paste and copy the following lines
# (without the symbol '#') in the console
#
# coupl_sim <- couples(typetest = 0, typecode = character())
# blocks_sim <- blocks(lb = 40, ls = 10, matdata = rr_13, stpairs = coupl_sim)
# covabl_sim <- covablocks(stblocks = blocks_sim, stpairs = coupl_sim, typetest = 0)
# covast_sim <- covastat(matdata = rr_13, stpairs = coupl_sim, typetest = 0)
# 1
# }
Run the code above in your browser using DataLab