utils:::menuInstallPkgs()
utils:::menuInstallLocal()
utils:::menuInstallLocal()
utils:::menuInstallLocal()
utils:::menuInstallLocal()
utils:::menuInstallLocal()
utils:::menuInstallLocal()
update.packages(ask='graphics')
local({pkg <- select.list(sort(.packages(all.available = TRUE)))
if(nchar(pkg)) library(pkg, character.only=TRUE)})
local({pkg <- select.list(sort(.packages(all.available = TRUE)))
if(nchar(pkg)) library(pkg, character.only=TRUE)})
a_matrix <- matrix(
c(1,1,0,1,1,
0,1,1,0,1,
1,1,0,1,1,
1,1,1,0,1,
1,1,1,1,1,
0,1,1,1,0), ncol = 6)
## set dim names
dimnames(a_matrix) <- list(
c("A","C","D","T","W"),
paste("Tr",c(1:6), sep = ""))
a_matrix
a_matrix=t(a_matrix)
a_matrix
apriori(a_matrix)
local({pkg <- select.list(sort(.packages(all.available = TRUE)))
if(nchar(pkg)) library(pkg, character.only=TRUE)})
apriori(a_matrix)
regles = apriori(a_matrix,parameter=list(supp=0.2,conf=1))
regles
summary(regles)
inspect(regles)
image(a_matrix)
a_matrix
a=as(a_matrix,"transactions")
a
image(a)
data(Groceries)
image(Groceries)
Groceries
summary(Groceries)
regles = apriori(Groceries,parameter=list(supp=0.2,conf=1))
regles = apriori(Groceries,parameter=list(supp=0.05,conf=0.3))
inspect(regles)
data(Adult)
summary(Adult)
regles = apriori(Adult,parameter=list(supp=0.05,conf=0.3))
regles = apriori(Adult,parameter=list(supp=0.5,conf=0.8))
regles = apriori(Adult,parameter=list(supp=0.8,conf=0.9))
inspect(regles)
regles = apriori(Adult,parameter=list(supp=0.6,conf=0.9))
inspect(regles)
summary(Adult)
help(apriori)