test using basic r script