Biodem (version 0.5)

uri: Calculates the Unbiased Random Isonymy matrix

Description

"uri" calculates the unbiased random isonymy coefficient starting from surname frequencies.

Usage

uri(x)

Arguments

x

is a surname frequency table where the N rows correspond to the surnames present in the whole population and the M columns are the (sub)populations

Value

Returns a square symmetric unbiased isonymy matrix.

Details

The function implements Morton's isonymy method as outlined by Relethford. Unbiased estimations of intra-(sub)population isonymy were included. Unbiased Random Isonymy is an argument needed to calculate 'a priori' and conditional kinship matrices using the "rel.phi" and "rel.cond" functions.

References

Morton, N. E. 1973. Kinship bioassy. In: Genetic distance, J. F Crow and C Denniston (eds.). New York, Plenum Press, 97-104. Relethford, J. H. 1988. Estimation of kinship and genetic distance from surnames. Human Biology, 60(3): 475-492.

See Also

sur.freq to generate the input surname frequency table from marriage data, surnames for an explanation on how to generate the correct input table from other surname sources, lasker for a similar kinship coefficient derived from surnames, hedrick for a standardized kinship coefficient derived from surnames, rri to calculate an unbiased estimate of Regional Random Isonymy from surnmaes rel.phi to calculate an 'a priori' kinship matrix from isonymy data, rel.cond to calculate a conditional kinship matrix from isonymy data

Examples

# NOT RUN {
# starting from a raw marriage records dataset:
data(valley)
tot <- sur.freq(valley,valley$PAR,valley$SURM,valley$SURF)
tot # a frequency table calculated above all the surnames
iso.matrix <- uri(tot)
iso.matrix # a unbiased random isonymy matrix

#starting from a generic surname frequency table
data(surnames)
surnames # a made-up dataset
# you can see that the surnames are arranged as the _rows_
# and the populations are the _columns_
# the function "uri" turns this data into a unbiased random isonymy matrix
iso.matrix <- uri(surnames)
iso.matrix
# }