Script out of bounds in R

Question

I am using a code based on Deseq2. One of my goals is to plot a heatmap of data. 

> heatmap.data <- counts(dds)[topGenes,]

The error I am getting is 

    Er