Error in write.xlsx(data, "E:asm-baolu.xls") : could not find function "write.xlsx"

这个错误是因为您的R程序没有安装write.xlsx这个函数所在的包。请确保您已经安装了openxlsx或xlsx包，并且加载了这个包，然后再次尝试运行该代码。您可以使用以下代码来安装并加载openxlsx包：

install.packages("openxlsx")
library(openxlsx)

或者使用以下代码来安装并加载xlsx包：

install.packages("xlsx")
library(xlsx)

然后您应该可以使用write.xlsx函数将数据写入Excel文件了。