数量生态学（R语言的应用）-关于自编函数hcoplot

请教一下各位，绘制聚类树时，如何编写hcoplot函数？求代码