Maddison.Slatkin.R

Uploading Maddison Slatkin Function and example run