# NOT RUN {
{
data(net)
grid <- make_grid(net, width = 0.5/102.47) #500 mts
plot(grid, axes = TRUE) #class sf
wrf <- paste(system.file("extdata", package = "eixport"),
"/wrfinput_d02", sep="")
gwrf <- make_grid(wrf)
plot(gwrf, axes = TRUE)
}
# }
Run the code above in your browser using DataLab