Gruppensex

Problem

Wieviele paarweise Interaktionen \(K\) gibt es in einer gruppe von \(N\) Personen?

Lösung

\[ K = \sum_{i=1}^N N - i \]

Code

library(dplyr)
library(purrr)
library(ggplot2)

renato_function <- function(n){
  renato_sum <- 0
  for (i in 1:n){
    renato_sum <- renato_sum + n - i
  }
  return(as.integer(renato_sum))
}

df <- tibble(gruppen_groesse = 1:20) |> 
  mutate(gruppen_sex_komplexitaet =  map_int(gruppen_groesse, ~renato_function(.)))

df |> 
  ggplot(aes(gruppen_groesse, gruppen_sex_komplexitaet)) +
  geom_point() +
  labs(x = "Anzahl Personen", y = "Anzahl paarweise Interaktionen")