Minimal element of the upper triangular matrix

Input: The upper triangular matrix ℝ;
Output: Minimal element;
Submodules: None

MinR[R_]:=Module[{n=Length[R[[1]]],min=Infinity},
Do[
red=Drop[R[[i]],{1,i}];
minn=Min[red];
If[minn<min,min=minn];
,{i,n-1}];
min]