the test about R program