## Not run:
# DB <- RODM_open_dbms_connection(dsn="orcl11g", uid="rodm", pwd="rodm")
# data(titanic3, package="PASWR")
# db_titanic <- titanic3[,c("pclass", "survived", "sex", "age", "fare", "embarked")]
# db_titanic[,"survived"] <- ifelse(db_titanic[,"survived"] == 1, "Yes", "No")
# RODM_create_dbms_table(DB, "db_titanic") # Push the table to the database
# ai <- RODM_create_ai_model(
# database = DB, # Database ODBC connection
# data_table_name = "db_titanic", # Database table containing the input dataset
# target_column_name = "survived", # Target column name in data_table_name
# model_name = "TITANIC_AI_MODEL") # Oracle Data Mining model name to create
#
# # Drop the model that was just created
# RODM_drop_model(DB, "TITANIC_AI_MODEL")
#
# RODM_drop_dbms_table(DB, "db_titanic") # Drop the database table
# RODM_close_dbms_connection(DB)
# ## End(Not run)
Run the code above in your browser using DataLab