Update MMPP.R

fixed case where EQUIV=c(2,2) small typo D->aD