library("RSQLite")
library("sqldf")
library("tcltk")

#connect to the database
db <- dbConnect(SQLite(), dbname="../input/database.sqlite")
#List of tables
dbListTables(db)

#Load data
trainSearchStream<-dbGetQuery(db, "SELECT trainSearchStream.SearchID,trainSearchStream.AdID,trainSearchStream.Position,trainSearchStream.objectType,trainSearchStream.IsClick,SearchInfo.SearchDate,SearchInfo.SearchQuery,AdsInfo.Price FROM trainSearchStream, SearchInfo, UserInfo, AdsInfo where trainSearchStream.SearchID = SearchInfo.SearchID and SearchInfo.UserID=UserInfo.UserID and trainSearchStream.AdID=AdsInfo.AdID and AdsInfo.IsContext=1 limit 100000")
testSearchStream<-dbGetQuery(db, "SELECT testSearchStream.SearchID,testSearchStream.AdID,testSearchStream.Position,testSearchStream.objectType, SearchInfo.SearchDate,SearchInfo.SearchQuery,AdsInfo.Price FROM testSearchStream, SearchInfo, UserInfo, AdsInfo where testSearchStream.SearchID = SearchInfo.SearchID and SearchInfo.UserID=UserInfo.UserID and testSearchStream.AdID=AdsInfo.AdID and AdsInfo.IsContext=1 limit 100000")

#Convert Position and Price to numeric
position_train <- as.numeric(trainSearchStream$Position)
price_train <- as.numeric(trainSearchStream$Price)
isClick<-as.numeric(trainSearchStream$IsClick)

#model
model<-glm(formula = isClick ~ position_train + price_train, family = binomial("logit"))
summary(model)