Nothing
library("aroma.apd")
# Scan for CEL files
files <- list.files(pattern="[.](cel|CEL)$")
# Convert each to RAW file
for (file in files) {
rawFile <- gsub("[.][^.]*$", ".raw", file)
file.remove(rawFile)
cel <- gtypeCelToPQ(file, verbose=TRUE)
write.table(file=rawFile, cel, sep="\t", quote=FALSE)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.