** Please click all the tabs (in sequence) to get the entire set of information in these pages. **

** To download code, see the instructions in Session 2: https://rpubs.com/hkb/DAX-Session2 **

Objectives

Collecting or Creating Data Sets

Create one

# build an example data frame
df.eg <- data.frame(col1 = letters[1:5], col2 = seq(2,4,length=5), cases = sample(50,5))
# df.eg$col4 = (100*df.eg$col2)/df.eg$col3
df.eg <- df.eg %>% mutate(deaths = 100*col2/cases)

df.eg <- df.eg %>% mutate(lag.deaths = lead(deaths,2)) 
# print the first few rows
print(head(df.eg))
df2 <- data.frame(col1 = letters[3:4], names = c( "Mallika", "Liam"))

print(df2)
df.merge <- inner_join(df.eg, df2, by="col1")
print(df.merge)
LS0tCnRpdGxlOiAiU2Vzc2lvbiA2IgphdXRob3I6ICJIZW1hbnQgQmhhcmdhdmEiCmRhdGU6ICI3LzMxLzIwMjAiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCioqIFBsZWFzZSBjbGljayBhbGwgdGhlIHRhYnMgKGluIHNlcXVlbmNlKSB0byBnZXQgdGhlIGVudGlyZSBzZXQgb2YgaW5mb3JtYXRpb24gaW4gdGhlc2UgcGFnZXMuICoqCgoqKiBUbyBkb3dubG9hZCBjb2RlLCBzZWUgdGhlIGluc3RydWN0aW9ucyBpbiBTZXNzaW9uIDI6IGh0dHBzOi8vcnB1YnMuY29tL2hrYi9EQVgtU2Vzc2lvbjIgKioKCmBgYHtyIHNldHVwLGVjaG89RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRSkKb3B0aW9ucyhzY2lwZW49MTAwMDAwMDApCm9wdGlvbnMoZGlnaXRzPTMpCmBgYAoKYGBge3IgcGFja2FnZXMsZWNobz1GQUxTRX0KIyBpbnN0YWxsLnBhY2thZ2VzKCJrbml0ciIpCmxpYnJhcnkoa25pdHIpCgpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGdyaWRFeHRyYSkKbGlicmFyeShnZ3JlcGVsKQojIGxpYnJhcnkoYm94b2ZmaWNlKSAjIGJlY2F1c2UgdGhlIHBhY2thZ2UgaXMgYWxyZWFkeSBpbnN0YWxsZWQKIAoKYGBgCgojIyBPYmplY3RpdmVzCgoqIFByb2plY3QgUGxhbm5pbmcgUmV2aWV3CgogIC0gU3RhdGUgdGhlIGFyZWEgb3IgZG9tYWluIHlvdSB3YW50IHRvIHdvcmsgb24gKGUuZy4sIFNwb3J0cywgb3IgU29jaWFsIE1lZGlhIFVzZSkKCiAgLSBMaXN0IDItNSBtYWluIHF1ZXN0aW9ucyB5b3Ugd2FudCB0byBhbnN3ZXIgZnJvbSB0aGUgZGF0YQoKICAtIFN0YXRlIHlvdXIgZGF0YSBzb3VyY2UsIGFuZCBob3cgeW91IHdvdWxkIGFjY2VzcyB0aGUgZGF0YQoKICAtIExpc3QgaG93IGFuZCB3aGVyZSB5b3Ugd291bGQgZG8geW91ciBjb21wdXRhdGlvbnMgKGUuZy4sIG9uIFJTdHVkaW8pCgogIC0gVHJ5IHRvIGlkZW50aWZ5IHNvbWUgdGFza3MgdGhhdCB5b3Ugd291bGQgbmVlZCB0byBhY2NvbXBsaXNoIChlLmcuLCBzZXQgdXAgdGhlIGRhdGEsIGhvdyB0byB0cmFuc2Zvcm0gaXQsIHdoYXQgdmlzdWFsaXphdGlvbnMgeW91IHdvdWxkIHdhbnQgdG8gYnVpbGQpCgogIC0gQ29tZSB1cCB3aXRoIGEgdGltZWxpbmUgdG8gZG8gYWxsIHRoZXNlIHRoaW5ncywgc28gdGhhdCB5b3UgaGF2ZSBhIGZpcnN0IGRyYWZ0IGJ5IEF1Z3VzdCA0dGguCgoqIENvbGxlY3Rpbmcgb3IgQ3JlYXRpbmcgRGF0YSBTZXRzCgoqIEJhc2ljIE9wZXJhdGlvbnMgb24gRGF0YSBTZXRzCgojIyBDb2xsZWN0aW5nIG9yIENyZWF0aW5nIERhdGEgU2V0cwoKIyMjIENyZWF0ZSBvbmUKCmBgYHtyIGNyZWF0ZX0KIyBidWlsZCBhbiBleGFtcGxlIGRhdGEgZnJhbWUKZGYuZWcgPC0gZGF0YS5mcmFtZShjb2wxID0gbGV0dGVyc1sxOjVdLCBjb2wyID0gc2VxKDIsNCxsZW5ndGg9NSksIGNhc2VzID0gc2FtcGxlKDUwLDUpKQojIGRmLmVnJGNvbDQgPSAoMTAwKmRmLmVnJGNvbDIpL2RmLmVnJGNvbDMKZGYuZWcgPC0gZGYuZWcgJT4lIG11dGF0ZShkZWF0aHMgPSAxMDAqY29sMi9jYXNlcykKCmRmLmVnIDwtIGRmLmVnICU+JSBtdXRhdGUobGFnLmRlYXRocyA9IGxlYWQoZGVhdGhzLDIpKSAKIyBwcmludCB0aGUgZmlyc3QgZmV3IHJvd3MKcHJpbnQoaGVhZChkZi5lZykpCmBgYCAKCmBgYHtyIGRhdGFzZXQyfQpkZjIgPC0gZGF0YS5mcmFtZShjb2wxID0gbGV0dGVyc1szOjRdLCBuYW1lcyA9IGMoICJNYWxsaWthIiwgIkxpYW0iKSkKCnByaW50KGRmMikKYGBgCgoKYGBge3IgbWVyZ2V9CmRmLm1lcmdlIDwtIGlubmVyX2pvaW4oZGYuZWcsIGRmMiwgYnk9ImNvbDEiKQpwcmludChkZi5tZXJnZSkKYGBgCg==