# NOT RUN {
ys <- c(5,6,8)
N <- 5
m <- 6
v <- 5
sigma <- 1
Estimator <- BLE_SRS(ys, N, m, v, sigma)
Estimator
# Same example but informing sample mean and sample size instead of sample observations
ys <- mean(c(5,6,8))
N <- 5
n <- 3
m <- 6
v <- 5
sigma <- 1
Estimator <- BLE_SRS(ys, N, m, v, sigma, n)
Estimator
# }
Run the code above in your browser using DataLab