Added slave demographics r script