Filter on moving vehicle (don't need to consider vehicles which have not already left the building)

models/Observer.gaml

@@ -770,6 +770,7 @@ global {
 		int sumMaritime <- 0;
 		int sumSecondary <- 0;
 		ask Vehicle {
+			if(readyToMove and destination != nil){
 				if(networkType = "road"){
 					averageRoadVehicleOccupancy <- averageRoadVehicleOccupancy + currentTransportedVolume;
 					sumRoad <- sumRoad + 1;
@@ -787,6 +788,7 @@ global {
 					sumSecondary <- sumSecondary + 1;
 				}
 			}
+		}
 
 		if(sumRoad > 0){
 			averageRoadVehicleOccupancy <- averageRoadVehicleOccupancy / sumRoad;