# start


start <- function ()
{
cat(getwd(), "\n")
library(affy)
Adata <<- ReadAffy()
}

start()
Adata

# 01 Sep. 2006
# Tomokazu Konishi