Create obesity.R