R MetaboAnalystR 代谢组分析包

版权声明：欢迎交流：[email protected] https://blog.csdn.net/luo617/article/details/81706680

R MetaboAnalystR 代谢组分析包

• https://github.com/xia-lab/MetaboAnalystR

#先安装一些依赖bio包
metr_pkgs <- c("Rserve", "ellipse", "scatterplot3d", "Cairo", "randomForest", "caTools", "e1071", "som", "impute", "pcaMethods", "RJSONIO", "ROCR", "globaltest", "GlobalAncova", "Rgraphviz", "preprocessCore", "genefilter", "pheatmap", "SSPA", "sva", "Rcpp", "pROC", "data.table", "limma", "car", "fitdistrplus", "lars", "Hmisc", "magrittr", "methods", "xtable", "pls", "caret", "lattice", "igraph", "gplots", "KEGGgraph", "reshape", "RColorBrewer", "tibble", "siggenes", "plotly")
list_installed <- installed.packages()
new_pkgs <- subset(metr_pkgs, !(metr_pkgs %in% list_installed[, "Package"]))

if(length(new_pkgs)!=0){
  source("https://bioconductor.org/biocLite.R")
  biocLite(new_pkgs, dependencies = TRUE, ask = FALSE)
  print(c(new_pkgs, " packages added..."))
}
if((length(new_pkgs)<1)){
  print("No new packages added...")
}

install.packages('rmarkdown')
install.packages("devtools")

devtools::install_github("xia-lab/MetaboAnalystR")
#devtools::install_github("xia-lab/MetaboAnalystR", build_vignettes=TRUE)