# NOT RUN {
#========================================================================================
# Create a ID vectors
#========================================================================================
a <- m_q_c_vector_from_M_Q_C(2,3,4)
a$m
a$q
a$c
#========================================================================================
# validation of this function
#========================================================================================
#'
a <- m_q_c_vector_from_M_Q_C(5,4,5)
a$m == dd$m
a$c == dd$c
a$q == dd$q
# }
Run the code above in your browser using DataLab