## Not run:
# DB <- RODM_open_dbms_connection(dsn="orcl11g", uid= "rodm", pwd = "rodm")
#
# data(satfruit, package="PASWR")
# ards <- satfruit[,c("WH", "BA", "NAR", "COR", "SF", "VI", "PS", "ES", "AF", "CO", "AR", "AL", "OL")] # Select subset of attributes
# ards[,] <- ifelse(ards[,] == 0, NA, "YES") # make it sparse, as required by ODM
# n.rows <- length(ards[,1]) # Number of rows
# row.id <- matrix(seq(1, n.rows), nrow=n.rows, ncol=1, dimnames= list(NULL, c("ROW_ID"))) # Row id
# ards <- cbind(row.id, ards) # Add row id to dataset
# RODM_create_dbms_table(DB, "ards") # Push the training table to the database
#
# # Build the association rules model
# ar <- RODM_create_assoc_model(
# database = DB,
# data_table_name = "ards",
# case_id_column_name = "ROW_ID")
#
# # Inspect the contents of ar to find the rules and itemsets
#
# RODM_drop_model(DB, "AR_MODEL")
# RODM_drop_dbms_table(DB, "ards")
#
# RODM_close_dbms_connection(DB)
# ## End(Not run)
Run the code above in your browser using DataLab