["function (params, inputs, indices = TRUE) ","{","    rescaled <- inputs$phase[indices]/params[\"lambda\"]","    params[\"kappa\"] * spf(rescaled)","}"]