diff --git a/docs/src/pca.md b/docs/src/pca.md
index 6805e33..29e3716 100644
--- a/docs/src/pca.md
+++ b/docs/src/pca.md
@@ -94,6 +94,10 @@ pcacov
 pcasvd
 ```
 
+**Note:** By default, the model displayed with additional statistics (e.g. loadings, variance, etc.).
+Depending on a screens size this output may be limited. Use `show(stdout, "text/plain", M)` to produce
+a full model output.
+
 ## Kernel Principal Component Analysis
 
 [Kernel Principal Component Analysis](https://en.wikipedia.org/wiki/Kernel_principal_component_analysis>) (kernel PCA)
diff --git a/src/pca.jl b/src/pca.jl
index a1f8495..cab21d8 100644
--- a/src/pca.jl
+++ b/src/pca.jl
@@ -143,8 +143,16 @@ function show(io::IO, M::PCA)
 end
 
 function show(io::IO, ::MIME"text/plain", M::PCA)
+    screenheight = if !(get(io, :limit, false)::Bool)
+        typemax(Int)
+    else
+        displaysize(io)[1]-4
+    end
+
     idim, odim = size(M)
     print(io, "PCA(indim = $idim, outdim = $odim, principalratio = $(r2(M)))")
+    screenheight > idim+4 || return
+
     ldgs = loadings(M)
     rot = diag(ldgs' * ldgs)
     ldgs = ldgs[:, sortperm(rot, rev=true)]
@@ -154,6 +162,8 @@ function show(io::IO, ::MIME"text/plain", M::PCA)
     print(io, "\n\nPattern matrix (unstandardized loadings):\n")
     cft = CoefTable(ldgs, string.("PC", 1:odim), string.("", 1:idim))
     print(io, cft)
+    screenheight > idim+15 || return
+
     print(io, "\n\n")
     print(io, "Importance of components:\n")
     λ = eigvals(M)