> #ELABORATO DATI HACKER CON R !
> #Elaborato Esame Statistica per economia e impresa - Anno Accademico 2022-23!
> #Studente: Bottarelli Alessandro - N. matricola: 0082200050!
> !
> #Riporto i dati presenti in tabella dell'elaborato:!
> #Il primo è quello dei tentativi di hackeraggio!
> tentativi <- c(3, 2, 1, 6, 4, 1, 1, 4, 5, 2)!
>#Il secondo è quello degli utenti ogni ora (in migliaia)!
> utenti <- c(15, 8, 6, 25, 15, 5, 6, 18, 22, 10)!
#inizio a svolgere i calcolo richiesti:!
#a) Calcolo la media dei tentativi di hackeraggio!
#utilizzo la funzione messa a disposizione da R: mean(x)!
Media_Tentativi <- mean(tentativi)!
> Media_Tentativi!
[1] 2.9!
> #a) Calcolo la media degli utenti ogni ora (in migliaia)!
> Media_Utenti <- mean(utenti)!
> Media_Utenti!
[1] 13!
> #b) Calcolo la mediana dei tentativi di hackeraggio!
> #utilizzo la funzione messa a disposizione da R: median(x)!
> Mediana_Tentativi <- median(tentativi)!
> Mediana_Tentativi!
[1] 2.5!
> #b) Calcolo la mediana degli utenti ogni ora (in migliaia)!
> Mediana_Utenti <- median(utenti)!
> Mediana_Utenti!
[1] 12.5!
> #c) Calcolo la varianza dei tentativi di hackeraggio!
> Varianza_Tenativi <- mean((tentativi-mean(tentativi))^2)!
> Varianza_Tenativi!
[1] 2.89!
> #Calcolo la varianza degli utenti ogni ora (in migliaia)!
> Varianza_Utenti <- mean((utenti-mean(utenti))^2)!
> Varianza_Utenti!
[1] 45.4!
> #d) Calcolo del coefficente di variazione dei tentativi di hackeraggio!
> Coeff_variaz_tentativi <- sqrt(mean((tentativi-mean(tentativi))^2))/mean(tentativi)!
> Coeff_variaz_tentativi!
[1] 0.5862069!
> #e) Calcolo la correlazione tra gli utenti e i tentativi di hackeraggio!
> #utilizzo la formula messa a disposizione da R: cor(x)!
> Corr_utenti_tentativi <- cor(utenti, tentativi)!
> Corr_utenti_tentativi!
[1] 0.9865102!
