timriffe

PolarImageInterpolate <- function(x, y, z, outer.radius = 1, 
        breaks, col, nlevels = 20, contours = TRUE, legend = TRUE, 
        axes = TRUE, circle.rads = pretty(c(0,outer.radius))){
    
    minitics <- seq(-outer.radius, outer.radius, length.out = 1000)
    # interpolate the data
    Interp <- akima:::interp(x = x, y = y, z = z, 
            extrap = TRUE,