R version 4.5.0 RC (2025-04-04 r88112 ucrt) -- "How About a Twenty-Six"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Polychrome)
> 
> try( memberPlot( rep(0:1, 20)))                       # must be a matrix
Error in while (length(pal) < nrow(bindat)) pal <- c(pal, pal[-1]) : 
  argument is of length zero
> try( memberPlot(matrix(LETTERS, ncol = 2 )) )         # must be numeric
Error in memberPlot(matrix(LETTERS, ncol = 2)) : 
  Matrix values must equal '0' or '1'.
> try( memberPlot(matrix(1:30, ncol = 5), pal = palette()) ) # and binary
Error in memberPlot(matrix(1:30, ncol = 5), pal = palette()) : 
  Matrix values must equal '0' or '1'.
> 
> temp <- t(data.frame(
+   A = c(rep(1, 500), rep(0, 100)),
+   B = c(rep(1, 500), rep(0, 100)),
+   C = c(rep(1, 300), rep(0, 300)),
+   D = c(rep(1, 300), rep(0, 300)),
+   E = c(rep(1, 300), rep(0, 300)),
+   F = c(rep(1, 180), rep(0, 320), rep(1, 40), rep(0, 60)),
+   G = c(rep(1, 180), rep(0, 320), rep(1, 40), rep(0, 60)),
+   H = c(rep(1, 180), rep(0, 320), rep(1, 40), rep(0, 60))
+ ))
> 
> set.seed(54321)
> noise <- matrix(rbinom(prod(dim(temp)), 1, 0.05),
+                 ncol = ncol(temp))
> meme <- 1*(temp | noise)
> memberPlot(meme)
> memberPlot(meme, ylab = "",
+            features = c(123, 45, 18, 87, 75, 1234, 88, 999)) 
> 
> proc.time()
   user  system elapsed 
   0.28    0.03    0.29