R/UPmidzunopi2.R

"UPmidzunopi2" <-
function(pik) 
{
N=length(pik)
UN=rep(1,times=N)
b=1-pik%*%t(UN)
1-b-t(b)+UPtillepi2(1-pik)
}

Try the sampling package in your browser

Any scripts or data that you put into this service are public.

sampling documentation built on Nov. 2, 2023, 6:26 p.m.