Description Usage Arguments Examples
View source: R/strataCompleteLink.R
Title
1 2 3 4 5 6 7 8 9 10 11 | strataCompleteLink(
X,
pik,
ref,
k,
tb,
pikInit,
bound = 1,
tore = FALSE,
toreBound = -1
)
|
cum |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | rm(list = ls())
set.seed(6)
eps <- 1e-13
N <- 36
n <- 6
pik <- rep(n/N,N)
pik <- inclusionprobabilities(runif(N),n)
tb <- runif(2,min = -0.001,max = 0.001)
tb
X <- as.matrix(expand.grid(seq(1,sqrt(N),1),seq(1,sqrt(N),1)))
tore = TRUE
toreBound = sqrt(N)
comment = TRUE
bound = 1
ref <- 16
s <- ref
k = 9
pik_cutted <- runif(1,min = eps,max = pik[s[1]] - eps)
pikstar <- pik
pikstar[s] <- pik_cutted
pikInit <- pik
pik <- pikstar
strata <- strataCompleteLink(X,pik,ref,k,tb,pikInit)
strata <- strataCompleteLink(X,pik,ref,k,tb,pikInit)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.