Created separate r script for demographics