要求:用函数计算出重复基因的具体个数 先看一下g的内容 >load("g.Rdata") >g [1] "WNT9B" "CRAMP1L" "MYL12B" "PRSS8" "GFM2" [6] "CRAMP1L" "TUBA4A" "SLCO1C1" "NYNRIN" CCT4" "MARC2" "ZNF586" "LCP1" "CECR5" [86] "OR2D3" "CRAMP1L g_3 <- table(g)[table(g)>1] > g_3 g ATG10 CASKIN2 CCT4 CECR5 COMMD1 CRAMP1L GGT7 HBD > sort(unique(g))[as.numeric(table(g))>1] [1] "ATG10" "CASKIN2" "CCT4" "CECR5" "COMMD1" "CRAMP1L
- c(80,20) > x [1] 80 10 11 40 20 练习2-4 向量取子集 图片 > load("gands.Rdata") > g [1] "WNT9B" "CRAMP1L " [3] "MYL12B" "PRSS8" [5] "GFM2" "CRAMP1L" [7] "TUBA4A" "MARC2" [83] "ZNF586" "LCP1" [85] "CECR5" "OR2D3" [87] "CRAMP1L "LCP1" [99] "CECR5" "HOOK2" > length(g) [1] 100 > g[g=seq(2,100,2)] [1] "CRAMP1L " "PRSS8" "CRAMP1L" [4] "SLCO1C1" "COMMD1" "CCT4" [7] "RAB7A" "ZDHHC16
70 72## [37] 74 76 78 80 82 84 86 88 90## [46] 92 94 96 98 100g[seq(2,100,2)]## [1] "CRAMP1L " "PRSS8" ## [3] "CRAMP1L" "SLCO1C1" ## [5] "COMMD1" "CCT4" ## [7] "RAB7A"
68 70 72 74 76 78 80 82 84 ## [43] 86 88 90 92 94 96 98 100 g[seq(2,100,2)] ## [1] "CRAMP1L " "PRSS8" "CRAMP1L" "SLCO1C1" "COMMD1" "CCT4" ## [7] "RAB7A" "ZDHHC16"
node-websocket-server) ─Socket.IO(http://socket.io) Ruby ─EventMachine(http://github.com/igrigorik/em-websocket) ─Cramp (https://github.com/lifo/cramp) ─Sunshowers(http://rainbows.rubyforge.org/sunshowers/) Python ─Twisted
## [1] "CRAMP1L" "PRSS8" "CRAMP1L" "SLCO1C1" "COMMD1" "CCT4" ## [7] "RAB7A"
g[seq(2,length(g),2)]## [1] "CRAMP1L" "PRSS8" "CRAMP1L" "SLCO1C1" "COMMD1" "CCT4"
同时评估C-kit激动剂干细胞因子和抗菌肽CRAMP在金葡菌肺炎治疗中的作用。该研究将揭示肥大细胞在金葡菌感染免疫中的关键作用,有助于寻找金葡菌性肺炎新的干预靶点,为疾病治疗提供新的手段。
node-websocket-server) ─ Socket.IO(http://socket.io) Ruby EventMachine(http://github.com/igrigorik/em-websocket) Cramp (https://github.com/lifo/cramp) Sunshowers(http://rainbows.rubyforge.org/sunshowers/) Python Twisted(