Skip to content

GitLab

Commit 64dec16f authored by Stefano Beretta's avatar Stefano Beretta
Browse files

Update ProjectTILS_CART.R

parent 4a89e03e
Show whitespace changes
Inline Side-by-side
ProjectTILs/ProjectTILS_CART.R
View file @ 64dec16f
...@@ -31,11 +31,12 @@ for (i in seq_along(query.projected)) { ...@@ -31,11 +31,12 @@ for (i in seq_along(query.projected)) {
ylim(-10, 10) ylim(-10, 10)
} }
# Fig6 A - Upper
png(file = paste(wdir, "Full_WPRE_CART_TILs.png", sep = "/"), width = 1400, height = 400) png(file = paste(wdir, "Full_WPRE_CART_TILs.png", sep = "/"), width = 1400, height = 400)
wrap_plots(plots, ncol = 4) wrap_plots(plots, ncol = 4)
dev.off() dev.off()
#### Barplot # Fig6 A - Upper Barplot
tb.full <- data.frame() tb.full <- data.frame()
palette <- ref@misc$atlas.palette palette <- ref@misc$atlas.palette
for (i in seq_along(query.projected)) { for (i in seq_along(query.projected)) {
...@@ -101,11 +102,12 @@ for (i in seq_along(query.projected)) { ...@@ -101,11 +102,12 @@ for (i in seq_along(query.projected)) {
ylim(-10, 10) ylim(-10, 10)
} }
# Fig6 A - Bottom
png(file = paste(wdir, "Full_WPRE_CART_Neg_TILs.png", sep = "/"), width = 1400, height = 400) png(file = paste(wdir, "Full_WPRE_CART_Neg_TILs.png", sep = "/"), width = 1400, height = 400)
wrap_plots(plots, ncol = 4) wrap_plots(plots, ncol = 4)
dev.off() dev.off()
#### Barplot # Fig6 A - Bottom Barplot
tb.full <- data.frame() tb.full <- data.frame()
palette <- ref@misc$atlas.palette palette <- ref@misc$atlas.palette
for (i in seq_along(query.projected)) { for (i in seq_along(query.projected)) {
......
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