Changed bacteria genome r script