tree_prior はワークスペースに読み込まれています。
plotcp() を使って、tree_prior の複雑度パラメータに対する交差検証誤差（X-val Relative Error）を可視化します。
printcp() を使って、CP、分割数、誤差に関する情報の表を表示します。tree_prior で交差検証誤差が最小となる分割を特定できるか確認してください。
which.min() を使って、tree_prior$cptable のうち交差検証誤差 "xerror" が最小の行を特定し、これを index に代入します。
列 "CP" の中で、tree_prior$cptable の index 行を選び、tree_min を作成します。
prune() 関数を使って剪定後の木を得ます。剪定後の木は ptree_prior と名付けます。
パッケージ rpart.plot は読み込まれています。関数 prp()（デフォルト設定）で剪定後の木をプロットします。

他のツリーのオプションと混同行列の作成