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)
## ----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)
......
......@@ -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)
```
......
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