Function to calculate technical error of measurement (TEM) when there are more than two observers involved.
calculate_team_tem(n, k, m)
A numeric value specifying number of subjects
A numeric value specifying number of observers
A data frame of of measurements with number of columns equal to
A numeric value of the technical error of measurement (TEM). Unit of TEM is the same as the unit of the measurements compared.
# calculate team TEM from stature dataset calculate_team_tem(n = 10, k = 4, m = stature[ , c("m1", "m2", "m3", "m4")])#>  0.003063223