Commit 8e56e82d authored by Leonard Herault's avatar Leonard Herault
Browse files

adding getMetaData Rscript

parent e52e26e5
......@@ -13,7 +13,7 @@ selectedColumns <- c("barcode","platform","runDate","sampleName","AGE",
"numclust","priming",
"predicted","hscScore",
"Pseudotime","monocleState", #NA for pL2 cluster cells
"HSC_Chambers","Bcell_Chambers","NK_Chambers", # signatures from litt with addModuleScore Seurat function
"HSC_Chambers","Bcell_Chambers","NK_Chambers", # scores for signatures from litt with addModuleScore Seurat function
"NaiveT_Chambers", "Mono_Chambers","Gran_Chambers",
"N.er_Chambers","Diff_Chambers","Lymph_Chambers",
"Mye_Chambers","Mm_HSC_Runx1_Wu","Mm_HSC_Tcf7_Wu",
......@@ -21,6 +21,6 @@ selectedColumns <- c("barcode","platform","runDate","sampleName","AGE",
"Mm_LT_HSC_Venezia","Mm_Proliferation_Venezia","Mm_Quiescence_Venezia",
"Mm_Adult_HSC_UP_Venezia","Polarity_factors_Ting","Novel_HSC_regul_polar_Ting",
"Svendsen","MGA_MEP",
"TMC","HEM","CAM","HLOD","MHC","AgingSvendsen") #signatures on signature intersection with aging DEG with addModuleScore Seurat function only
"TMC","HEM","CAM","HLOD","MHC","AgingSvendsen") #scores for signature intersection with aging DEG with addModuleScore Seurat function
write.table(seurat@meta.data[,selectedColumns],"report/herault_metadata.txt",quote = F,sep = "\t")
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment