rm(list=ls(all=TRUE))#mean of the training samples have to be generated before starting the process.require(rgdal)require(mvtnorm)require(rgl)StartPath