---
title: "Lezione di Statistica Insegnanti"
author: "Giovanni Marchetti"
date: "28 novembre 2017"
output:
  html_document:
    highlight: tango
    theme: cosmo
---
```{r echo = FALSE}
library(knitr)
options(replace.assign=FALSE,width=80)
opts_chunk$set(comment = "  ")
```

# Inserimento di dati

```{r}
altezza = c(170, 174, 180, 165, 160)

scarpa = c(40, 42, 44, 38, 37)

print(altezza)
print(scarpa)

cbind(altezza, scarpa)
```

# Indici

##Posizione
```{r}
mean(altezza)
mean(scarpa)
```
##Variabilità
```{r}
sd(altezza)
sd(scarpa)

summary(altezza)
summary(scarpa)
```

##Associazione
```{r}
cor(altezza, scarpa)
```

# Grafici

## Box-plot
```{r, fig.width = 8, fig.height = 3, out.width="4in"}
boxplot(altezza,horizontal = TRUE)
boxplot(scarpa, horizontal = TRUE)
```

##Scatter
```{r, out.width="4in"}
plot(altezza, scarpa)
```

#Regressione lineare semplice

## Adattamento dei minimi quadrati
```{r}
ab = lm(scarpa ~ altezza)
ab
```

##Grafico della retta dei minimi quadrati
```{r, out.width="4in"}
plot(altezza, scarpa)
abline(ab, col = "red")
```

## Calcoli
```{r}
b = cov(altezza, scarpa)/var(altezza)
b
a = mean(scarpa) - b * mean(altezza)
a
```