r=(((Subscript[Σ, i=1]^n)((Subscript[x, i])(Subscript[y, i]))-n(OverBar[x])(OverBar[y]))/((Sqrt[(Subscript[Σ, i=1]^n)((Subscript[x, i]^2))-n((Overscript[x, ¯])^2)])(Sqrt[(Subscript[Σ, i--1]^n)((Subscript[y, i]^2))-n((Overscript[y, ¯])^2)])))