First script from "R and C++ integration" book