I write R code the below to mining fpgrowth algorithm
fpgabdata <- read.csv(\'../Agen Biasa.csv\', header = FALSE) train <- sapply(fpgabdata, as.factor)