Row

INSTALL

library(devtools) # If you don't have devtools
#first run install.packages("devtools")
install_github("Jordan-Soria/jjtools")

Alternatively you can install it manually in R (is compressed in .zip!):

When you install the package you will need install before Rsubread and mygene packages from Bioconductor (the other packages will be downloaded from the CRAN).

USAGE EXAMPLE

From a gene data expression, we will obtain a group of 5 that maximizes the information in the group:

library(readr)
library(jjtools)
data_cells <- read_table2("https://www.ebi.ac.uk/gxa/experiments-content/E-PROT-25/resources/ExperimentDownloadSupplier.Proteomics/tsv",
col_names = FALSE, skip = 5)
replace(data_cells, is.na(data_cells), 0) -> file_line_cells_NA
WantedData=file_line_cells_NA[file_line_cells_NA$X2 %in% surfy$`Gene symbol UniProt`, ]
head(WantedData)
# 75 simulations
group(WantedData,75,250,5,337,3)

Plot results:

Cells selected:

[1] "X3"  "X59" "X29" "X16" "X44"