Calculating FDR in R

p <- read.csv(file.choose(),stringsAsFactors = F,header = F)

View(p)

p <- p[,1]

p

FDR <- p.adjust(p,method="fdr",n=length(p))

FDR

write.csv(FDR,file = "FDR.csv")