
October 13, 2016


PI: Dr. Dan Hanley 



Muschelli, John, Elizabeth Sweeney, and Ciprian Crainiceanu. "brainR: Interactive 3 and 4D Images of High Resolution Neuroimage Data." R JOURNAL 6.1 (2014): 42-48.






| Overall | |
|---|---|
| Age in Years: Mean (SD) | 60.8 (11.2) |
| Male: N (%) | 76 (68.5%) |
| Reader-Based Clot Location (%) | |
| Putamen | 68 (61.3) |
| Lobar | 33 (29.7) |
| Globus Pallidus | 6 ( 5.4) |
| Thalamus | 4 ( 3.6) |
| ICH Volume in mL: Mean (SD) | 37.4 (20.1) |

Local Mean: \(\bar{x}(v) = \frac{1}{27} \sum\limits_{k}^{27} x_k(v)\) 


Training Data Structure

Again, \(y_{i}(v)\) is the presence / absence of ICH for voxel \(v\) from person \(i\).
General model form: \[ P\{y_{i}(v) = 1\} \propto f\{X_{i}(v)\} \]
glm function)mgcv package)glmnet package): \[ \mathcal{L}\left[\left.Y_{i}(v) \right|\, f\{X_i(v)\}\right] \propto \beta_0 + \sum_{k= 1}^{p} x_{i, k}(v) \beta_{k} + \lambda \sum_{k= 1}^{p} \left|\beta_{k}\right|
\]randomForest package)
\(f(X_{i}(v)) \propto\) 
\[ \text{Estimated Volume}_{i} = \text{cc per voxel} \times \sum_{v}^{V_i} \hat{y}_{i}(v) \]
\[ \text{Volume}_{i} = \text{cc per voxel} \times \sum_{v}^{V_i} y_{i}(v) \]





Statistical methods are just one part

Multiple pieces of software used


From Carp, Joshua. "The secret lives of experiments: methods reporting in the fMRI literature." Neuroimage 63.1 (2012): 289-300.
Neuroconductor: Lower the bar to entry
Statisticians involved with entire pipeline

Number of downloads as of October 10, 2016 (cranlogs package):

Centralize the packages
Detailed tutorials on how to actually perform an analysis
Provide package checks / rules / stability



Allow neuroimaging to use all the things R has to offer.
Neuroconductor DownsidesCoursera Course: Introduction to Neurohacking In R

Dan Hanley 
Ciprian Crainiceanu 
Brian Caffo 
Jean-Philippe Fortin 
Adi Gherman 
Elizabeth Sweeney 
For each manual and automated segmentation, we can calculate the following 2-by-2 table, where the cells represent number of voxels and a corresponding Venn diagram:
| Manual | |||
| 0 | 1 | ||
| PitCH | 0 | TN | FN |
| 1 | FP | TP | |

We calculate the Dice Similarity Index (DSI): \[ \definecolor{red}{RGB}{255,0,0} \definecolor{blue}{RGB}{0,0,255} \definecolor{purple}{RGB}{128,0,128} \definecolor{blac,}{RGB}{0,0,0} \frac{ \color{purple} 2 \times \# \text{TP} }{ \color{purple} 2 \times \#\text{TP} \color{black} + \color{red} \text{FN} \color{black} + \color{blue} \text{FP}} \]





Not started yet
\(^*\) - working with Jean-Philippe Fortin on these
The knitcitations, knitr, pander, plyr, RefManageR, rmarkdown, and tableone packages were used to create this presentation in RStudio.
setting value version R version 3.3.1 (2016-06-21) system x86_64, darwin13.4.0 ui X11 language (EN) collate en_US.UTF-8 tz America/New_York date 2016-12-13 package * version date backports 1.0.4 2016-10-24 bibtex 0.4.0 2014-12-31 bitops 1.0-6 2013-08-17 class 7.3-14 2015-08-30 devtools 1.12.0.9000 2016-12-08 digest 0.6.10 2016-08-02 DT 0.2 2016-08-09 e1071 1.6-7 2015-08-05 evaluate 0.10 2016-10-11 htmltools 0.3.6 2016-12-08 htmlwidgets 0.8 2016-11-09 httr 1.2.1.9000 2016-11-21 jsonlite 1.1 2016-09-14 knitcitations * 1.0.7.1 2016-02-01 knitr * 1.15.1 2016-11-22 lattice 0.20-34 2016-09-06 lubridate 1.6.0 2016-09-13 magrittr 1.5 2014-11-22 Matrix 1.2-7.1 2016-09-01 memoise 1.0.0 2016-01-29 pander * 0.6.0 2016-06-17 pkgbuild 0.0.0.9000 2016-12-08 pkgload 0.0.0.9000 2016-12-08 plyr * 1.8.4 2016-06-08 R6 2.2.0 2016-10-05 Rcpp 0.12.8.2 2016-12-08 RCurl 1.95-4.8 2016-03-01 RefManageR * 0.13.1 2016-11-13 RJSONIO 1.3-0 2014-07-28 rmarkdown 1.2.9000 2016-12-08 rprojroot 1.1 2016-10-29 stringi 1.1.2 2016-10-01 stringr 1.1.0 2016-08-19 survey 3.31-2 2016-09-23 survival 2.40-1 2016-10-30 tableone * 0.7.3 2015-11-11 withr 1.0.2 2016-06-20 XML 3.98-1.5 2016-11-10 yaml 2.1.14 2016-11-12 zoo 1.7-13 2016-05-03 source CRAN (R 3.3.0) CRAN (R 3.2.0) CRAN (R 3.2.0) CRAN (R 3.3.1) Github (hadley/devtools@1ce84b0) cran (@0.6.10) CRAN (R 3.3.0) CRAN (R 3.2.0) CRAN (R 3.3.0) Github (rstudio/htmltools@4fbf990) CRAN (R 3.3.2) local cran (@1.1) Github (cboettig/knitcitations@afffa3e) cran (@1.15.1) CRAN (R 3.3.0) CRAN (R 3.3.0) CRAN (R 3.2.0) CRAN (R 3.3.0) CRAN (R 3.2.3) Github (Rapporter/pander@48fa9ed) Github (r-pkgs/pkgbuild@65eace0) Github (r-pkgs/pkgload@def2b10) CRAN (R 3.3.0) cran (@2.2.0) Github (RcppCore/Rcpp@8c7246e) CRAN (R 3.2.4) CRAN (R 3.3.2) CRAN (R 3.2.0) Github (rstudio/rmarkdown@7a3df75) cran (@1.1) CRAN (R 3.3.0) cran (@1.1.0) CRAN (R 3.3.0) CRAN (R 3.3.0) CRAN (R 3.2.2) CRAN (R 3.3.0) CRAN (R 3.3.2) CRAN (R 3.3.2) CRAN (R 3.2.4)

Image from http://www.strokecenter.org/patients/about-stroke/ischemic-stroke/
R Data packages for testing

Image from http://www.strokecenter.org/patients/about-stroke/ischemic-stroke/