R 基于概率权重向量的随机抽样

R 基于概率权重向量的随机抽样,r,probability,sampling,R,Probability,Sampling,我有向量d我想: samp <- sample(1:100,1) prob <- rep(1,100) prob[samp]=0 samp由于您在不替换的情况下进行采样,如果所需偏移处的采样不可用,您如何看待概率的变化? peke<-c(2,5,7,10,7,5,2) #your 'triangle' probability for (jj = c(0,2,3){ prob[(1:7)*(1+samp*(jj)] <- peke } newsamp <-samp

我有向量
d我想:

samp <- sample(1:100,1)
prob <- rep(1,100)
prob[samp]=0

samp由于您在不替换的情况下进行采样,如果所需偏移处的采样不可用,您如何看待概率的变化?
peke<-c(2,5,7,10,7,5,2)  #your 'triangle' probability
for (jj = c(0,2,3){
prob[(1:7)*(1+samp*(jj)] <- peke
}
newsamp <-sample(1:100,1,prob)