Hi, I am doing this code to obtain association rules from a data expression matrix mat with 13 genes in columns and 24 transactions in lines: how can I obtain this kind of rules(gene a,.. - > gene b)?

library(arules) 
Disc<- discretize(mat) 
Write(disc, file="disc. csv", sep=",")
tr<-read. transactions(file="disc. csv")
Rules=apriori(tr, parameter=list(supp=0.1, conf=0.1))

By using this code I have an example of this rule: [1] {} =>{2,1,1,2,2}

How to correct my code please, thanks