functions <- cxxfunction(
        list(
                ff = signature(),
                gg = signature( x = "integer", y = "numeric" )
        ), c(
"return R_NilValue ;",
"return ScalarReal( INTEGER(x)[0] * REAL(y)[0] ) ;"
        )
)
package.skeleton( "foobar", functions )