how to train and test a model in R use depmixS4 package?

Question

I am creating a model for finding hidden states using the example of the sp500 price time series. my task is to find two states on the training and test set.

libr