# 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