Simplified using mnormt package