added test.R