Linear Regression MT5/MT4 EA from TradingView Indicator (Will consider higher prices)

I have an indicator on tradingview (pine) that I would like converted into an EA on MT5. Code for the indicator:

//@version=4

study("Linear Regression Trend Channel With Pearson's R", "LRTCWPR", true, format.inherit)

period     = input(     101, "Period"       , input.integer, minval=3)

deviations = input(    2.0, "Deviation(s)" , input.float  , minval=0.1, step=0.1)

extendType = input("Right", "Extend Method", input.string , options=["Right","None"])=="Right" ? extend.right : extend.none

periodMinusOne = period-1

Ex = 0.0, Ey = 0.0, Ex2 = 0.0,Ey2 =0.0, Exy = 0.0, for i=0 to periodMinusOne

    closeI = nz(close[i]), Ex := Ex + i, Ey := Ey + closeI, Ex2 := Ex2 + (i * i),Ey2 := Ey2 + (closeI * closeI), Exy := Exy + (closeI * i)

ExT2 = pow(Ex,2.0) //Sum of X THEN Squared

EyT2 = pow(Ey,2.0) //Sym of Y THEN Squared

PearsonsR = round(-1000000*(Exy - ((Ex*Ey)/period))/(sqrt(Ex2-(ExT2/period))*sqrt(Ey2-(EyT2/period))))/10000

ExEx = Ex * Ex, slope = Ex2==ExEx ? 0.0 : (period * Exy - Ex * Ey) / (period * Ex2 - ExEx)

linearRegression = (Ey - slope * Ex) / period

intercept = linearRegression + bar_index * slope

deviation = 0.0, for i=0 to periodMinusOne

    deviation := deviation + pow(nz(close[i]) - (intercept - slope * (bar_index[i])), 2.0)

deviation := deviations * sqrt(deviation / periodMinusOne)

startingPointY = linearRegression + slope * periodMinusOne

var label pearsonsRLabel = na

label.delete(pearsonsRLabel[1])

pearsonsRLabel := label.new(bar_index[50],sma(close,100)-deviation,text=tostring(PearsonsR), color=color.black,style=label.style_labelup,textcolor=color.white,size=size.large)

var line upperChannelLine = na  , var line medianChannelLine = na  , var line lowerChannelLine = na

line.delete(upperChannelLine[1]), line.delete(medianChannelLine[1]), line.delete(lowerChannelLine[1])

upperChannelLine  := line.new(bar_index - period + 1, startingPointY + deviation, bar_index, linearRegression + deviation, xloc.bar_index, extendType, color.new(#FF0000, 0), line.style_solid , 2)

medianChannelLine := line.new(bar_index - period + 1, startingPointY            , bar_index, linearRegression            , xloc.bar_index, extendType, color.new(#4CAF50, 0), line.style_solid , 2)

lowerChannelLine  := line.new(bar_index - period + 1, startingPointY - deviation, bar_index, linearRegression - deviation, xloc.bar_index, extendType, color.new(#2196F3, 0), line.style_solid , 2)