Supported by Dr. Osamu Ogasawara and  providing  . |
|
Last data update: 2014.03.03 |
Custom mappings added to the packageDescriptionWe have used an extensive re-annotation of the illuminaMousev2 probe sequences to provide additional information that is not captured in the standard Bioconductor packages. Whereas Bioconductor annotations are based on the RefSeq ID that each probe maps to, our additional mappings provide data specific to each probe on the platform. See below for details. We recommend using the probe quality as a form of filtering, and retaining only perfect or good probes for an analysis. Details of custom mappings
Referenceshttp://remoat.sysbiol.cam.ac.uk Barbosa-Morais et al. (2010) A re-annotation pipeline for Illumina BeadArrays: improving the interpretation of gene expression data. Nucleic Acids Research Examples
##See what new mappings are available
illuminaMousev2listNewMappings()
x <- illuminaMousev2PROBEQUALITY
mapped_probes <- mappedkeys(x)
# Convert to a list
xx <- as.list(x[mapped_probes])
if(length(xx) > 0) {
# Get the PROBEQUALITY for the first five probes
xx[1:5]
# Get the first one
xx[[1]]
}
##Overall table of qualities
table(unlist(xx))
x <- illuminaMousev2ARRAYADDRESS
mapped_probes <- mappedkeys(x)
# Convert to a list
xx <- as.list(x[mapped_probes])
if(length(xx) > 0) {
# Get the ARRAYADDRESS for the first five probes
xx[1:5]
# Get the first one
xx[[1]]
}
##Can do the mapping from array address to illumina ID using a revmap
y<- revmap(illuminaMousev2ARRAYADDRESS)
mapped_probes <- mappedkeys(y)
# Convert to a list
yy <- as.list(y[mapped_probes])
if(length(yy) > 0) {
# Get the ARRAYADDRESS for the first five probes
yy[1:5]
# Get the first one
yy[[1]]
}
x <- illuminaMousev2CODINGZONE
mapped_probes <- mappedkeys(x)
# Convert to a list
xx <- as.list(x[mapped_probes])
if(length(xx) > 0) {
# Get the CODINGZONE for the first five probes
xx[1:5]
# Get the first one
xx[[1]]
}
x <- illuminaMousev2PROBESEQUENCE
mapped_probes <- mappedkeys(x)
# Convert to a list
xx <- as.list(x[mapped_probes])
if(length(xx) > 0) {
# Get the PROBESEQUENCE for the first five probes
xx[1:5]
# Get the first one
xx[[1]]
}
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(illuminaMousev2.db)
Loading required package: AnnotationDbi
Loading required package: stats4
Loading required package: BiocGenerics
Loading required package: parallel
Attaching package: 'BiocGenerics'
The following objects are masked from 'package:parallel':
clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
clusterExport, clusterMap, parApply, parCapply, parLapply,
parLapplyLB, parRapply, parSapply, parSapplyLB
The following objects are masked from 'package:stats':
IQR, mad, xtabs
The following objects are masked from 'package:base':
Filter, Find, Map, Position, Reduce, anyDuplicated, append,
as.data.frame, cbind, colnames, do.call, duplicated, eval, evalq,
get, grep, grepl, intersect, is.unsorted, lapply, lengths, mapply,
match, mget, order, paste, pmax, pmax.int, pmin, pmin.int, rank,
rbind, rownames, sapply, setdiff, sort, table, tapply, union,
unique, unsplit
Loading required package: Biobase
Welcome to Bioconductor
Vignettes contain introductory material; view with
'browseVignettes()'. To cite Bioconductor, see
'citation("Biobase")', and for packages 'citation("pkgname")'.
Loading required package: IRanges
Loading required package: S4Vectors
Attaching package: 'S4Vectors'
The following objects are masked from 'package:base':
colMeans, colSums, expand.grid, rowMeans, rowSums
Loading required package: org.Mm.eg.db
> png(filename="/home/ddbj/snapshot/RGM3/R_BC/result/illuminaMousev2.db/illuminaMousev2NewMappings.Rd_%03d_medium.png", width=480, height=480)
> ### Name: illuminaMousev2listNewMappings
> ### Title: Custom mappings added to the package
> ### Aliases: illuminaMousev2ARRAYADDRESS illuminaMousev2NUID
> ### illuminaMousev2PROBESEQUENCE illuminaMousev2PROBEQUALITY
> ### illuminaMousev2CODINGZONE illuminaMousev2GENOMICLOCATION
> ### illuminaMousev2GENOMICMATCHSIMILARITY illuminaMousev2SECONDMATCHES
> ### illuminaMousev2SECONDMATCHSIMILARITY
> ### illuminaMousev2TRANSCRIPTOMICMATCHSIMILARITY
> ### illuminaMousev2OTHERGENOMICMATCHES illuminaMousev2REPEATMASK
> ### illuminaMousev2OVERLAPPINGSNP illuminaMousev2ENTREZREANNOTATED
> ### illuminaMousev2ENSEMBLREANNOTATED illuminaMousev2SYMBOLREANNOTATED
> ### illuminaMousev2listNewMappings illuminaMousev2fullReannotation
> ### illuminaMousev2REPORTERGROUPNAME illuminaMousev2REPORTERGROUPID
> ### Keywords: datasets
>
> ### ** Examples
>
>
> ##See what new mappings are available
>
> illuminaMousev2listNewMappings()
illuminaMousev2ARRAYADDRESS()
illuminaMousev2NUID()
illuminaMousev2PROBEQUALITY()
illuminaMousev2CODINGZONE()
illuminaMousev2PROBESEQUENCE()
illuminaMousev2SECONDMATCHES()
illuminaMousev2OTHERGENOMICMATCHES()
illuminaMousev2REPEATMASK()
illuminaMousev2OVERLAPPINGSNP()
illuminaMousev2ENTREZREANNOTATED()
illuminaMousev2GENOMICLOCATION()
illuminaMousev2SYMBOLREANNOTATED()
illuminaMousev2REPORTERGROUPNAME()
illuminaMousev2REPORTERGROUPID()
illuminaMousev2ENSEMBLREANNOTATED()
>
>
> x <- illuminaMousev2PROBEQUALITY
>
> mapped_probes <- mappedkeys(x)
> # Convert to a list
> xx <- as.list(x[mapped_probes])
> if(length(xx) > 0) {
+ # Get the PROBEQUALITY for the first five probes
+ xx[1:5]
+ # Get the first one
+ xx[[1]]
+ }
[1] "Bad"
>
>
> ##Overall table of qualities
> table(unlist(xx))
Bad Good Good*** Good**** No match Perfect
6327 1020 74 320 1347 32537
Perfect*** Perfect****
3529 1083
>
>
>
> x <- illuminaMousev2ARRAYADDRESS
>
> mapped_probes <- mappedkeys(x)
> # Convert to a list
> xx <- as.list(x[mapped_probes])
> if(length(xx) > 0) {
+ # Get the ARRAYADDRESS for the first five probes
+ xx[1:5]
+ # Get the first one
+ xx[[1]]
+ }
[1] "2600193"
>
> ##Can do the mapping from array address to illumina ID using a revmap
>
> y<- revmap(illuminaMousev2ARRAYADDRESS)
>
> mapped_probes <- mappedkeys(y)
> # Convert to a list
> yy <- as.list(y[mapped_probes])
> if(length(yy) > 0) {
+ # Get the ARRAYADDRESS for the first five probes
+ yy[1:5]
+ # Get the first one
+ yy[[1]]
+ }
[1] "ILMN_1243094"
>
>
>
> x <- illuminaMousev2CODINGZONE
>
> mapped_probes <- mappedkeys(x)
> # Convert to a list
> xx <- as.list(x[mapped_probes])
> if(length(xx) > 0) {
+ # Get the CODINGZONE for the first five probes
+ xx[1:5]
+ # Get the first one
+ xx[[1]]
+ }
[1] "Transcriptomic?"
>
> x <- illuminaMousev2PROBESEQUENCE
>
> mapped_probes <- mappedkeys(x)
> # Convert to a list
> xx <- as.list(x[mapped_probes])
> if(length(xx) > 0) {
+ # Get the PROBESEQUENCE for the first five probes
+ xx[1:5]
+ # Get the first one
+ xx[[1]]
+ }
[1] "GCCCTGCCTGACCTGGAAACGTAGAGATTCTTCTGCCTCAGGTTCCAGAG"
>
>
>
>
>
>
>
> dev.off()
null device
1
>
|