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")
covMat
Run the code above in your browser using DataLab