Create nonzeromean_test.R

Add test to measure performance of nonzeromean feature in ash()