tela.esquerda <- read.csv("media_tela_esquerda", header = TRUE)
head(tela.esquerda)
## media_tela_esquerda lateralidade sexo idade tamanho_mao experiencia_cel
## 1 557 C M 19 20 S
## 2 791 C M 18 16 N
## 3 859 C M 24 19 S
## 4 661 C F 18 0 S
## 5 798 C M 25 22 S
## 6 1253 C F 21 16 S
## tamanho_tela mao_preferida
## 1 3 A
## 2 3 E
## 3 3 A
## 4 3 A
## 5 3 A
## 6 3 A