Vignette of the a4Classif package
2021-05-19
1 Introduction
This document explains the functionalities available in the a4Classif package.
This package contains for classification of Affymetrix microarray data, stored in an ExpressionSet. This package integrates within the Automated Affymetrix Array Analysis suite of packages.
## Loading required package: a4Core## Loading required package: a4Preproc##
## a4Classif version 1.40.0## Loading required package: Biobase## 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, sd, var, xtabs## The following objects are masked from 'package:base':
##
## Filter, Find, Map, Position, Reduce, anyDuplicated, append,
## as.data.frame, basename, cbind, colnames, dirname, do.call,
## duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
## lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
## pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
## tapply, union, unique, unsplit, which.max, which.min## Welcome to Bioconductor
##
## Vignettes contain introductory material; view with
## 'browseVignettes()'. To cite Bioconductor, see
## 'citation("Biobase")', and for packages 'citation("pkgname")'.To demonstrate the functionalities of the package, the ALL dataset is used. The genes are annotated thanks to the addGeneInfo utility function of the a4Preproc package.
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)## Loading required package: hgu95av2.db## Loading required package: AnnotationDbi## Loading required package: stats4## Loading required package: IRanges## Loading required package: S4Vectors##
## Attaching package: 'S4Vectors'## The following objects are masked from 'package:base':
##
## I, expand.grid, unname##
## Attaching package: 'IRanges'## The following object is masked from 'package:grDevices':
##
## windows## Loading required package: org.Hs.eg.db## ## ALL$BTtype <- as.factor(substr(ALL$BT,0,1))2 Classify microarray data
2.1 Lasso regression
resultLasso <- lassoClass(object = ALL, groups = "BTtype")
plot(resultLasso,
label = TRUE,
main = "Lasso coefficients in relation to degree of penalization."
)
topTable(resultLasso, n = 15)## The lasso selected 16 genes. The top 15 genes are:
##
## Gene Coefficient
## 38319_at CD3D 0.95966733
## 35016_at CD74 -0.60928095
## 38147_at SH2D1A 0.49240967
## 35792_at MGLL 0.46856925
## 37563_at SRGAP3 0.26648240
## 38917_at YME1L1 0.25100075
## 40278_at GGA2 -0.25017550
## 41164_at IGHM -0.12387272
## 41409_at THEMIS2 -0.10581122
## 38242_at BLNK -0.10309606
## 35523_at HPGDS 0.10169706
## 38949_at PRKCQ 0.07832802
## 33316_at TOX 0.06963509
## 33839_at ITPR2 0.05801832
## 40570_at FOXO1 -0.048588632.2 PAM regression
resultPam <- pamClass(object = ALL, groups = "BTtype")
plot(resultPam,
main = "Pam misclassification error versus number of genes."
)
topTable(resultPam, n = 15)## Pam selected 1 genes. The top 15 genes are:
##
## GeneSymbol B.score T.score av.rank.in.CV prop.selected.in.CV
## 38319_at CD3D -0.1693 0.4875 1 1confusionMatrix(resultPam)## predicted
## true B T
## B 95 0
## T 1 322.3 Random forest
# select only a subset of the data for computation time reason
ALLSubset <- ALL[sample.int(n = nrow(ALL), size = 100, replace = TRUE), ]
resultRf <- rfClass(object = ALLSubset, groups = "BTtype")
plot(resultRf)
topTable(resultRf, n = 15)## Random forest selected 17 genes. The top 15 genes are:
##
## GeneSymbol
## 133_at CTSC
## 32058_at CHST10
## 32097_at PCNT
## 32550_r_at CEBPA
## 32916_at PTPRE
## 33256_at SLC25A12
## 33281_at IKBKE
## 33396_at GSTP1
## 33410_at ITGA6
## 34563_at KIF14
## 35291_at BAG2
## 35715_at ANAPC15
## 37177_at CD58
## 37875_at GPA33
## 38259_at STXBP22.4 ROC curve
ROCcurve(gene = "ABL1", object = ALL, groups = "BTtype")## Warning in ROCcurve(gene = "ABL1", object = ALL, groups = "BTtype"): Gene ABL1 corresponds to 6 probesets; only the first probeset ( 1635_at ) has been displayed on the plot.
3 Appendix
3.1 Session information
## R version 4.1.0 RC (2021-05-10 r80283)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows Server x64 (build 17763)
##
## Matrix products: default
##
## locale:
## [1] LC_COLLATE=C LC_CTYPE=English_United States.1252 LC_MONETARY=English_United States.1252 LC_NUMERIC=C LC_TIME=English_United States.1252
##
## attached base packages:
## [1] stats4 parallel stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] hgu95av2.db_3.2.3 org.Hs.eg.db_3.13.0 AnnotationDbi_1.54.0 IRanges_2.26.0 S4Vectors_0.30.0 ALL_1.33.0 Biobase_2.52.0 BiocGenerics_0.38.0 a4Classif_1.40.0 a4Preproc_1.40.0 a4Core_1.40.0
##
## loaded via a namespace (and not attached):
## [1] KEGGREST_1.32.0 shape_1.4.6 xfun_0.23 bslib_0.2.5.1 splines_4.1.0 lattice_0.20-44 vctrs_0.3.8 htmltools_0.5.1.1 yaml_2.2.1 blob_1.2.1 survival_3.2-11 rlang_0.4.11 jquerylib_0.1.4 DBI_1.1.1 bit64_4.0.5 GenomeInfoDbData_1.2.6 foreach_1.5.1 zlibbioc_1.38.0 stringr_1.4.0 Biostrings_2.60.0 codetools_0.2-18
## [22] evaluate_0.14 memoise_2.0.0 knitr_1.33 varSelRF_0.7-8 fastmap_1.1.0 GenomeInfoDb_1.28.0 highr_0.9 pamr_1.56.1 Rcpp_1.0.6 ROCR_1.0-11 cachem_1.0.5 XVector_0.32.0 jsonlite_1.7.2 bit_4.0.4 png_0.1-7 digest_0.6.27 stringi_1.6.2 grid_4.1.0 tools_4.1.0 bitops_1.0-7 magrittr_2.0.1
## [43] sass_0.4.0 RCurl_1.98-1.3 glmnet_4.1-1 RSQLite_2.2.7 randomForest_4.6-14 cluster_2.1.2 pkgconfig_2.0.3 crayon_1.4.1 Matrix_1.3-3 rmarkdown_2.8 httr_1.4.2 iterators_1.0.13 R6_2.5.0 compiler_4.1.0