group elementary damages by room.

distrib_by_room(x, rooms)

Arguments

x,

a list

rooms

character vector with the rooms in the dwelling

Value

a list

Examples

if (FALSE) {
x <- result[["detail"]]
rooms <- levels(data_table[["room"]][["room"]])
test <- distrib_by_room(x, rooms) 
}