library(RMySQL)

mycon <- dbConnect(MySQL(), user='root', dbname="project_aers", host="127.0.0.1", port=3307, password='enter_your_password')

data <- dbGetQuery(mycon, "select * from psm_scores where stitch_id = 'CID000000085'")