R Under development (unstable) (2026-02-07 r89380 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 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(ribiosPlot)
> 
> ## helper functions
> test <- c(2,4,3,-1,9,5,3,4)
> bound(test,0,8)
[1] 2 4 3 0 8 5 3 4
> boundNorm(test)
[1] 0.3 0.5 0.4 0.0 1.0 0.6 0.4 0.5
> 
> mat <- matrix(test, nrow=2)
> bound(mat, 0, 8)
     [,1] [,2] [,3] [,4]
[1,]    2    3    8    3
[2,]    4    0    5    4
> boundNorm(mat)
     [,1] [,2] [,3] [,4]
[1,]  0.3  0.4  1.0  0.4
[2,]  0.5  0.0  0.6  0.5
> boundNorm(mat,0,8)
     [,1]   [,2]  [,3]  [,4]
[1,] 0.25  0.375 1.125 0.375
[2,] 0.50 -0.125 0.625 0.500
> 
> colorpanel(100, "white", "black", "green")
  [1] "#FFFFFF" "#FAFAFA" "#F5F5F5" "#EFEFEF" "#EAEAEA" "#E5E5E5" "#E0E0E0"
  [8] "#DBDBDB" "#D5D5D5" "#D0D0D0" "#CBCBCB" "#C6C6C6" "#C1C1C1" "#BBBBBB"
 [15] "#B6B6B6" "#B1B1B1" "#ACACAC" "#A7A7A7" "#A1A1A1" "#9C9C9C" "#979797"
 [22] "#929292" "#8D8D8D" "#878787" "#828282" "#7D7D7D" "#787878" "#727272"
 [29] "#6D6D6D" "#686868" "#636363" "#5E5E5E" "#585858" "#535353" "#4E4E4E"
 [36] "#494949" "#444444" "#3E3E3E" "#393939" "#343434" "#2F2F2F" "#2A2A2A"
 [43] "#242424" "#1F1F1F" "#1A1A1A" "#151515" "#101010" "#0A0A0A" "#050505"
 [50] "#000000" "#000000" "#000500" "#000A00" "#001000" "#001500" "#001A00"
 [57] "#001F00" "#002400" "#002A00" "#002F00" "#003400" "#003900" "#003E00"
 [64] "#004400" "#004900" "#004E00" "#005300" "#005800" "#005E00" "#006300"
 [71] "#006800" "#006D00" "#007200" "#007800" "#007D00" "#008200" "#008700"
 [78] "#008D00" "#009200" "#009700" "#009C00" "#00A100" "#00A700" "#00AC00"
 [85] "#00B100" "#00B600" "#00BB00" "#00C100" "#00C600" "#00CB00" "#00D000"
 [92] "#00D500" "#00DB00" "#00E000" "#00E500" "#00EA00" "#00EF00" "#00F500"
 [99] "#00FA00" "#00FF00"
> 
> myMat <- matrix(rnorm(256), nrow=16)
> myWH <- guessWH(nrow=nrow(myMat), ncol=ncol(myMat),
+                 xlab="321", ylab="ABC",
+                 rownames=rownames(myMat), colnames=colnames(myMat))
> 
> if(interactive()) {
+   X11(width=myWH$width, height=myWH$height)
+   biosHeatmap(myMat, lwid=myWH$lwid, lhei=myWH$lhei, xlab="321",
+               ylab="ABC", cexRow=2L, cexCol=2L)
+   dev.off()
+ }
> 
> proc.time()
   user  system elapsed 
   0.64    0.14    0.75