X.list <- new_list <- list(
  data.frame(
    t = c(0.00, 0.05, 0.10, 0.15, 0.20, 0.25, 0.30, 0.35, 0.40, 0.45,
          0.50, 0.55, 0.60, 0.65, 0.70, 0.75, 0.80, 0.85, 0.90, 0.95, 1.00),
    X = c(0.0000000, -0.7496742, -0.8284080, 0.7680386, 0.7963246,
          3.9320300, 0.5461334, -0.5229017, -0.1332496, -1.4163624,
          0.6615046, 0.7405669, 0.7644383, -0.8749894, -0.6347535,
          2.9254636, -1.4677255, -0.9925312, -3.5075089, -0.8827751,
          1.5151889)
  ),
  data.frame(
    t = c(0.00, 0.05, 0.10, 0.15, 0.20, 0.25, 0.30, 0.35, 0.40, 0.45,
          0.50, 0.55, 0.60, 0.65, 0.70, 0.75, 0.80, 0.85, 0.90, 0.95, 1.00),
    X = c(0.00000000, -1.84240886, 1.18995456, -1.86041292, -0.85633346,
          -2.71054131, 0.42674170, 1.39351011, 1.84605273, 2.23133671,
          -0.23121165, 1.90207616, -0.59882055, 1.50238875, 1.71336185,
          -0.89232154, 1.02201937, -0.56178531, 2.22703325, -0.88501145,
          -0.05737938)
  ),
  data.frame(
    t = c(0.00, 0.05, 0.10, 0.15, 0.20, 0.25, 0.30, 0.35, 0.40, 0.45,
          0.50, 0.55, 0.60, 0.65, 0.70, 0.75, 0.80, 0.85, 0.90, 0.95, 1.00),
    X = c(0.00000000, 0.88623405, -0.20879113, 0.07819978, -0.78453151,
          -0.88446904, -0.14676985, -0.50729219, -0.52679046, -0.80460707,
          0.24913919, 0.14521996, 0.17565860, 0.37045393, 0.40234469,
          0.13380509, -0.30893293, -0.30465141, 0.03373523, 0.11018141,
          0.05424761)
  ),
  data.frame(
    t = c(0.00, 0.05, 0.10, 0.15, 0.20, 0.25, 0.30, 0.35, 0.40, 0.45,
          0.50, 0.55, 0.60, 0.65, 0.70, 0.75, 0.80, 0.85, 0.90, 0.95, 1.00),
    X = c(0.00000000, -0.42994220, 0.74678957, -0.12238476, -0.31942841,
          -1.84061091, -1.12142736, -0.91565102, -0.64616993, -0.83450337,
          -1.07907825, -1.29393974, -0.93393574, -0.71443166, -0.54353688,
          -0.21587253, 0.02256539, 0.35348733, 0.26095277, 0.26588457,
          0.40970252)
  )
)

KC_actual<-kmeans_hurst(X.list, k = 2)