r语言多元矩的参数要怎么设置，试了很久都得不出结果

函数不是已经给出了？第一问，循环10次，第二问，循环10000次，初始概率为ps。
得不出结果是什么意思？