LRTResultPlot = Plot.plot({
height: 200,
y: {
grid: true
},
x: {
label: "Likelihood Ratio →"
},
marks: [
Plot.rectY(aq.table({maxLogLR:maxlogLRsim}).objects(),
Plot.binX({y: "count"},
{x: "maxLogLR",
thresholds: 30,
fill: "steelblue"
})),
Plot.ruleY([0]),
Plot.ruleX([T_alpha], {stroke: "red"}),
Plot.text([[T_alpha, 50]], {text: ['Rejection Region, LLR>'+T_alpha.toFixed(3)], dx: 18, fill:'red'}),
]
})