---
title: "Analisi dei dati per l'impresa"
subtitle: "Nome Cognome:"
date: "2025-06-27"
output:
  html_document: default
  pdf_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
**Inserire il codice negli appositi *chunks*, compilare (tasto `knit` in Rstudio^[Si noti che per compilare in formato pdf è necessario aver installato Tex sulla macchina; i formati html e word invece non lo richiedono.]) e inviare per email ai docenti il file compilato (html, pdf o word, a vostra scelta)^[Controllate di aver allegato correttamente il file, non deve essere un link perchè questo rimanda alla macchina su cui state lavorando, quindi l'allegato alla mail risulta vuoto.]. Se la compilazione non andasse a buon fine inviare il file sorgente rmd.**

Dopo aver caricato la libreria `tidyverse` (disabilitando la stampa degli avvisi) creiamo `scores` che raccoglie (degli ipotetici) dati sul rendimento scolastico di un gruppo di studenti. 

```{r, results = 'hide'}
suppressMessages(library(tidyverse))

scores <- 
  tibble(
    name = c("mike", "carol", "greg", "marcia", "peter", "jan", "bobby", "cindy", "alice"),
    school = c("south", "south", "south", "south", "north", "north", "north", "south", "south"),
    teacher = c("johnson", "johnson", "johnson", "johnson",  "smith", "smith", "smith", "perry", "perry"),
    sex = c("male", "female", "male", "female", "male", "female", "male", "female", "female"),
    math_score = c(4, 3, 2, 4, 3, 4, 5, 4, 5),
    reading_score = c(1, 5, 2, 4, 5, 4, 1, 5, 4)
  )
```
Diamo un primo sguardo ai dati.
```{r}
scores
```
**Rispondere** alle domande di seguito **mediante gli opportuni comandi in R**.

1. Chi ha il punteggio più alto in matematica?
```{r}
#inserire il codice qui
```

2. Riordina le colonne in modo che `school` e `teacher` vengano prima di tutte le altre.
```{r}
#inserire il codice qui
```

3. Quale `sex` ha (in media) il punteggio più alto in matematica? E in lettura?
```{r}
#inserire il codice qui
```

4. Si crei una nuova variabile che sia la media dei punteggi in matematica e lettura e si riordini il dataframe secondo tale media dal valore più alto a quello più basso.
```{r}
#inserire il codice qui
```

5. Si mostri la relazione tra `math_score` e `reading_score` evidenziando se questa cambia rispetto a `sex` e `school`. 

```{r}
#inserire il codice qui
```
