This function just averages the templates. An average image is returned, but it is just all the images superimposed. To create a template-aware average, see avg().
# NOT RUN {tem_only_avg <- demo_stim() |> average_tem()
# view the average templatedraw_tem(tem_only_avg, bg = "white")
# view the superimposed imagetem_only_avg
# }