new function to make initial matrix
add function make_original_matrix.R