# NOT RUN {
library(sp)
library(raster)
## Exemplary input Polygon with 2km x 2km:
polYgon <- Polygon(rbind(c(0, 0), c(0, 2000),
c(2000, 2000), c(2000, 0)))
polYgon <- Polygons(list(polYgon), 1)
polYgon <- SpatialPolygons(list(polYgon))
Projection <- "+init=epsg:3035"
proj4string(polYgon) <- CRS(Projection)
t <- as.matrix(cbind(x = runif(10, 0, extent(polYgon)[2]),
y = runif(10, 0, extent(polYgon)[4])))
wnkl <- 20
dist <- 100000
dirct <- 0
res <- turbine_influences(t, wnkl, dist, polYgon, dirct, plotAngles = TRUE)
# }
Run the code above in your browser using DataLab