plot3=vl.markArea({stroke:"black",fill:"pink"})
.title(`Tail Area: ${2*dataFilt[0].area}`)
.data(data)
.transform(
vl.filter(`datum.x <=${x} && datum.x >= ${-x}`)
)
.encode(
vl.x().fieldQ("x").scale({domain:[-4,4]}),
vl.y().fieldQ("y").scale({domain:[0,.4]})
)
.render()