Update simulation.R

multinom.simdata  if(cov=NULL)
add function crtBlockWiseCov