Create unstable_states.R