# NOT RUN {
# Before running this function, it is necessary to execute couples and blocks,
# as specified in the examples of the corresponding help pages.
#
# 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)
# }
Run the code above in your browser using DataLab