# NOT RUN {
# require(spData);require(sp)
# data(house)
# dat <- data.frame(coordinates(house), house@data[,c("price","age","rooms","beds","syear")])
# coords<- dat[ ,c("long","lat")]
# y <- log(dat[,"price"])
# x <- dat[,c("age","rooms","beds","syear")]
# Parallel estimation
# res1 <- scgwr_p( coords = coords, y = y, x = x )
# res1
# Parallel estimation + Approximate cross-validation using 10000 samples
# res2 <- scgwr_p( coords = coords, y = y, x = x, nsamp = 10000 )
# res2
# }
Run the code above in your browser using DataLab