for (i in 1:p){
#initiating MySQL connection to database server
con<-dbConnect(MySQL(),host="localhost",dbname="chembl22",user="********",password="*******",unix.sock="/Applications/MAMP/tmp/mysql/mysql.sock")

parameter3<-master[i,"assay_id"]
print (i)
print (parameter3)

sql_statement= paste("SELECT * from assays WHERE assay_id=", parameter,";", sep="")
res<-dbGetQuery(con,sql_statement)
master_assays<-rbind(master_assays, res)


sql_statement<-paste("SELECT doc_id from assays where assay_id=",parameter3,";",sep="")
res<-dbGetQuery(con,sql_statement)
parameter2<-res
parameter2<-numeric(parameter2)
print (parameter2)

sql_statement<-paste("SELECT molregno from activities where assay_id=",parameter3," AND doc_id=",parameter2,";",sep="")
res<-dbGetQuery(con,sql_statement)
res[,2]<-parameter2
molregno_list<-rbind(molregno_list,res)

sql_statement= paste("SELECT * from activities WHERE assay_id=", parameter3,";", sep="")
res<-dbGetQuery(con,sql_statement)
master_activities<-rbind(master_activities,res)

sql_statement= paste("SELECT * from assay_parameters WHERE assay_id=", parameter3,";", sep="")
res<-dbGetQuery(con,sql_statement)
master_parameters<-rbind(master_parameters,res)

sql_statement= paste("SELECT * from docs WHERE doc_id=", parameter2,";", sep="")
res<-dbGetQuery(con,sql_statement)
publications<-rbind(publications, res)

dbDisconnect(con)
}