# Stable Pair 
source("./StablePair.R")
G91.pre.PD.SP<-StablePair(G91.pre.PD, as.numeric(GSE91061_fpkm_GeneID_RM.1[,1]),0.8)

#Reverse_pair
source("./Reverse_pair.R",encoding = 'UTF-8')

G91.pre.R.RP<-Reverse_pair(G91.pre.PD,G91.pre.R,as.numeric(GSE91061_fpkm_GeneID_RM.1[,1]),G91.pre.PD.SP,100000,"")
G91.pre.R.RP<-G91.pre.R.RP[order(G91.pre.R.RP[,3]-G91.pre.R.RP[,4],decreasing = T ),] 
G91.pre.R.RP70<-G91.pre.R.RP[(G91.pre.R.RP[,3]-G91.pre.R.RP[,4])>=0.70,]

####最大覆盖率####
source("./maxcoverpair1.R")

MaxPairCom<-maxcoverpair1(G91.pre.PD,G91.pre.R,G91.pre.R.RP70,as.numeric(GSE91061_fpkm_GeneID_RM.1[,1]))
Fre_MaxPairCom<-table(MaxPairCom)
Top_Fre_MaxPairCom<-order(Fre_MaxPairCom,decreasing = T)
G91.pre.R.RP70_1<-G91.pre.R.RP70[Top_Fre_MaxPairCom,]

G91.pre.Exp<-cbind(G91.pre.PD,G91.pre.R)
G91.Label<-c(rep(0,dim(G91.pre.PD)[2]),rep(1,dim(G91.pre.R)[2]))


source("./mCancermiRNA/RpairTest.R")
G91.RE<-NULL
for (i in 1:320)
{
  Temp<-RpairTest(G91.pre.Exp,as.numeric(GSE91061_fpkm_GeneID_RM.1[,1]),G91.pre.R.RP70_1[c(1:320),],G91.Label,i)
  G91.RE=rbind(G91.RE,c(i,Temp))
}

G91.pre.R.RP70_1_15<-G91.pre.R.RP70_1[1:15,]
G91.pre.R.RP70_1_15<-as.data.frame(G91.pre.R.RP70_1_15)


#最大覆盖率训练集测试
G91.Re<-RpairTest(G91.pre.Exp,as.numeric(GSE91061_fpkm_GeneID_RM.1[,1]),G91.pre.R.RP70_1_15,G91.Label,dim(G91.pre.R.RP70_1_15)[1])