code: def test_col_coords(self):
      F = load_df_from_R("pca$var$coord")
      P = self.pca.column_coordinates_
      if self.sup_cols:
          P = P.drop(["rank", "points"])
      np.testing.assert_allclose(F.abs(), P.abs())
  
imports: from __future__ import annotations
  import math
  import numpy
  import pandas
  import pytest
  import rpy2.robjects
  import sklearn.utils.estimator_checks
  import sklearn.utils.validation
  from sklearn import decomposition, pipeline, preprocessing
  import prince
  from tests import load_df_from_R
label_desc: Use image node_id 9 for calling the TestPCA obj's underlying member method code with example usage: obj.test_col_coords() without return types