Description Usage Arguments Value Examples
Estimation of Mean Residual Lifetime Based on the Ranked Set Sampling Scheme (EMRL_RSS)
1 |
t |
A numeric vector |
RSSdata |
Data generated from Ranked Set Sampling Scheme |
k |
Collection size |
m |
Number of cycles |
The Estimation of MRL based on the RSS
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | k <- 5
m <- 5
lambda <- 1
RSSdata <- matrix(0, nrow = k, ncol = m)
for (j in 1:m) {
for (i in 1:k) {
x <- rgamma(k, shape = 2, scale = 1)
y <- lambda * ((x - mean(x)) / sd(x)) + sqrt((1 - lambda^2)) * rnorm(k, 0, 1)
sy <- sort(y)
syindex <- sort(y, index.return = TRUE)$ix
RSSdata[i, j] <- x[syindex][i]
}
}
Mhat_RSS(seq(0, 10, 0.1), RSSdata, k = 5, m = 5)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.