finish akima package sample R code