## ----config, include=FALSE-------------------------------------------------
library(knitr)
opts_chunk$set(dev = "jpeg", fig.height = 7.25, dpi = 72, fig.retina = 1)

## ----setup, warning=FALSE, message=FALSE, results="hide"-------------------
library(mimager)
library(affydata)
data("Dilution")

## ----default-image-n1, warning=FALSE, message=FALSE, fig.small=TRUE, fig.height=4----
mimage(Dilution, select = 1)

## ----default-image-n4------------------------------------------------------
mimage(Dilution)

## ----default-image-1row, fig.wide=TRUE, fig.height=2.5---------------------
mimage(Dilution, select = c("10A", "20A", "10B", "20B"), nrow = 1)

## ----dilution-plm, message=FALSE-------------------------------------------
library(affyPLM)
DilutionPLM <- fitPLM(Dilution)

mimage(DilutionPLM)

## ----affyplm-signed-residuals----------------------------------------------
# use a divergent color palette for RLEs
div.colors <- scales::brewer_pal(palette = "RdBu")(9)

mimage(Dilution, transform = arle, legend.label = "RLE", colors = div.colors)

## ----dilution-array--------------------------------------------------------
DilutionArray <- marray(Dilution)
dim(DilutionArray)

## ----dilution-arank--------------------------------------------------------
DilutionRank <- arank(DilutionArray)
dim(DilutionRank)