Function

コメント・参照等
FUN = f_round_not_IEEE754.r
function (x, digits) 
{
    return(floor(x * 10^digits + 0.5)/10^digits)
}