Fixed prob with ITS data. Run identities before R!