if(interactive()){
# initialize connection to Lahman baseball database in Aster
conn = odbcDriverConnect(connection="driver={Aster ODBC Driver};
server=<dbhost>;port=2406;database=<dbname>;uid=<user>;pwd=<pw>")
batters = computeSample(conn, "batting", sampleFraction=0.01)
dim(batters)
pitchersAL = computeSample(conn, "pitching", sampleSize=1000,
where="lgid = 'AL'")
dim(ptichersAL)
}
Run the code above in your browser using DataLab