more added to test.R