source_coords <- c(0, 0, 2.5)
n_sensors <- 8
radius <- 20
z_height <- 2.0
angles <- seq(0, 2 * pi, length.out = n_sensors + 1)[- (n_sensors + 1)]
sensor_coords <- matrix(
cbind(radius * cos(angles), radius * sin(angles), rep(z_height, n_sensors)),
ncol = 3
)
create_site_map(sensor_coords, source_coords)
Run the code above in your browser using DataLab