Fix show method for PCA

It should call the three argument show method for CoefTable

Author: andreasnoack

src/pca.jl

@@ -153,7 +153,7 @@ function show(io::IO, ::MIME"text/plain", M::PCA)
     ldgs = ldgs * diagm(0 => ldgs_signs[:])
     print(io, "\n\nPattern matrix (unstandardized loadings):\n")
     cft = CoefTable(ldgs, string.("PC", 1:odim), string.("", 1:idim))
-    print(io, cft)
+    show(io, MIME"text/plain"(), cft)
     print(io, "\n\n")
     print(io, "Importance of components:\n")
     λ = eigvals(M)
@@ -164,7 +164,7 @@ function show(io::IO, ::MIME"text/plain", M::PCA)
              "Proportion explained", "Cumulative proportion"]
     cft = CoefTable(vcat(λ', prp', cumsum(prp)',  prpv', cumsum(prpv)'),
                     string.("PC", 1:odim), names)
-    print(io, cft)
+    show(io, MIME"text/plain"(), cft)
 end
 
 #### PCA Training

test/pca.jl

@@ -43,6 +43,30 @@ import SparseArrays
     @test reconstruct(M, Y[:,1]) ≈ P * Y[:,1]
     @test reconstruct(M, Y) ≈ P * Y
 
+    @test repr("text/plain", M) == """
+        PCA(indim = 5, outdim = 3, principalratio = 0.8)
+
+        Pattern matrix (unstandardized loadings):
+        ─────────────────────────────────
+                 PC1        PC2       PC3
+        ─────────────────────────────────
+        1  -0.236399   0.706558  1.21106
+        2   1.27426    0.047799  0.212282
+        3   0.990598  -1.22718   0.882179
+        4  -1.51861   -0.725771  0.631665
+        5   0.181386   1.21069   0.557706
+        ─────────────────────────────────
+
+        Importance of components:
+        ───────────────────────────────────────────────────
+                                        PC1       PC2   PC3
+        ───────────────────────────────────────────────────
+        SS Loadings (Eigenvalues)  5.0       4.0       3.0
+        Variance explained         0.333333  0.266667  0.2
+        Cumulative variance        0.333333  0.6       0.8
+        Proportion explained       0.416667  0.333333  0.25
+        Cumulative proportion      0.416667  0.75      1.0
+        ───────────────────────────────────────────────────"""
 
     ## PCA with non-zero mean