# NOT RUN {
library(sgstar)
data("coords")
data("simulatedata")
#create weight matrix using distance inverse matrix
z<-dist(coords,method = "euclidean")
z <- as.matrix(z)
matriksd <- 1/z
matriksd[is.infinite(matriksd)] <- 0
matriksd_w <- matriksd / rowSums(as.data.frame(matriksd))
fit <- sgstar(data = simulatedata, w = matriksd_w, p = 2,ps = 1, s =4)
plot1 <- plot_sgstar(fit)
# }
Run the code above in your browser using DataLab