# A toy example:
# 10 down-reg, 1000 unchanged, 90 up-reg genes
# due to overexpressing a miRNA
trmt <- c(rnorm(10,mean=0.01), rnorm(1000,mean=1), rnorm(90,mean=2)) + 1e3
ctrl <- c(rnorm(1100,mean=1)) + 1e3
logFC <- log2(trmt) - log2(ctrl)
# 8 out of the 10 down-reg genes have prominent seq score A
seqScoreA <- c(rnorm(8,mean=-2), rnorm(1092,mean=0))
# 10 down-reg genes plus 10 more genes have prominent seq score B
seqScoreB <- c(rnorm(20,mean=-2), rnorm(1080,mean=0))
seqScores <- cbind(seqScoreA, seqScoreB)
p.targetScore <- targetScore(logFC, seqScores, tol=1e-3)
Run the code above in your browser using DataLab