Can someone please tell me whats wrong with this?
[Series[
func, {x, a, n}]];
{Plot[
{func, expansion},
{x, -2 Pi, 2 Pi},
PlotRange \[RightArrow] {{-2 Pi, 2 Pi}, {yMin, yMax}}],
Expand[expansion],
n "degree polynomial around the point x=",
a},
{{n, 3}, 1, 25, 1},
{{func, Sin[x], "Function in terms of x"}},
{{a, 0}, -5, 5},
{yMin, -4}, {yMax, 4}]