sqrt(((scales$A50[1]-A50bar)^2+(scales$A50[2]-A50bar)^2+(scales$A50[3]-A50bar)^2+(scales$A50[4]-A50bar)^2+
(scales$A50[5]-A50bar)^2+(scales$A50[6]-A50bar)^2+(scales$A50[7]-A50bar)^2+(scales$A50[8]-A50bar)^2+
(scales$A50[9]-A50bar)^2+(scales$A50[10]-A50bar)^2+(scales$A50[11]-A50bar)^2+(scales$A50[12]-A50bar)^2+
(scales$A50[13]-A50bar)^2+(scales$A50[14]-A50bar)^2+(scales$A50[15]-A50bar)^2+(scales$A50[16]-A50bar)^2+
(scales$A50[17]-A50bar)^2+(scales$A50[18]-A50bar)^2+(scales$A50[19]-A50bar)^2+(scales$A50[20]-A50bar)^2+
(scales$A50[21]-A50bar)^2+(scales$A50[22]-A50bar)^2+(scales$A50[23]-A50bar)^2+(scales$A50[24]-A50bar)^2+
(scales$A50[25]-A50bar)^2)/24)

sqrt(((scales$A100[1]-A100bar)^2+(scales$A100[2]-A100bar)^2+(scales$A100[3]-A100bar)^2+(scales$A100[4]-A100bar)^2+
(scales$A100[5]-A100bar)^2+(scales$A100[6]-A100bar)^2+(scales$A100[7]-A100bar)^2+(scales$A100[8]-A100bar)^2+
(scales$A100[9]-A100bar)^2+(scales$A100[10]-A100bar)^2+(scales$A100[11]-A100bar)^2+(scales$A100[12]-A100bar)^2+
(scales$A100[13]-A100bar)^2+(scales$A100[14]-A100bar)^2+(scales$A100[15]-A100bar)^2+(scales$A100[16]-A100bar)^2+
(scales$A100[17]-A100bar)^2+(scales$A100[18]-A100bar)^2+(scales$A100[19]-A100bar)^2+(scales$A100[20]-A100bar)^2+
(scales$A100[21]-A100bar)^2+(scales$A100[22]-A100bar)^2+(scales$A100[23]-A100bar)^2+(scales$A100[24]-A100bar)^2+
(scales$A100[25]-A100bar)^2)/24)

sqrt(((scales$B100[1]-B100bar)^2+(scales$B100[2]-B100bar)^2+(scales$B100[3]-B100bar)^2+(scales$B100[4]-B100bar)^2+
(scales$B100[5]-B100bar)^2+(scales$B100[6]-B100bar)^2+(scales$B100[7]-B100bar)^2+(scales$B100[8]-B100bar)^2+
(scales$B100[9]-B100bar)^2+(scales$B100[10]-B100bar)^2+(scales$B100[11]-B100bar)^2+(scales$B100[12]-B100bar)^2+
(scales$B100[13]-B100bar)^2+(scales$B100[14]-B100bar)^2+(scales$B100[15]-B100bar)^2+(scales$B100[16]-B100bar)^2+
(scales$B100[17]-B100bar)^2+(scales$B100[18]-B100bar)^2+(scales$B100[19]-B100bar)^2+(scales$B100[20]-B100bar)^2+
(scales$B100[21]-B100bar)^2+(scales$B100[22]-B100bar)^2+(scales$B100[23]-B100bar)^2+(scales$B100[24]-B100bar)^2+
(scales$B100[25]-B100bar)^2)/24)

sqrt(((scales$B50[1]-B50bar)^2+(scales$B50[2]-B50bar)^2+(scales$B50[3]-B50bar)^2+(scales$B50[4]-B50bar)^2+
(scales$B50[5]-B50bar)^2+(scales$B50[6]-B50bar)^2+(scales$B50[7]-B50bar)^2+(scales$B50[8]-B50bar)^2+
(scales$B50[9]-B50bar)^2+(scales$B50[10]-B50bar)^2+(scales$B50[11]-B50bar)^2+(scales$B50[12]-B50bar)^2+
(scales$B50[13]-B50bar)^2+(scales$B50[14]-B50bar)^2+(scales$B50[15]-B50bar)^2+(scales$B50[16]-B50bar)^2+
(scales$B50[17]-B50bar)^2+(scales$B50[18]-B50bar)^2+(scales$B50[19]-B50bar)^2+(scales$B50[20]-B50bar)^2+
(scales$B50[21]-B50bar)^2+(scales$B50[22]-B50bar)^2+(scales$B50[23]-B50bar)^2+(scales$B50[24]-B50bar)^2+
(scales$B50[25]-B50bar)^2)/24)