# Example: Hawker Centers

## char
```{r}
cha_name_golden <- "Golden Mile Food Centre"
```

## integer
```{r}
int_hawker_centres = 18L
int_hawker_centres
class(int_hawker_centres)
```

## numeric
```{r}
num_food_stalls_golden   <- 112
num_food_stalls_golden
class(num_food_stalls_golden)
num_market_stalls_golden <- 111
num_market_stalls_golden
num_stalls_golden <- 
  num_food_stalls_golden + num_market_stalls_golden
num_stalls_golden 
class(num_stalls_golden)
```

## logical
```{r}
log_status_golden <- TRUE
log_status_golden
```

## char: date strings to Date objects
```{r}
cha_clean_end_golden   <- "7/16/2019"
cha_clean_end_golden
cha_clean_start_golden <- "7/15/2019"
cha_clean_start_golden
class(cha_clean_end_golden)
class(cha_clean_start_golden)
dat_clean_end_golden   <- 
  as.Date(cha_clean_end_golden,   format = "%m/%d/%Y")
dat_clean_start_golden <- 
  as.Date(cha_clean_start_golden, format = "%m/%d/%Y")
class(dat_clean_end_golden)
class(dat_clean_start_golden)
```

## datetime diff, start and end included
```{r}
dif_tim_clean_duration_golden <- 
  dat_clean_end_golden - dat_clean_start_golden + 1
class(dif_tim_clean_duration_golden)
```