# NOT RUN {
ys <- c(10,8,6)
xs <- c(5,4,3.1)
x_nots <- c(1,20,13,15,-5)
m <- 2.5
v <- 10
sigma <- 2
Estimator <- BLE_Ratio(ys, xs, x_nots, m, v, sigma)
Estimator
# Same example but informing sample means and sample size instead of sample observations
ys <- mean(c(10,8,6))
xs <- mean(c(5,4,3.1))
n <- 3
x_nots <- c(1,20,13,15,-5)
m <- 2.5
v <- 10
sigma <- 2
Estimator <- BLE_Ratio(ys, xs, x_nots, m, v, sigma, n)
Estimator
# }
Run the code above in your browser using DataLab