// Downloaded From https://www.WiseStockTrader.com
SEC2 = Foreign("^XAU","C",fixup = 1);
D3 = Param("MA PERIOD BASE SECURITY", 13, 1, 1000,1);
D1 = Param("Regression Days", 500, 1, 2000,1);
D2 = Param("ROC Days", 11, 1, 100,1);
RS1 = ROC(C,D2);
RS2 = ROC(SEC2,D2);
b = Correlation(RS1,RS2,D1)*StDev(RS1,D1)/StDev(RS2,D1);
a = MA(RS1,D1)-b*MA(RS2,D1);
PR11 = b*RS2+a;
PRED1 = Ref(C,-D2)*(1+PR11/100);
PRED = MA(PRED1,D3);
Plot(PRED,"Predicted Value for Base Securtiy from LR on MA of ROC's",colorBlue);