::: {.cell layout-align="center" hash='03-dge-pretty_cache/html/unnamed-chunk-14_9fef0dda41a45bd15fdd394639dbb49c'}

```{.r .cell-code}
deseq2.colData <- data.frame(condition=factor(c(rep("control", 12), rep("desicated", 12))), 
                             type=factor(rep("single-read", 24)))
# set row names to match the column names in the count matrix
rownames(deseq2.colData) <- colnames(data)

# DESeqDataSet object created using the `DESeqDataSetFromMatrix` function
deseq2.dds <- DESeqDataSetFromMatrix(countData = countmatrix,
                                     colData = deseq2.colData, 
                                     design = ~ condition)
```

::: {.cell-output .cell-output-stderr}
```
converting counts to integer mode
```
:::
:::