``` r
# Create data frame of sample metadata
deseq2.colData <- data.frame(
  condition=factor(c(rep("control", 12), rep("desicated", 12))),
  type=factor(rep("single-read", 24))
)
rownames(deseq2.colData) <- colnames(data)

# Create DESeq2 object
deseq2.dds <- DESeqDataSetFromMatrix(countData = countmatrix,
                                     colData = deseq2.colData, 
                                     design = ~ condition)
```

```
## converting counts to integer mode
```