How to calculate in KM2 the area of an attribute within randomly selected grid cells in R

Question

I have load the country boundary for Honduras into R and created within it a 2km x 2km grid. I have then selected 13 random cells from within the grid.

I have then lo