data <- read.table("./FPKM.txt",sep = '\t',header = T)
p1 <-as.matrix(p_value)
p2 <-as.vector(p1)#格式转换
p2
p_adjust <- p.adjust(p2,method = "BH")
data <- read.table("./FPKM.txt",sep = '\t',header = T)
p1 <-as.matrix(p_value)
p2 <-as.vector(p1)#格式转换
p2
p_adjust <- p.adjust(p2,method = "BH")