Visualizes the squared annealing temperature across iterations for a given `discourse.object`, allowing inspection of the cooling schedule used in optimization.
Examples
if (FALSE) { # \dontrun{
result <- optim_aov(args = ..., ...)
plot_cooling(result)
} # }