udated test.R