# Pinus Radiata dataset
data(radiata)
# defining basal-area and height variables from the Pinus Radiata dataset
x <- radiata$basal
y <- radiata$height
# extracting the coordinates from Pinus Radiata dataset
coords <- radiata[,1:2]
# computing the codispersion coefficient
bwds <- c(174, 247, 187)
cf <- codisp.ks(x, y, coords, lags = c(200,200), kernel = "epanech", bandwidths = bwds)
cf
Run the code above in your browser using DataLab