Nothing
if (interactive()) savehistory();
library("aroma.affymetrix");
log <- Verbose(threshold=-10, timestamp=TRUE);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Settings
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
chipType <- "CytoScanHD_Array";
createdBy = list(
fullname = "Henrik Bengtsson",
email = sprintf("%s@%s", "henrik.bengtsson", "aroma-project.org")
);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Get required annotation files
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
cdf <- AffymetrixCdfFile$byChipType(chipType);
print(cdf);
ptb <- AffymetrixProbeTabFile$byChipType(chipType);
print(ptb);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Allocate aroma cell sequence file
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
acs <- AromaCellSequenceFile$allocateFromCdf(cdf, tags="HB20111008");
print(acs);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Import data from the Affymetrix probe-tab file (contains only PMs)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# There is a tiny fraction of probes with 19-23 base pairs.
importFrom(acs, ptb, keepSequenceLengths=25, verbose=log);
# Only for chip types with MMs:
# Infer MM from PM sequences? Will give an error if no MMs
# inferMmFromPm(acs, cdf=cdf, verbose=log);
ftr <- readFooter(acs);
ftr$createdBy <- createdBy;
writeFooter(acs, ftr);
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.