code: def test_fit_default_params_univariate():
      """Test univariate data and default parameters.
  
      These numbers are generated from the original implementation in R,
      with the following code:
  
      set.seed(1234) X <- c(rnorm(15, mean = -6), 0, rnorm(16, mean = 6)) X <-
      as.matrix(X[c(1,2,17,18)]) ret = e.agglo(X)
      """
      X = pd.DataFrame([-7.207066, -5.722571, 5.889715, 5.488990])
  
      cluster_expected = [0, 0, 1, 1]
      fit_expected = [104.77424, 134.51387, 186.92586, -31.15431]
  
      model = EAgglo()
      fitted_model = model._fit(X)
  
      cluster_actual = fitted_model.cluster_
      fit_actual = fitted_model.gof_
  
      assert np.allclose(cluster_actual, cluster_expected)
      assert np.allclose(fit_actual, fit_expected)
  
file_path: sktime/sktime/annotation/tests/test_eagglo.py
imports: import numpy
  import pandas
  from sktime.annotation.eagglo import EAgglo
label_desc: Use image node_id 1 for calling a global function with example usage: test_fit_default_params_univariate() without return types