get_dist: Spatial distance between individuals at a specific date
In johow/kinlab: Kinship and Reproduction in Historical Populations

This function returns the spatial distance in kilometres between individual x and pedigree members at a specific date

1	get_dist(id, id2, evdat, evmat, map_dist)

`id`	ID of individual for which a pedigree should be composed.
`id2`	ID of individual for which distance should be computed
`evdat`	A specific date in the format “Year-month-day”
`evmat`	Event matrix
`dist_mat`	A distance matrix

## Not run: 
attach(kh33::kh)
get_dist(40, grap_ped(40, df_ped), "1850-01-01", dist_mat = geo[["map_dist"]], evmat=evmat)
detach(kh33::kh)

## End(Not run)