In umich-biostatistics/PRECISE: Personalized Cancer-specific Integrated Network Estimation

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

PRECISE

Personalized Integrated Network Modeling

Web applet

PRECISE can be used as a web application found at BayesRx.

Find out more about the BayesRx group here: BayesRx Homepage.

Installation

This package depends on packages that not are in CRAN. Install these prerequisite packages prior to installing PRECISE:

install.packages("BiocManager")
BiocManager::install(c("graph", "RBGL", "BMS"))

You can now install PRECISE from Github with:

install.packages("devtools")  # you need devtools to install R packages from Github
devtools::install_github("umich-biostatistics/PRECISE")

Example

library(PRECISE)  # load PRECISE

data(rppadat)
RPPAdat = rppadat[[1]] # RPPA data for Apoptosis pathway
p = ncol(RPPAdat)
B = 100
alpha = 0.1
alpha.array = seq(0.0001, 0.1, length = 100) 
#pcfit = fitPC(dat = RPPAdat, alpha = alpha, stable = TRUE, 
#              alpha.array = alpha.array, B = B, labels = as.character(1:p), verbose = T) 
data(pcfit)
pcfit = pcfit.list[[1]] # the fitPC result for Apoptosis pathway 

#  make the results from the fitPC function into weighted adjacency matrix as follows
adj.pc = as(pcfit$fit@graph, "matrix") 
addr = matrix(as.numeric(pcfit$rownames), ncol = 2)
addr.rev = cbind(addr[,2], addr[,1]) 
adj.pc[addr] = adj.pc[addr] * pcfit$pcmaxSel[,1]
adj.pc[addr.rev] = adj.pc[addr.rev] * pcfit$pcmaxSel[,2] 
adj.pc

Getting help

For further illustration of PRECISE, see the vignette included with the package. To see the available vignettes, use browseVignettes("PRECISE"). You can read a specific vignette with vignette(PRECISE).

umich-biostatistics/PRECISE documentation built on June 8, 2019, 2:34 p.m.