#Let us consider a single simulated train data as our real-life dataset
myCov<-covMat(pAll=100, lambda=2, corrDE=0.75, sigma=0.25);
myData<-generateGED(covAll=myCov, nTrain=30, nTest=10);
data<-myData[[1]]$trainData;
dataY<-myData[[1]]$trainLabels;
myDataCha<-estimateDataCha(data, dataY);
myFit<-fitLMEModel(); #Takes roughly 250 Sec
myPred<-SPreFu(myDataCha, myFit);
Run the code above in your browser using DataLab