Create trans-per-mmsi.R