state identification code snippets in r

write a code to identify states in timeseries data with hmm in r