Update sample_mlacomp for change_data

But, still getting error:
Error in if (N_environ_obs > 0) { : missing value where TRUE/FALSE
needed