sur.inbr {Biodem} | R Documentation |

## Total, Random and Non-random Inbreeding Coefficients

### Description

Function “sur.inbr” calculates Total, Random and Non-random Inbreeding Coefficients starting from Observed and Random Isonymy indexes in each (sub)population.

### Usage

```
sur.inbr(x,method="B")
```

### Arguments

`x` |
is a data frame composed by 3 columns which, in order, contain: a code (or a name) identifying the analysed (sub)populations; Observed Isonymy (Pt) values; Random Isonymy (Pr) values. The number of rows is equal to the total number of analysed (sub)populations. |

`method` |
character string specifying the method to be used in the calculation of the indexes. The available options are "A" and "B". Both the methods give similar results. The "B" method, being the most frequently used in the studies, is given as the default option |

### Details

Inbreeding coefficients are obtainable starting from Isonymy data. The data frame containing Observed and Random Isomymy for each (sub)population needed as argument in “sur.inbr” is easily obtainable using the "mar.iso" function. Inbreeding coefficients allow an estimate of the inbreeding level in a (sub)population on the basis of couples of surnames.

### Value

Returns a data frame reporting Total Inbreeding (Ft), Random Inbreeding (Fr) and Non-random Inbreeding (Fn) for each (sub)population (pop)

### Note

Total Inbreeding (Ft) is an estimate of the inbreeding level in a (sub)population. Random Inbreeding (Fr) is the expected inbreeding level in a (sub)population in case of completely random marriage unions. Non-random Inbreeding (Fn) expresses the deviance between Ft and Fr: positive Fn values show preference towards unions between consanguineous mates, negative Fn values show aversion towards unions between consanguineous mates.

### Author(s)

Federico C. F. Calboli and Alessio Boattini alessio.boattini2@unibo.it

### References

Crow, J. F., Mange, A. P. 1965. Measurement of inbreeding from the frequency of marriages between persons of the same surnames. Eugen. Q. 12:199-203. Crow, J. F. 1980. The estimation of inbreeding from isonymy. Hum. Biol. 52:1-14.

### See Also

`sur.freq`

to calculate surnames frequencies tables from raw marriages data bases, `mar.iso`

to calculate Observed and Random Isonymy coefficients starting from tables of couples of surnames frequencies, `r.pairs`

to calculate Repeated Pairs indexes

### Examples

```
data(valley)
valley # a subset of a real marriage data base
mar <- sur.freq(valley,valley$PAR,valley$SURM,valley$SURF,freq.table="marriages")
mar # frequency tables calculated above the observed pairs of surnames in each population
iso <- mar.iso(mar)
iso # a data frame containing Pt and Pr values for each (sub)population
inbreeding <- sur.inbr(iso)
inbreeding # inbreeding indexes calculated using the method "B"
inbreeding2 <- sur.inbr(iso,method="A")
inbreeding2 # inbreeding indexes calculated using the method "A"
```

*Biodem*version 0.5 Index]