score_result1 <- evaluate_estimator(
MSE(),
estimator = SampleMean(),
data_distribution = Normal(FALSE),
design = get_example_design(),
mu=seq(-.75, 1.32, 0.03),
sigma=1)
# Plotting the result of evaluate_estimator
plot(score_result1)
score_result2 <- evaluate_estimator(
MSE(),
estimator = AdaptivelyWeightedSampleMean(w1 = 0.8),
data_distribution = Normal(FALSE),
design = get_example_design(),
mu=seq(-.75, 1.32, 0.03),
sigma=1)
# Plotting a list of different score results
plot(c(score_result1, score_result2))
Run the code above in your browser using DataLab