> library(arules)
> data <- paste("item1,item2","item1","item2,item3", sep="\n")
> cat(data)
item1,item2
item1
item2,item3
> write(data, file = "demo_basket")
#################################
Error in file(file, ifelse(append, "a", "w")) :
  cannot open the connection
In addition: Warning message:
In file(file, ifelse(append, "a", "w")) :
  cannot open file 'demo_basket': Permission denied
######################################

执行该句   write(data, file = "demo_basket")


为什么会错误？