---
title: "Class 9"
author: "AndrĂ©s Aravena"
number: 041234566
date: "October 15, 2018"
output: html_document
---
# Load data
```{r}
survey <- read.table("survey1-tidy.txt")
colnames(survey)
```
# Weight
we choose one column
```{r}
survey$weight_kg
```
# light people
this is a logic vector
```{r}
survey$weight_kg < 50
```
we use the logic vector as row index
```{r}
survey[survey$weight_kg < 50, ]
```
what is the height of people less than 50 kg
```{r}
survey[survey$weight_kg < 50, "height_cm"]
```
# combining conditions
people between 50 and 70 kg
```{r}
survey[survey$weight_kg >= 50 & survey$weight_kg <=70, ]
```
what is the hand span of "Male" and "Left handed"?
```{r}
survey[survey$Gender=="Male" & survey$handness=="Left", "hand_span_cm"]
```
left hand male heavier than 70
```{r}
survey[survey$weight_kg>70 & survey$handness=="Left" & survey$Gender=="Male", "hand_span_cm"]
```
# everybody except the first 10
```{r}
survey[-(1:10),]
```
assign
```{r}
aziz <- survey[-(1:10),]
aziz[aziz$weight_kg>=50 & aziz$weight_kg<=70, "weight_kg"]
```
send to **andres.aravena+cmb@istanbul.edu.tr**