bug fixed in test.R