# Load the shape files.
# Need to add a new column to the attribute file of the Tuna_blocks grid, which is the 'Type':

grid_20@data$Type = 6
head(grid_20)

# intersect from raster package
product <- intersect(cell_assgn,grid_20)
summary(product)
head(product)