测试拟合优度（包装的柯西，冯·米塞斯）

Question

delta<-c(
  0.5687714, 0.5687714 ,0.5687714, 0.5687714 ,0.5687714 ,0.5687714, 0.5687714,
  0.5687714 ,0.5687714, 0.5687714 ,0.5687714 ,0.5687714 ,0.5687714, 0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714, 
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714, 0.5687714 ,0.5687714, 0.5687714 ,0.5687714,
  0.5687714 ,0.5687714 ,0.5687714 ,0.5687714 ,0.5687714)

我有这些数据，我想显示它是否属于vonmises分布或包裹的柯西

我有此代码，但没有结果，请帮助我！

我的代码

# install.packages("Wrapped")
# install.packages("circular")


library("Wrapped")
library("circular")


watson.test(error, alpha=0.05 , dist="vonmises")
mwrappedg("cauchy",error,starts=c(1,1),K=10,method="BFGS")