test_x_metrics <- seq(0, 2, by=0.1)
# test_estCov1 <- c(0.960085687528771, 1.06671323281311, 0.931523371855063, 0.767143480558508, 0.638125972812219, 0.872433113391802, 0.744205176176044, 0.731253991916548, 0.488579810413633, 0.484618341578004, 0.174945265774332, 0.422265240695837, 0.0657575215457213, 0.133795008322286, 0.137799911814296, 0.195021502391546, 0.0418355083121349, 0.233689810383839, 0.0223929303856333, 0.126069689539688, 0.0458060918842112)
# test_estCov2 <- c(0.861256626295531, 0.906149501223483, 0.993766835410837, 0.738992063744688, 0.958424915098345, 0.903720779793149, 0.443734394681279, 0.640989037981069, 0.637267363622968, 0.500736127299757, 0.413419490078283, 0.259901414672769, 0.327090349710285, 0.233968369430964, -0.062538877987906, 0.172195175864207, 0.115353484213327, 0.207119243375858, 0.015761269052364, 0.0790469581203494, -0.0577098301607592)
test_estCov1 <- exp(-test_x_metrics^2)
test_estCov2 <- exp(-test_x_metrics)