Nothing
library("aroma.affymetrix")
verbose <- Arguments$getVerbose(-8, timestamp=TRUE)
cdf <- AffymetrixCdfFile$byChipType("Mapping10K_Xba142")
print(cdf)
# Read CDF data per probe as a data.frame
data <- readDataFrame(cdf, units=1024:1058)
str(data)
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.