arraytools

/*
 * Robotics with the BOE Shield - RoamingWithIr plus LED
 * Adaptation of RoamingWithWhiskers with IR object detection instead of
 * contact switches.
 */

#include <Servo.h>                           // Include servo library
 
Servo servoLeft;                             // Declare left and right servos
Servo servoRight;

arraytools

## Mirrors: uncomment the following and change to your favorite CRAN mirror
## if you don't want to use the default (cran.fhcrc.org, Seattle, USA).
## options("repos" = "http://cran.fhcrc.org")

## Mirrors: uncomment the following and change to your favorite Bioconductor
## mirror, if you don't want to use the default (www.bioconductor.org,
## Seattle, USA)
## options("BioC_mirror" = "http://www.bioconductor.org")

local({

arraytools

# shiny:::runApp("hello")
# 
# To-Do-List:
#   missing value case
# 
library(shiny)
# library(gplots) # Just for redgreen() function. Will be replaced sol.
source(url("http://dl.dropbox.com/u/1014272/heatmapr.r"))
source(url("http://dl.dropbox.com/u/1014272/colorpanel.r"))
 

arraytools

# shiny:::runApp("hello")
# 
# To-Do-List:
#   missing value case
# 
library(shiny)
# library(gplots) # Just for redgreen() function. Will be replaced sol.
source(url("http://dl.dropbox.com/u/1014272/heatmapr.r"))
source(url("http://dl.dropbox.com/u/1014272/colorpanel.r"))

arraytools

library(shiny)
library(gplots) # Just for redgreen() function. Will be replaced sol.

lr2 <- as.matrix(read.delim("toy.txt", header = TRUE)) # 3 genes, 20 arrays, sequential data.
sigma <- apply(lr2, 1, sd); sigma <- sigma/max(sigma)
	
# Define server logic required to generate and plot a random distribution
shinyServer(function(input, output) {
   
  datainput <- reactive(function() {  

arraytools

x <- read.delim("toy.txt", header=TRUE)
summary(x)