data(Example2_D)
head(Example2_D)
# building the covariance matrix
covMat <- xpnd(colMeans(Example2_D[-1]))
rownames(covMat) <- c("ASC1","BTime","BCost")
colnames(covMat) <- c("ASC1","BTime","BCost")
covMatRun the code above in your browser using DataLab