fixed wrong code in the table combination section, changed highlighting to tango

data_handling_bioinf.R

@@ -276,9 +276,9 @@ head(q_pcr, 5)
 
 ## ----add_rep_info--------------------------------------------------------
 q_pcr <- q_pcr %>% 
-  group_by(sample_name) %>%
-  {.$replicate =  c("r_1", "r_2")
-   .} %>% ungroup
+  group_by(sample_name, target_Name) %>%
+  mutate(replicate =  c("r_1", "r_2")) %>% 
+  ungroup()
 
 head(q_pcr)
 

data_handling_bioinf.Rmd

@@ -933,18 +933,15 @@ head(q_pcr, 5)
 ## Adding columns group--wise 
 
 As we have two replicates per sample, it is a natural to
-add this annotation information to the table. Note that
-we  can actually perform complex operations in a single chaining 
-step by simply wrapping the code in curly brackets. Here, the 
-dot * . * refers to the current data. In the code below, we 
+add this annotation information to the table. In the code below, we 
 add a column *replicate* to each subgroup of the data frame
 and the return the augmented data table.
 
 ```{r add_rep_info}
 q_pcr <- q_pcr %>% 
-  group_by(sample_name) %>%
-  {.$replicate =  c("r_1", "r_2")
-   .} %>% ungroup
+  group_by(sample_name, target_Name) %>%
+  mutate(replicate =  c("r_1", "r_2")) %>% 
+  ungroup()
 
 head(q_pcr)
 ```