INSTRUCTIONS The purpose of this exercise is to obtain a better understanding of your technical skills and capabilities in the areas of data processing, R programming and data visualization /...

1 answer below »

View more »
Answered Same DayAug 03, 2021

Answer To: INSTRUCTIONS The purpose of this exercise is to obtain a better understanding of your technical...

Mohd answered on Aug 04 2021
153 Votes
Untitled
Untitled
-
8/4/2021
knitr::opts_chunk$set(echo = TRUE,cache = TRUE,warning = FALSE,message = FALSE,dpi = 180,fig.width = 8,fig.height = 5)
#if (!requireNamespace("BiocManager", quietly = TRUE))
#install.packages("BiocManager")
#BiocManager::install
("ComplexHeatmap")
library(ComplexHeatmap)
#BiocManager::install("dendextend")
library(dendextend)
#install.packages("corrplot")
library(corrplot)
library(rcc)
#BiocManager::install("NanoStringNorm")
library(nanostringr)
rcc_file<-read_rcc(path = "/cloud/project/files")
Heatmap
my_matrix<-as.matrix(rcc_file$raw[,c(4:13)])
class(rcc_file)
## [1] "list"
class(my_matrix)
## [1] "matrix" "array"
fontsize<-0.5
#Gene_symbol<-data.frame(Gene=mmc$Gene.Symbol)
Heatmap(my_matrix)
Heatmap(my_matrix,cluster_columns = FALSE,
row_names_side = "left",
row_names_gp=gpar(cex=fontsize))
COL.OVD <- "#66C2A5"
COL.OVO <- "#A6D854"
COL.OVCL <- "#FC8D62"
COL.HLD <- "#8DA0CB"
COL.HLO <- "#E78AC3"
getNum <- function(str.vect) {
sapply(strsplit(str.vect, "[_]"), "[[", 2)
}
#boxplot(perFOV ~ fove.counted, ylab = "% fov", main = "% FOV by fove.counted", data = rcc_file$exp, pch = 20,
#col = c(COL.HLD, COL.OVD, COL.OVCL, COL.HLO, COL.OVO))
#abline(h = 75, lty = 2, col = "red")
#grid(NULL, NULL, lwd = 1)
#CorreletionMatrix
res <- cor(rcc_file$raw[4:13])
round(res, 2)
## gsm2055823014353pdmrna-zxlba3er
## gsm2055823014353pdmrna-zxlba3er 1.00
## gsm2055824024355pdmrna-cplirsoi 0.90
## gsm2055825033366pdmrna-vdzuy1ic 0.91
## gsm2055826044078pdmrna-ir4cfdoi 0.98
## gsm2055827054846pdmrna-1og2mkza 0.90
## gsm2055828063746pdmrna-owqwv5us 0.77
## gsm2055829073760pdmrna-hgjac45r 0.90
## gsm2055830083790pdmrna-av1oifdi 0.94
## gsm2055831094436pdmrna-3ubwxwbn 0.91
## gsm2055832104050pdmrna-xftlqjmo 0.95
## gsm2055824024355pdmrna-cplirsoi
## gsm2055823014353pdmrna-zxlba3er 0.90
## gsm2055824024355pdmrna-cplirsoi 1.00
## gsm2055825033366pdmrna-vdzuy1ic 0.71
## gsm2055826044078pdmrna-ir4cfdoi 0.88
## gsm2055827054846pdmrna-1og2mkza 1.00
## gsm2055828063746pdmrna-owqwv5us 0.57
## gsm2055829073760pdmrna-hgjac45r 0.99
##...
SOLUTION.PDF

Answer To This Question Is Available To Download

Related Questions & Answers

More Questions »

Submit New Assignment

Copy and Paste Your Assignment Here
April
January
February
March
April
May
June
July
August
September
October
November
December
2025
2025
2026
2027
SunMonTueWedThuFriSat
30
31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
1
2
3
00:00
00:30
01:00
01:30
02:00
02:30
03:00
03:30
04:00
04:30
05:00
05:30
06:00
06:30
07:00
07:30
08:00
08:30
09:00
09:30
10:00
10:30
11:00
11:30
12:00
12:30
13:00
13:30
14:00
14:30
15:00
15:30
16:00
16:30
17:00
17:30
18:00
18:30
19:00
19:30
20:00
20:30
21:00
21:30
22:00
22:30
23:00
23:30