ModOverlay: Overlays selected modules onto the basic mapping.

In sdrowland/RSMod: Creates a 2D or 3D mapping of RNA-Seq Data

Usage

ModOverlay(base, overlay, n)

Arguments

base
overlay
n

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (base, overlay, n) 
{
    maxClust = as.numeric(unique(overlay$colors))
    if (n == 1) {
        manipulate(singleModOverlay(base = base, overlay = overlay, 
            n = c(mod1), color = c(col1)), mod1 = slider(1, length(maxClust), 
            label = "First Module"), col1 = picker("Red", "Orange", 
            "Yellow", "Green", "Blue", "Purple", "Violet", label = "Color of Module"))
    }
    if (n == 2) {
        manipulate(singleModOverlay(base = base, overlay = overlay, 
            n = c(mod1, mod2), color = c(col1, col2)), mod1 = slider(1, 
            length(maxClust), label = "First Module"), col1 = picker("Red", 
            "Orange", "Yellow", "Green", "Blue", "Purple", "Violet", 
            label = "Color of Module"), mod2 = slider(1, length(maxClust), 
            label = "Second Module"), col2 = picker("Red", "Orange", 
            "Yellow", "Green", "Blue", "Purple", "Violet", label = "Color of Module"))
    }
    if (n == 3) {
        manipulate(singleModOverlay(base = base, overlay = overlay, 
            n = c(mod1, mod2, mod3), color = c(col1, col2, col3)), 
            mod1 = slider(1, length(maxClust), label = "First Module"), 
            col1 = picker("Red", "Orange", "Yellow", "Green", 
                "Blue", "Purple", "Violet", label = "Color of Module"), 
            mod2 = slider(1, length(maxClust), label = "Second Module"), 
            col2 = picker("Red", "Orange", "Yellow", "Green", 
                "Blue", "Purple", "Violet", label = "Color of Module"), 
            mod3 = slider(1, length(maxClust), label = "Third Module"), 
            col3 = picker("Red", "Orange", "Yellow", "Green", 
                "Blue", "Purple", "Violet", label = "Color of Module"))
    }
    if (n == 4) {
        manipulate(singleModOverlay(base = base, overlay = overlay, 
            n = c(mod1, mod2, mod3, mod4), color = c(col1, col2, 
                col3, col4)), mod1 = slider(1, length(maxClust), 
            label = "First Module"), col1 = picker("Red", "Orange", 
            "Yellow", "Green", "Blue", "Purple", "Violet", label = "Color of Module"), 
            mod2 = slider(1, length(maxClust), label = "Second Module"), 
            col2 = picker("Red", "Orange", "Yellow", "Green", 
                "Blue", "Purple", "Violet", label = "Color of Module"), 
            mod3 = slider(1, length(maxClust), label = "Third Module"), 
            col3 = picker("Red", "Orange", "Yellow", "Green", 
                "Blue", "Purple", "Violet", label = "Color of Module"), 
            mod4 = slider(1, length(maxClust), label = "Third Module"), 
            col4 = picker("Red", "Orange", "Yellow", "Green", 
                "Blue", "Purple", "Violet", label = "Color of Module"))
    }
  }

sdrowland/RSMod documentation built on July 17, 2021, 7:16 p.m.