fixed memory error by fastcor

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: imsig
 Type: Package
 Title: Immune Cell Gene Signatures for Profiling the Microenvironment of Solid Tumours
-Version: 1.0.0
+Version: 1.0.1
 Author: Ajit Johnson Nirmal
 Maintainer: Ajit Johnson Nirmal <[email protected]>
 Description: Estimate the relative abundance of tissue-infiltrating immune subpopulations abundances using gene expression data. 

R/pp_exp.R

@@ -5,7 +5,8 @@
 
 pp_exp <- function(exp){
   sig <- sig
-  g <- Reduce(intersect, list(as.character(row.names(exp), sig$gene)))
+  #g <- Reduce(intersect, list(as.character(row.names(exp), sig$gene)))
+  g <- intersect(row.names(exp), as.character(sig$gene))
   exp <- exp [as.character(g),]
   return(exp)
 }

R/pp_sig.R

@@ -4,7 +4,8 @@
 #' @return ImSig dataframe
 
 pp_sig <- function(exp){
-  g <- Reduce(intersect, list(as.character(row.names(exp), sig$gene)))
+  #g <- Reduce(intersect, list(as.character(row.names(exp), sig$gene)))
+  g <- intersect(row.names(exp), as.character(sig$gene))
   sig <- sig[sig$gene %in% as.character(g),]
   return(sig)
 }

README.md

@@ -31,6 +31,17 @@ The survival metadata can be imported into R using something similar to the basi
 **`install.packages("imsig")`**    
 **`library("imsig")`**
 
+#### To use the latest developmental version
+
+```
+if( !require(devtools) ) install.packages("devtools")
+devtools::install_github( "ajitjohnson/imsig", INSTALL_opts = "--no-multiarch")
+
+# Load the package
+library("imsig")
+
+```
+
 #### Get an idea of the imported data
 
 **`gene_stat (exp = exp, r = 0.7)`**