Commit e0880027 authored by Bernd Klaus's avatar Bernd Klaus

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

parent 517b7002
...@@ -276,9 +276,9 @@ head(q_pcr, 5) ...@@ -276,9 +276,9 @@ head(q_pcr, 5)
## ----add_rep_info-------------------------------------------------------- ## ----add_rep_info--------------------------------------------------------
q_pcr <- q_pcr %>% q_pcr <- q_pcr %>%
group_by(sample_name) %>% group_by(sample_name, target_Name) %>%
{.$replicate = c("r_1", "r_2") mutate(replicate = c("r_1", "r_2")) %>%
.} %>% ungroup ungroup()
head(q_pcr) head(q_pcr)
......
...@@ -933,18 +933,15 @@ head(q_pcr, 5) ...@@ -933,18 +933,15 @@ head(q_pcr, 5)
## Adding columns group--wise ## Adding columns group--wise
As we have two replicates per sample, it is a natural to As we have two replicates per sample, it is a natural to
add this annotation information to the table. Note that add this annotation information to the table. In the code below, we
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 a column *replicate* to each subgroup of the data frame add a column *replicate* to each subgroup of the data frame
and the return the augmented data table. and the return the augmented data table.
```{r add_rep_info} ```{r add_rep_info}
q_pcr <- q_pcr %>% q_pcr <- q_pcr %>%
group_by(sample_name) %>% group_by(sample_name, target_Name) %>%
{.$replicate = c("r_1", "r_2") mutate(replicate = c("r_1", "r_2")) %>%
.} %>% ungroup ungroup()
head(q_pcr) head(q_pcr)
``` ```
......
This diff is collapsed.
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment