Create DataFair.R