simple example of R wrapper