demo/shepp.r

In MixfMRI: Mixture fMRI Clustering Analysis

library(MixfMRI, quietly = TRUE)

cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442",
               "#0072B2", "#D55E00", "#CC79A7")
myPalette <- cbPalette[c(6, 7, 2, 8, 3, 5, 4, 1)]

par(mar = rep(0.1,4), mfrow = c(2, 2))

image(-shepp0fMRI, axes = FALSE, col = c(myPalette[2:1],
      rgb(red = 230 / 255, green = 159 / 255, blue = 0, alpha = 0.1)))
contour(sheppAnat, drawlabels = FALSE, lwd = 0.1,
        nlevels = length(unique(as.vector(sheppAnat))), add = TRUE)

image(-shepp1fMRI, axes = FALSE, col = c(myPalette[2:1],
      rgb(red = 230 / 255, green = 159 / 255, blue = 0, alpha = 0.1)))
contour(sheppAnat, drawlabels = FALSE, lwd = 0.1,
        nlevels = length(unique(as.vector(sheppAnat))), add = TRUE)

image(-shepp2fMRI, axes = FALSE, col = c(myPalette[2:1],
      rgb(red = 230 / 255, green = 159 / 255, blue = 0, alpha = 0.1)))
contour(sheppAnat, drawlabels = FALSE, lwd = 0.1,
        nlevels = length(unique(as.vector(sheppAnat))), add = TRUE)

image(-shepp2fMRI[66:191, 49:208], axes = FALSE, col = c(myPalette[2:1],
      rgb(red = 230 / 255, green = 159 / 255, blue = 0, alpha = 0.1)))
contour(sheppAnat[66:191, 49:208], drawlabels = FALSE, lwd = 0.15,
        nlevels = length(unique(as.vector(sheppAnat))), add = TRUE)