data("StarWars")
Y <- StarWars[,1:10]
# Unbiased estimate:
UB <- cov(Y)
# ML Estimate:
ML <- covML(Y)
# Check:
all(abs(UB - covMLtoUB(ML, nrow(Y))) < sqrt(.Machine$double.eps))
all(abs(ML - covUBtoML(UB, nrow(Y))) < sqrt(.Machine$double.eps))
Run the code above in your browser using DataLab