library(igraph)

## Warning: package 'igraph' was built under R version 4.3.2

## 
## Attaching package: 'igraph'

## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum

## The following object is masked from 'package:base':
## 
##     union

A <- read.csv("http://www.iam.fmph.uniba.sk/institute/stehlikova/siete22/NDRANGHETAMAFIA_2M.csv",
              header = TRUE,  
              check.names = FALSE,  
              row.names = 1) 
A <- as.matrix(A)
stretnutia <- A %*% t(A)
stretnutia <- (stretnutia > 0) + 0
mafia <- graph_from_adjacency_matrix(stretnutia, diag = FALSE, mode = "undirected")
komponenty <- components(mafia)
mafia <- induced_subgraph(mafia, V(mafia)[komponenty$membership == which.max(komponenty$csize)])

vsetci <- V(mafia)$name
vsetci[match("LUCA’ Nicola", vsetci)] <- "LUCA’ Nicola"
vsetci[match("MUIÀ Francesco", vsetci)] <- "MUIÀ Francesco"

boss <- c("MANDALARI Vincenzo", "ASCONE Rocco", "MUIÀ Francesco",
          "PANETTA Pietro Francesco", "MAGNOLI Cosimo Raffaele", "LUCA’ Nicola",
          "CAMMARERI Vincenzo", "CAMMARERI Annunziato", "ZOITI Felice",
          "LAMARMORE Antonino", "BARRANCA Cosimo", "CHIARELLA Leonardo Antonio",
          "FICARA Giovanni", "MANNO Alessandro", "MAIOLO Cosimo", "MUSCATELLO Salvatore",
          "LONGO Bruno", "SANFILIPPO Stefano", "NERI Giuseppe Antonio", "CHIRIACO Carlo",
          "COLUCCIO Rocco", "BERTUCCA Francesco", "VARCA Pasquale Giovanni",
          "VONA Luigi", "RISPOLI Vincenzo", "MOSCATO Annunziato Giuseppe",
          "MINNITI Nicola", "PIO Candeloro", "BELNOME Antonio", "SQUILLACIOTI Cosimo",
          "STAGNO Antonio")
bossTF <- vsetci %in% boss

riesenia <- list(
  riesenie1 = c("CAMMARERI Annunziato", "ZOITI Felice", "SANFILIPPO Stefano", "MANDALARI Vincenzo", "CHIARELLA Leonardo Antonio", 
                "LUCA’ Nicola", "MUSCATELLO Salvatore", "TAGLIAVIA Giuffrido", "MINASI Saverio", "LAVORATA Vincenzo", 
                "LAMARMORE Antonino", "ASCONE Rocco", "MAGNOLI Cosimo Raffaele", "MUIÀ Francesco", "BARRANCA Cosimo", 
                "MANNO Alessandro", "CRISTELLO Francesco", "PANETTA Pietro Francesco" ),
  
  riesenie2 = c("PANETTA Pietro Francesco", "MANNO Alessandro"),
  
  riesenie3 = c("MANNO Alessandro", "PANETTA Pietro Francesco", "MAGNOLI Cosimo Raffaele", "BARRANCA Cosimo", "LAMARMORE Antonino"),
  
  riesenie4 = c("MANNO Alessandro", "PANETTA Pietro Francesco" , "LAMARMORE Antonino"  ,        "MAGNOLI Cosimo Raffaele", "MINASI Saverio", "MUSCATELLO Salvatore" , "BARRANCA Cosimo" ,  "FICARA Giovanni" , "MANDALARI Vincenzo" , "MUIÀ Francesco", "TAGLIAVIA Giuffrido" , "CHIARELLA Leonardo Antonio", "SANFILIPPO Stefano" , "ASCONE Rocco"  ,"DE CASTRO Emanuele"  ,"LUCA’ Nicola" , "VONA Luigi",                  "LAVORATA Vincenzo" , "MALGERI Roberto"    ,         "CARMELO Novella"            , "RISPOLI Vincenzo"      ,      "SARCINA Pasquale Emilio"    , "BENEVENTO Antonio",            "PORTARO Marcello Ilario"    , "ZAPPIA Pasquale"       ,      "DE MARCO Salvatore"   , "MOSCATO Annunziato Giuseppe", "MAIOLO Cosimo"          ,    "FERRARO Salvatore",           "CANDELORO Pio"     , "COMMISSO Domenico Sandro"  ,  "PISCIONERI Giuseppe"    , "NERI Giuseppe Antonio"  ),
  
  riesenie5 = c( "MANNO Alessandro" ,  "PANETTA Pietro Francesco"  , "LAMARMORE Antonino"   ,       "MAGNOLI Cosimo Raffaele"  , "MINASI Saverio" ,   "MUSCATELLO Salvatore"  ,"BARRANCA Cosimo"  ,  "FICARA Giovanni"   , "MANDALARI Vincenzo"  , "MUIÀ Francesco" , "TAGLIAVIA Giuffrido"  , "CHIARELLA Leonardo Antonio" , "SANFILIPPO Stefano" ,  "ASCONE Rocco" , "DE CASTRO Emanuele" ,  "LUCA’ Nicola" , "VONA Luigi" ),
  
  riesenie6 = c("MANNO Alessandro", "LAMARMORE Antonino", "PANETTA Pietro Francesco", "BARRANCA Cosimo", "CRISTELLO Francesco")
)

tabulka <- function(mena){
  predikciaTF <- vsetci %in% mena
  return(table(bossTF, predikciaTF))  # vidime true positive, false negative atd.
}

lapply(riesenia, tabulka)

## $riesenie1
##        predikciaTF
## bossTF  FALSE TRUE
##   FALSE   122    4
##   TRUE     11   14
## 
## $riesenie2
##        predikciaTF
## bossTF  FALSE TRUE
##   FALSE   126    0
##   TRUE     23    2
## 
## $riesenie3
##        predikciaTF
## bossTF  FALSE TRUE
##   FALSE   126    0
##   TRUE     20    5
## 
## $riesenie4
##        predikciaTF
## bossTF  FALSE TRUE
##   FALSE   111   15
##   TRUE      9   16
## 
## $riesenie5
##        predikciaTF
## bossTF  FALSE TRUE
##   FALSE   123    3
##   TRUE     11   14
## 
## $riesenie6
##        predikciaTF
## bossTF  FALSE TRUE
##   FALSE   125    1
##   TRUE     21    4