DQ1021

最新推荐文章于 2019-01-18 09:27:00 发布

weixin_30662849

最新推荐文章于 2019-01-18 09:27:00 发布

阅读量113

点赞数

原文链接：http://www.cnblogs.com/chinahack/p/9826995.html

版权

rm(list = ls())
setwd("D:/IH")
getwd()
library( "GEOquery" )
g989 =read.csv("34989.csv") 
m136 =read.csv("69136.csv")


g=grep("[linc]",g989$GeneName)
str(g)
gglinc989 = g989[g,]
write.csv(mmm136,"mmm136.csv")
write.csv(gglinc989,"gglinc989.csv")
index1<-duplicated(mm136$miRNA_ID)
levels(index1)
mm136<-mm136[!index1,]


index2<-duplicated(gg989$GeneName)
levels(index2)
gg989<-gg989[!index2,]

mm136=read.csv("mm136.csv")
gg989=read.csv("gg989.csv")

mmm136 <- mm136[mm136$P.Val < 0.05, ]
ggg989 <- gg989[gg989$P.Val < 0.05, ]


library(dplyr)
mmm136 <- subset(mm136, mm136$adj.P.Val < 0.05)

转载于:https://www.cnblogs.com/chinahack/p/9826995.html