$k=0;
(Subscript[R, 1,2])(Subscript[(OverBar[R]), 3,4])//(Subscript[m, 1,3->1])//(Subscript[m, 2,4->2])

$k=1;
(Subscript[R, 1,2])(Subscript[(OverBar[R]), 3,4])//(Subscript[m, 1,3->1])//(Subscript[m, 2,4->2])

$k

ϵSeries[0]

(Subscript[m, 1,3->1])

(Subscript[𝔼, {1,3}->{1}])[1,(Subscript[p, 1,1]) ((Subscript[π, 1,1])+(Subscript[π, 1,3]))+(Subscript[p, 2,1]) ((Subscript[π, 2,1])+(Subscript[π, 2,3]))+(Subscript[p, 3,1]) ((Subscript[π, 3,1])+(Subscript[π, 3,3]))-(Subscript[π, 1,3]) (Subscript[ξ, 1,1])+(Subscript[x, 1,1]) ((Subscript[ξ, 1,1])+(Subscript[ξ, 1,3]))-(Subscript[π, 2,3]) (Subscript[ξ, 2,1])+(Subscript[x, 2,1]) ((Subscript[ξ, 2,1])+(Subscript[ξ, 2,3]))-(Subscript[π, 3,3]) (Subscript[ξ, 3,1])+(Subscript[x, 3,1]) ((Subscript[ξ, 3,1])+(Subscript[ξ, 3,3])),ϵSeries[0]]

?ϵSeries