goog <- structure(list(date = structure(98:1, .Label = c("2006-01-03", "2006-02-01", "2006-03-01", "2006-04-03", "2006-05-01", "2006-06-01", "2006-07-03", "2006-08-01", "2006-09-01", "2006-10-02", "2006-11-01", "2006-12-01", "2007-01-03", "2007-02-01", "2007-03-01", "2007-04-02", "2007-05-01", "2007-06-01", "2007-07-02", "2007-08-01", "2007-09-04", "2007-10-01", "2007-11-01", "2007-12-03", "2008-01-02", "2008-02-01", "2008-03-03", "2008-04-01", "2008-05-01", "2008-06-02", "2008-07-01", "2008-08-01", "2008-09-02", "2008-10-01", "2008-11-03", "2008-12-01", "2009-01-02", "2009-02-02", "2009-03-02", "2009-04-01", "2009-05-01", "2009-06-01", "2009-07-01", "2009-08-03", "2009-09-01", "2009-10-01", "2009-11-02", "2009-12-01", "2010-01-04", "2010-02-01", "2010-03-01", "2010-04-01", "2010-05-03", "2010-06-01", "2010-07-01", "2010-08-02", "2010-09-01", "2010-10-01", "2010-11-01", "2010-12-01", "2011-01-03", "2011-02-01", "2011-03-01", "2011-04-01", "2011-05-02", "2011-06-01", "2011-07-01", "2011-08-01", "2011-09-01", "2011-10-03", "2011-11-01", "2011-12-01", "2012-01-03", "2012-02-01", "2012-03-01", "2012-04-02", "2012-05-01", "2012-06-01", "2012-07-02", "2012-08-01", "2012-09-04", "2012-10-01", "2012-11-01", "2012-12-03", "2013-01-02", "2013-02-01", "2013-03-01", "2013-04-01", "2013-05-01", "2013-06-03", "2013-07-01", "2013-08-01", "2013-09-03", "2013-10-01", "2013-11-01", "2013-12-02", "2014-01-02", "2014-02-03"), class = "factor"), open = c(1179.2, 1115.46, 1063.51, 1031.79, 880.25, 854.36000000000001, 895, 886.45000000000005, 873, 823.25999999999999, 795.00999999999999, 797.79999999999995, 758.20000000000005, 719.41999999999996, 702.24000000000001, 679.5, 759.04999999999995, 684.54999999999995, 637.29999999999995, 581.82000000000005, 571.78999999999996, 603.78999999999996, 640.76999999999998, 622.25999999999999, 584.94000000000005, 652.94000000000005, 600, 580.10000000000002, 509.85000000000002, 540.75, 611.22000000000003, 506.74000000000001, 528.03999999999996, 545.70000000000005, 588.75999999999999, 617.77999999999997, 604.49000000000001, 596.48000000000002, 563, 615.73000000000002, 530, 454.98000000000002, 488.99000000000001, 445.29000000000002, 480.43000000000001, 526.5, 571.35000000000002, 529.20000000000005, 534.60000000000002, 626.95000000000005, 588.13, 537.08000000000004, 493, 459.68000000000001, 448.74000000000001, 424.19999999999999, 418.73000000000002, 395.02999999999997, 343.77999999999997, 333.32999999999998, 334.29000000000002, 308.60000000000002, 286.68000000000001, 357.57999999999998, 411.14999999999998, 476.76999999999998, 472.50999999999999, 519.58000000000004, 582.5, 578.30999999999995, 447.74000000000001, 471.50999999999999, 528.66999999999996, 692.87, 691.00999999999999, 702.78999999999996, 569.97000000000003, 515.01999999999998, 510.5, 525.49000000000001, 501, 472.19, 457.75999999999999, 442.67000000000002, 506, 466, 485.98000000000002, 478.75999999999999, 401.89999999999998, 380.99000000000001, 385.11000000000001, 420.04000000000002, 373.54000000000002, 418.47000000000003, 389.52999999999997, 368.56, 389.02999999999997, 422.51999999999998 ), high = c(1212.8699999999999, 1186.54, 1121, 1068, 1041.52, 905.99000000000001, 909.71000000000004, 928, 910.84000000000003, 920.60000000000002, 827.63999999999999, 844, 808.97000000000003, 760.95000000000005, 729.10000000000002, 699.22000000000003, 774.38, 764.88999999999999, 688.99000000000001, 642.60000000000002, 587.88999999999999, 637.85000000000002, 653.13999999999999, 658.59000000000003, 625.60000000000002, 670.25, 646.75999999999999, 618.29999999999995, 602.70000000000005, 558.51999999999998, 615.5, 627.5, 533.20000000000005, 545.73000000000002, 595.19000000000005, 619.22000000000003, 631.17999999999995, 642.96000000000004, 607, 630.85000000000002, 624.74000000000001, 536.85000000000002, 508.60000000000002, 497.5, 509.25, 532.91999999999996, 597.84000000000003, 588.27999999999997, 547.5, 629.50999999999999, 625.99000000000001, 587.05999999999995, 561.63999999999999, 507, 474.35000000000002, 452.69999999999999, 447.33999999999997, 417.23000000000002, 403.75, 359.16000000000003, 381, 352.32999999999998, 329.5, 372.36000000000001, 416.98000000000002, 482.18000000000001, 510.66000000000003, 555.67999999999995, 588.03999999999996, 602.45000000000005, 584.86000000000001, 472.72000000000003, 541.03999999999996, 697.37, 724.79999999999995, 747.24000000000001, 707, 571.78999999999996, 526.82000000000005, 558.58000000000004, 534.99000000000001, 508.77999999999997, 492.5, 466, 506.00999999999999, 513, 492.39999999999998, 513, 491.95999999999998, 418.69, 390, 427.88999999999999, 419.32999999999998, 419.44, 450.72000000000003, 399, 406.5, 475.11000000000001), low = c(1128.02, 1082.27, 1049.02, 1005, 842.98000000000002, 853.95000000000005, 845.55999999999995, 875.61000000000001, 847.22000000000003, 816.36000000000001, 761.25999999999999, 793.29999999999995, 758.10000000000002, 695.51999999999998, 682.33000000000004, 636, 669.70000000000005, 673.5, 623.40999999999997, 562.09000000000003, 556.51999999999998, 579, 590.20000000000005, 593.84000000000003, 579.13999999999999, 564.54999999999995, 599, 561.33000000000004, 480.60000000000002, 510.5, 490.86000000000001, 506.38, 473.01999999999998, 513.39999999999998, 519, 551.27999999999997, 601.35000000000002, 595.54999999999995, 562.39999999999998, 553.30999999999995, 518.85000000000002, 452.5, 447.64999999999998, 433.63, 444.72000000000003, 460, 521.02999999999997, 527.74000000000001, 520, 525.61000000000001, 579.17999999999995, 528.24000000000001, 482.60000000000002, 452.58999999999997, 438.56, 395.98000000000002, 401.88999999999999, 384.69, 340.61000000000001, 289.44999999999999, 329.55000000000001, 282.75, 262.57999999999998, 247.30000000000001, 309.44, 380.70999999999998, 461.89999999999998, 465.60000000000002, 515.09000000000003, 537.80999999999995, 441, 412.11000000000001, 446.85000000000002, 519, 652.5, 616.01999999999998, 569.61000000000001, 510.88, 480.45999999999998, 498.88, 497.58999999999997, 457.41000000000003, 452.12, 437, 443.04000000000002, 461.11000000000001, 452.33999999999997, 465.06, 398.19, 376.72000000000003, 363.36000000000001, 377.69, 371.60000000000002, 360.56999999999999, 387.93000000000001, 331.55000000000001, 337.82999999999998, 394.74000000000001), close = c(1203.79, 1180.97, 1120.71, 1059.5899999999999, 1030.5799999999999, 875.90999999999997, 846.89999999999998, 887.75, 880.37, 871.22000000000003, 824.57000000000005, 794.19000000000005, 801.20000000000005, 755.69000000000005, 707.38, 698.37, 680.29999999999995, 754.5, 685.09000000000003, 632.97000000000003, 580.07000000000005, 580.86000000000001, 604.85000000000002, 641.24000000000001, 618.25, 580.11000000000001, 645.89999999999998, 599.38999999999999, 592.63999999999999, 515.03999999999996, 540.96000000000004, 603.69000000000005, 506.38, 529.01999999999998, 544.10000000000002, 586.75999999999999, 613.39999999999998, 600.36000000000001, 593.97000000000003, 555.71000000000004, 613.70000000000005, 525.78999999999996, 450.01999999999998, 484.85000000000002, 444.94999999999999, 485.63, 525.70000000000005, 567.12, 526.79999999999995, 529.94000000000005, 619.98000000000002, 583, 536.12, 495.85000000000002, 461.67000000000002, 443.05000000000001, 421.58999999999997, 417.23000000000002, 395.97000000000003, 348.06, 337.99000000000001, 338.52999999999997, 307.64999999999998, 292.95999999999998, 359.36000000000001, 400.51999999999998, 463.29000000000002, 473.75, 526.41999999999996, 585.79999999999995, 574.28999999999996, 440.47000000000003, 471.18000000000001, 564.29999999999995, 691.48000000000002, 693, 707, 567.26999999999998, 515.25, 510, 522.70000000000005, 497.91000000000003, 471.38, 458.16000000000003, 449.44999999999999, 501.5, 460.48000000000002, 484.81, 476.38999999999999, 401.89999999999998, 378.52999999999997, 386.60000000000002, 419.32999999999998, 371.81999999999999, 417.94, 390, 362.62, 432.66000000000003), volume = c(2409900L, 2860800L, 1675400L, 1372400L, 2472300L, 1742200L, 1606700L, 2428100L, 2546400L, 2335700L, 2539000L, 2241800L, 2558200L, 2573300L, 2184600L, 2373400L, 3492100L, 3313700L, 2138700L, 2531000L, 2334400L, 2801800L, 3064200L, 2256400L, 2525000L, 3789200L, 2706100L, 3033200L, 3798700L, 2921500L, 4759500L, 4259600L, 2797800L, 2286400L, 3723500L, 2702900L, 2323700L, 3139400L, 1992000L, 3121800L, 3886900L, 2997300L, 2491000L, 3402500L, 2884800L, 4222800L, 3595000L, 3774000L, 2846500L, 4907400L, 1992700L, 2131500L, 3665500L, 2581900L, 2414100L, 3448900L, 3320600L, 2984100L, 4389900L, 5346800L, 6158100L, 5727600L, 5267900L, 8452500L, 8987700L, 6531600L, 3460100L, 4861400L, 4645200L, 5136000L, 6861200L, 7503000L, 9330500L, 8221900L, 4384500L, 8539500L, 7057700L, 3792200L, 3985700L, 5757200L, 6329900L, 4932000L, 4829900L, 5522500L, 6418200L, 6839600L, 4711100L, 5905600L, 7490800L, 6243100L, 4779600L, 6605800L, 6756300L, 8360000L, 10143900L, 14925400L, 17734800L, 16055300L), adj_close = c(1203.79, 1180.97, 1120.71, 1059.5899999999999, 1030.5799999999999, 875.90999999999997, 846.89999999999998, 887.75, 880.37, 871.22000000000003, 824.57000000000005, 794.19000000000005, 801.20000000000005, 755.69000000000005, 707.38, 698.37, 680.29999999999995, 754.5, 685.09000000000003, 632.97000000000003, 580.07000000000005, 580.86000000000001, 604.85000000000002, 641.24000000000001, 618.25, 580.11000000000001, 645.89999999999998, 599.38999999999999, 592.63999999999999, 515.03999999999996, 540.96000000000004, 603.69000000000005, 506.38, 529.01999999999998, 544.10000000000002, 586.75999999999999, 613.39999999999998, 600.36000000000001, 593.97000000000003, 555.71000000000004, 613.70000000000005, 525.78999999999996, 450.01999999999998, 484.85000000000002, 444.94999999999999, 485.63, 525.70000000000005, 567.12, 526.79999999999995, 529.94000000000005, 619.98000000000002, 583, 536.12, 495.85000000000002, 461.67000000000002, 443.05000000000001, 421.58999999999997, 417.23000000000002, 395.97000000000003, 348.06, 337.99000000000001, 338.52999999999997, 307.64999999999998, 292.95999999999998, 359.36000000000001, 400.51999999999998, 463.29000000000002, 473.75, 526.41999999999996, 585.79999999999995, 574.28999999999996, 440.47000000000003, 471.18000000000001, 564.29999999999995, 691.48000000000002, 693, 707, 567.26999999999998, 515.25, 510, 522.70000000000005, 497.91000000000003, 471.38, 458.16000000000003, 449.44999999999999, 501.5, 460.48000000000002, 484.81, 476.38999999999999, 401.89999999999998, 378.52999999999997, 386.60000000000002, 419.32999999999998, 371.81999999999999, 417.94, 390, 362.62, 432.66000000000003)), row.names = c(NA, -98L), class = c("tbl_df", "tbl", "data.frame"))