<commit_before># Leggo i dati del file .csv
dati_letti <- read.csv("../dati.csv", header=TRUE, sep=" ")

# Creo il data.frame
dati <- as.data.frame(dati_letti)

# Estraggo i nomi dei test
nomi_test <- colnames(dati[,3:7])

# Divido il data.frame per corso di laurea
divisi <- split(dati,dati$CDL)

# Creo il data frame con le medie diviso per CDL
for (i in divisi) {
  if(i$CDL[1] == "AMMINISTRAZIONE_E_CONTROLLO") {
    divisi_medie <- matrix(colMeans(i[,3:7]),nrow=1)
  }
  else {
    divisi_medie <- rbind(divisi_medie,colMeans(i[,3:7]))
  }  
} 

divisi_medie <- as.data.frame(divisi_medie)
<commit_msg>Aggiunta colonna CDL a divisi_medie<commit_after># Leggo i dati del file .csv
dati_letti <- read.csv("../dati.csv", header=TRUE, sep=" ")

# Creo il data.frame
dati <- as.data.frame(dati_letti)

# Estraggo i nomi dei test
nomi_test <- colnames(dati[,3:7])

# Divido il data.frame per corso di laurea
divisi <- split(dati,dati$CDL)

# Creo il data frame con le medie diviso per CDL
for (i in divisi) {
  if(i$CDL[1] == "AMMINISTRAZIONE_E_CONTROLLO") {
    divisi_medie <- matrix(colMeans(i[,3:7]),nrow=1)
  }
  else {
    divisi_medie <- rbind(divisi_medie,colMeans(i[,3:7]))
  }  
} 

divisi_medie <- as.data.frame(divisi_medie)
divisi_medie <- cbind(divisi_medie, levels(dati$CDL)) # Aggiunge colonna CDL
names(divisi_medie)[6] <- "CDL" # Cambia nome della colonna in CDL

{'fraction_non_alphanumeric': 0.1492753623188406, 'fraction_numerical': 0.012318840579710146, 'mean_word_length': 4.332046332046332, 'pattern_counts': {'":': 0, '<': 19, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2073074', 'n_tokens_mistral': 630, 'n_tokens_neox': 607, 'n_words': 128}