Sstrhsrtj

I need to edit this code so the red dashed line can end up at R4 not R3 as in the following picture .

 documentclass[tikz,border=3.14mm]{standalone}

 usetikzlibrary{positioning,calc,arrows.meta}

begin{document}

begin{tikzpicture}[bullet/.style={draw,circle,minimum width=3mm,inner 

sep=0pt,

fill=cyan!50}]

node[bullet,label={[yshift=-2mm]below:$R_1$}] (R1){};

node[right=2cm of R1,bullet,label={[yshift=-2mm]below:$R_2$}] (R2){};

node[right=2cm of R2,yshift=6mm,bullet,label={[yshift=2mm]above:$R_3$}] (R3) 

 {};

node[right=2cm of R3,yshift=-6mm,bullet,label={[yshift=-2mm]below:$R_4$}] 

  (R4){};

  node[right=2cm of R4,bullet,label={[yshift=-2mm]below:$R_5$}] (R5){};

foreach X [evaluate=X as Y using {int(X+1)}] in {1,...,4}

{draw[thick,-latex,cyan!50] (RX) -- (RY);}





 draw[thick,red,{Circle}-latex,dashed] let p1=($(R2)-(R1)$), p2=($(R3)- 

(R2)$), 

n1={atan2(y1,x1)},n2={atan2(y2,x2)} in 

([yshift=1mm]R1.north) to[out=n1,in=180,looseness=0.5] 

([yshift=1mm]R2.north) to[out=0,in=n2-180,looseness=0.5] 

  ([yshift=1mm,xshift=-2mm]R3.north);



  end{tikzpicture}

      end{document}