This function creates an apero in a room of given size. Guests stick to a minimum distance of each other in order to stay safe.

apero(room_length = 6, room_width = 4, min_distance = 1.5, margin = 0.3)

Arguments

room_length

Length of room in meter.

room_width

Width of room in meter.

min_distance

Minimum distance in meter guests should have from each other.

margin

How close to the walls do guests stand (in meter)?

Value

An object of class "apero" with the following elements:

  • room_length: User input.

  • room_width: User input.

  • min_distance: User input.

  • margin: User input.

  • guests: data.frame with x and y coordinates of guests (including yourself).

Examples

x <- apero()
x
#> The apero takes place in a 6m x 4m room and the safety distance is 1.5m.
#> A whopping 12 guests are here (incl. you). Nice apero so far!

x2 <- apero(1, 1)
plot(x2)