Added method increased_vs_decreased in basic_stats.R