请问以下的MATLAB代码如何用Rstudio实现
烦请高手解答一下
新手上路请多多帮助

R=[1,0.54,0.62,0.63,0.24;
    0.54,1,0.55,0.70,0.53;
    0.62,0.55,1,0.56,0.37;
    0.63,0.70,0.56,1,0.38;
    0.24,0.53,0.37,0.38,1]
a=size(R);
B=zeros(a);
flag=0;
while flag==0
for i= 1: a
for j= 1: a
for k=1:a
B( i , j ) = max(min( R( i , k) , R( k, j) ) , B( i , j ) ) ;%R与R内积，先取小再取大
end
end
end
if B==R
flag=1;
else
R=B;%循环计算R传递闭包
end
end