Basic WRDS Query

Simple SQL language and WRDS query

sql <- paste("SELECT gvkey,datadate,ni,oancf,ceq,dvt FROM comp.funda WHERE oancf IS NOT NULL AND datadate>='2016-01-01'")

res <- dbSendQuery(wrds, sql)

fnd<- dbFetch(res, n = -1)

sql <- paste("SELECT permno,date,ret FROM crsp.msf WHERE date>='2016-01-01'")

res <- dbSendQuery(wrds, sql)

mkt<- dbFetch(res, n = -1)