关于图5-2-3代码中的报错

我在学习过程中遇到以下问题，希望能够得到帮助，谢谢。
当运行下面代码时
```
# Johnson分布的偏斜度2.2和峰度13
s <- rJohnson(100, findParams(3, 1, 2., 13.1))
# Johnson分布的偏斜度0和峰度20）
k <- rJohnson(100, findParams(3, 1, 2.2, 20))
```
出现了如下的报错
```
Error in .C("JohnsonMomentFitR", as.double(mu), as.double(sigma), as.double(skew),  : 
  程序包"SuppDists"里"JohnsonMomentFitR"不适用于.C()
```
