I have moved Total_N_for_ExpID function from code to R directory