added tests for plots (except for quality)

R/plot_functions.R

@@ -29,7 +29,7 @@ plot_dendrogram <- function(x) {
     dendro %>% rect.dendrogram(k = kmax)
   } else {
     message(paste("Reversals detected in the dendrogram. Rectangles are not",
-                  "relevant and thus, they not displayed."))
+                  "relevant and thus, they are not displayed."))
   }
   
   # horizontal lines ('range_at')