What does this do/ produce? [ ] [ ]

Question

I have a piece of code:

change <- round((table_subset$positive[1][1] - avg) * 100 / table$positive[1][1], 2) 

but I am not sure what the [