Update datatable-reshape.Rmd

Author: venom1204

vignettes/datatable-reshape.Rmd

@@ -142,13 +142,13 @@ So far we've seen features of `melt` and `dcast` that are implemented efficientl
 However, there are situations we might run into where the desired operation is not expressed in a straightforward manner. For example, consider the `data.table` shown below:
 
 ```{r}
-s2 = "family_id   age_mother   name_child1  name_child2  name_child3  gender_child1  gender_child2  gender_child3
-         1         30              Ben           Anna        NA             1              2                NA
-         2         27              Tom           NA          NA             2             NA                NA
-         3         26              Lia           Sam         Amy            2              2                 1
-         4         32              Max           Zoe         Joe            1              1                 1
-         5         29              Dan           Eva         NA             2              1                NA"
-DT = fread(s2)
+s2 <- "family_id age_mother name_child1 name_child2 name_child3 gender_child1 gender_child2 gender_child3
+1         30         Ben         Anna        NA              1             2             NA
+2         27         Tom         NA          NA              2             NA            NA
+3         26         Lia         Sam         Amy             2             2             1
+4         32         Max         Zoe         Joe             1             1             1
+5         29         Dan         Eva         NA              2             1             NA"
+DT <- fread(s2)
 DT
 ## 1 = female, 2 = male
 ```