Create t_test.r