Nothing
#' @export
S.PPS<-function(m,x){
N<-length(x)
pk<-x/sum(x)
cumpk<-cumsum(pk)
U<-runif(m)
ints<-cbind(c(0,cumpk[-N]),cumpk)
sam<-rep(0,m)
for(i in 1:m){
sam[i]<-which(U[i]>ints[,1] & U[i]<ints[,2])
}
return(cbind(sam,pk[sam]))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.