Dpv<-function(){
Onumber<-1000/8 #初始分配一隻股票的股數
DATA<-Data()
c<-DATA[ ,2:9] #數據轉換
a<-as.matrix(c)
Output<-Rult(a,Onumber) #返回每期各個股票的市值 Output$Pv 以及股票數目 Output$Num
Befor<-matrix(nrow=(nrow(a)-99),ncol=1)
After<-matrix(nrow=(nrow(a)-99),ncol=1)
Dpv<-matrix(nrow=(nrow(a)-99),ncol=1)
for(i in 1:nrow(Output$Pv)){
Befor[i]<-(sum(a[i-100, ])*Onumber)
After[i]<-sum(Output$Pv[i, ])
}
Dpv<-(After-Befor)
return(Dpv)
}