R-code test1