Deep Learning talk 2018-02.ipynb

{
 "cells": [
  {
   "cell_type": "raw",
   "metadata": {},
   "source": []
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [],
   "source": [
    "library(ggplot2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n",
      "`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n"
     ]
    },
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAADAFBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcJCQkKCgoMDAwNDQ0QEBARERESEhIUFBQWFhYXFxcYGBgZGRkaGhobGxsc\nHBwdHR0eHh4fHx8hISEiIiIkJCQlJSUoKCgrKyssLCwtLS0uLi4wMDAzMzM3Nzc4ODg5OTk/\nPz9AQEBBQUFCQkJDQ0NERERGRkZISEhJSUlKSkpNTU1OTk5PT09QUFBRUVFTU1NVVVVWVlZX\nV1dYWFhaWlpbW1tcXFxdXV1eXl5gYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampr\na2tsbGxtbW1ubm5xcXFycnJzc3N0dHR1dXV2dnZ3d3d5eXl6enp8fHx9fX1/f3+AgICBgYGC\ngoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Pj4+QkJCRkZGSkpKTk5OUlJSV\nlZWWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eo\nqKipqamsrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8\nvLy8vO+9vb29vfC+vr6+vvG/lsm/v7/AwMDAwPPBwcHBwfTCmczCms3CwsLCwvXDw8PDw/bE\nm87ExMTExPfFnM/FxcXFxfjGndDGntHGxsbGxvnHntHHx8fHx/rIn9LIyPvJoNPJycnJyfzK\nodTKotXKysrKyv3Ly8vLy/7Mo9bMzMzMzP/Nzc3Ozs7Pz8/Q0NDS0tLT09PU1NTV1dXW1tbX\n19fY2NjZ2dnb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTm5ubn5+fo6Ojp6enq6urr\n6+vs7Ozt7e3u7u7vvLzv7+/w8PDxvr7x8fHyv7/y8vLzwMDz8/P09PT1wsL19fX2w8P29vb3\nxMT39/f4xcX4+Pj5xsb5+fn6x8f6+vr7yMj7+/v8ycn8/Pz9ysr9/f3+y8v+/v7/zMz////X\n1b5sAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3df5xlZ33Q8bWKWq1tkVaoVgsS\nq1Vb2glpQgLJJg0FJUgVjG1ohAZtRWwtDUKsGBEUqD9QCEYrtGpqiVIbisVQmpCkMU0jWqmk\ngl02rBuX7S7rOmymy3QYZo93dpjvzOSZc+73PPeczM7k/flj7r0zzz3PyXzvO3Puzr6SfY2k\nmdu30ycg7YVAkgYIJGmAQJIGCCRpgECSBggkaYBAkgaoGtLJQxudWn740Ngtjr7DkeWT0xfN\n2Mljo2+xsDz6FodPj77F0eUTo+8xf3T2Y8wO6cTBjU41nzo4dsuj73C4OTn6HiePjr7F6eah\nsbf41OLYOxw8suUFNk7zD89+DJDKQMoGUgRSGUjZQIpAKgMpG0gRSGUgZQMpAqkMpGwgRSCV\ngZQNpAikMpCygRSBVAZSNpAikMpAygZSBFIZSNlAikAqAykbSBFIZSBlAykCqQykbCBFIJWB\nlA2kCKQykLKBFIFUBlI2kCKQykDKBlIEUhlI2UCKQCoDKRtIEUhlIGUDKQKpDKRsIEUglYGU\nDaQIpDKQsoEUgVQGUjaQIpDKQMoGUgRSGUjZQIpAKgMpG0gRSGUgZQMpAqkMpGwgRSCVgZQN\npAikMpCygRSBVAZSNpAikMpAygZSBFIZSNlAikAq2wLpf7c04x4gJQNprEBKBlI2kMYJpGwg\nRSCVgZQNpAikMpCygRSBVAZSNpAikMpAygZSBFIZSNlAikAqAykbSBFIZSBlAykCqQykbCBF\nIJWBlA2kCKQykLKBFIFUBlI2kCKQykDKBlIEUhlI2UCKQCoDKRtIEUhlIGUDKQKpDKRsIEUg\nlYGUDaQIpDKQsoEUgVQGUjaQIpDKQMoGUgRSGUjZQIpAKgMpG0gRSGUgZQMpAqkMpGwgRSCV\ngZQNpAikMpCygRSBVAZSNpAikMpAygZSBFIZSNlAikAqAykbSNHskE4e3uh0c+Tw2C2PvsPR\n5tTGg0+3NOMep07MeIDpLTajb/Hw0uhbHG/mR99j4djMhzg0O6RTm1puFk6N3croOyw0SxsP\nHmlpxj2WTs94gOktN9PXzNjC+MM43SyOvscAw5ifHZJLu5pc2iV7/FzagVQTSMlAGiuQkoGU\nDaRxAikbSBFIZSBlAykCqQykbCBFIJWBlA2kCKQykLKBFIFUBlI2kCKQykDKBlIEUhlI2UCK\nQCoDKRtIEUhlIGUDKQKpDKRsIEUglYGUDaQIpDKQsoEUgVQGUjaQIpDKQMoGUgRSGUjZQIpA\nKgMpG0gRSGUgZQMpAqkMpGwgRSCVgZQNpAikMpCygRSBVAZSNpAikMpAygZSBFIZSNlAikAq\nAykbSBFIZSBlAykCqQykbCBFIJWBlA2kCKQykLKBFIFUBlI2kCKQykDKBlIE0nobRj595rNt\nfEDaEkgRSOuB1D+QIpDWA6l/IEUgrQdS/0CKQFoPpP6BFIG0Hkj9AykCaT2Q+gdSBNJ6IPUP\npAik9UDqH0gRSOuB1D+QIpDWA6l/IEUgrQdS/0CKQFoPpP6BFIG0Hkj9AykCaT2Q+gdSBNJ6\nIPUPpAik9UDqH0gRSOuB1D+QIpDWA6l/IEUgrQdS/0CKQFoPpP6BFIG0Hkj9AykCaT2Q+gdS\nBNJ6IPUPpAik9UDqH0gRSOuB1D+QIpDWA6l/IEUgrQdS/0CKQFoPpP6BFIG0Hkj9AykCaT2Q\n+gdSBNJ6IPUPpAik9UDqH0gRSOuB1D+QIpDWA6l/IEUgrQdS/0CKQFoPpP6BFIG0Hkj9Ayl6\n/EGabgSkbCBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSBFIINUHUgQSSPWBFIEEUn0g\nRSCBVB9IEUgg1QdSBBJI9YEUgQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSFEe\n0nvnzvaq5s2rNxeANFMgJdt7kA7dOen259zcXH/N6j2QZgqkZHsP0tluuqZprr1xy6dAqgmk\nZHsT0vyVv9Y0V70DJJDOBlLUD9Lfvn7y4aLrrnzOyz+x+nDh70/6xWMbLTbHj43dyozP/8zU\nPnvmc9MXzXgWp+dnPMD0lprRtzi+PPoW883C6HucPjnzIY72gvTJSybwjsxde9+9V19xYvL4\n0HmTXpMReA51Zph2+h9D51RLcS8D6dXfO/mwfHilaY5eeHPjJ9IM+YmUbC/+RDp9ye1x/wVv\nWr/nPVJN3iMl24vvkW571uoPsPtefKxpTl50G0izBFKyvQjp1d+1+nHh0pfeff81V8VFIUg1\ngZRsL0L602u/QDpw3WX7X3k4PgtSTSAl24uQtg+kmkBKBtJYgZQMpGwg1QTScIEUgQRSfSBF\nIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSBFIINUHUgQSSPWBFIEEUn0gRSCBVB9IEUgg\n1QdSBBJI9YEUgQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSBFIINUHUgQSSPWB\nFIEEUn0gRSCBVB9IEUgg1QdSBBJI9YEUgQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUg\ngVQfSBFIINUHUgQSSPWBFIEEUn0gRSCBVB9IEUgg1QdSBBJI9YEUgQRSfSBFIIFUH0gRSCDV\nB1IEEkj1gRSBBFJ9IEUggVQfSBFIINUHUgQSSPWBFIEEUn0gRSCBVB9IEUgg1QdSBBJI9YEU\ngQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSBFIINUHUgQSSPWBFIEEUn0gRSCB\nVB9IEUgg1QdSBBJI9YEUgQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSBFIINUH\nUgQSSPWBFIEEUn0gRSCBVB9IEUgg1QdSBBJI9YEUgQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSB\nBFJ9IEUggVQfSBFIINUHUgQSSPWBFIEEUn0gRSCBVB9IEUgg1QdSBBJI9YEUgQRSfSBFIIFU\nH0gRSCDVB1I0O6RTm1puFk6N3cqMz39kar9x5vPTF814FkunZzzA9Jab6WtmbGHWYUzvdLM4\n+h4DDGN+dkgnD290ujlyeOyWZ3z+p6f2mTOPTF8041mcOjHjAaa32Iy+xcNLo29xvJkffY+F\nYzMf4tDskFza1eTSLtnj59IOpJpASgbSWIGUDKRsINU0EKQZfYGUDKSxAikZSNlAqgmk4QIp\nAgmk+kCKQAKpPpAikECqD6QIJJDqAynaw5CqMYCUDaQIJJDqAykCCaT6QIpAAqk+kCKQQKoP\npAgkkOoDKQIJpPpAikACqT6QIpBAqg+kCCSQ6gMpAgmk+kCKQAKpPpAikECqD6QIJJDqAykC\nCaT6QIpAAqk+kCKQQKoPpAgkkOoDKQIJpPpAikACqT6QIpBAqg+kCCSQ6gMpAgmk+kCKQAKp\nPpAikECqD6QIJJDqAykCCaT6QIpAAqk+kCKQQKoPpAgkkOoDKQIJpPpAikACqT6QIpBAqg+k\nCCSQ6gMpAgmk+kCKQAKpPpAikECqD6QIJJDqAykCCaT6QIpAAqk+kCKQQKoPpAgkkOoDKQIJ\npPpAikACqT6QIpBAqg+kCCSQ6gMpAgmk+kCKQAKpPpAikECqD6QIJJDqAykCCaT6QIpAAqk+\nkCKQQKoPpAgkkOoDKQIJpPpAikACqT6QIpBAqg+kCCSQ6gMpAgmk+kCKQAKpPpAikECqD6QI\nJJDqAykC6ZyE9M+2L3v0s4GUDaTOQAIpF0idgQRSLpA6AwmkXCB1BhJIuUDqDCSQcoHUGUgg\n5QKpM5BAygVSZyCBlAukzkACKRdInYEEUi6QOgMJpFwgdQYSSLlA6gwkkHKB1BlIIOUCqbM9\nCKmtbY8BUjaQOgMJpFwgdQYSSLkeY0hvnpt0QdOs3Hjl5a9bAgkkkDbqAen6a+6c1DRvfPZt\nt++/ASSQQNqoB6Rrbzx7s7T/bU1zy8XzIIEEUtQD0lXvOHvzsbkDEz1zD4AEEkhRD0gXXXfl\nc17+iebeudX3R8+6dfLhyPmT3rC00UqzNHrpLT5f3ZkvVD81e3Iry51fvqNf228x/jCWV8bf\noun+Tg3RlGFkOp2HdGTu2vvuvfqKE+++cPXR5ZPru+bwH5/0wysbNc3K6KW3+EJ1Z85UP3Wg\nf8gP92v7b9S5NIxzeosBWsxDWj48Gc3RC2++e+0n0i0u7VzaubSLelzane0Fb/ro3ORJ83P3\ngwQSSFEe0n0vPtY0Jy+6bemym5rm/RefAgkkkKI8pIVLX3r3/ddctdS8Yf/9DzzX75FAAmlT\neUjNgesu2//Kw5O3sK+/8ooblkECCaSNekBqCSSQRgyksQIJpIEDqTOQQMo1IqRL/sva7b94\nPkggtQZStB2khx56aN+PPLTaJ1/ypSCB1BpI0XaQ9m3qT4AEUmsgRdtBetWrXrXvha862w/+\nKkggtQZStB2kSd9w31RAIIEEUtQCqUcggTRiuxzSw9/2lK9YCySQWgMpaoF05b6vf96fOhtI\nILUGUtQC6SsvmQoIJJBAilogfenrQAJpaiBFLZC+8SqQQJoaSFELpI886QdOP1oMSCA9KpCi\nFkgX/JF9v+MPPnU1kEBqDaSoBdIzIpBAag2kqAVSj0ACacRAGiuQQBq4ESE9NQIJpNZAilog\nXbDaN3/tvj/2YpBAag2kqAXSF/vHT7wTJJBaAynqhtT8+W8GCaTWQIqmQPobvwckkFoDKeqG\ntPiMJ4MEUmsgRS2Q1n4Z+01fs+/PggRSayBFLZCevtYf/a4FkEBqDaSoBVKPQAJpxHY9pJX/\n8c5/+ivLzfRAAmnEdjukd/zh1f+q3dPeCRJI7YEUtUC6+wlPuvbNb/2LT/rt94IEUmsgRS2Q\nnvE1Z7/yySd/C0ggtQZS1ALpiX9h7fbq3wsSSK2BFLVA+sp1SE8ECaTWQIpaID3jKWe/cvAp\n/q4dSO2BFLVAuvsJX/Wyt7715V/1hLtBAqk1kKIWSM1NT1v94++nvn2qI5BAGrPdDqlZ/pW3\nv/2/+4UsSF2BFLVB+uRfeXfTfP9fOgwSSO2BFLVAOvDV+36oaf7Mvic/CBJIrYEUtUC67Mve\ntXpz65c9GySQWgMpaoH0+1+ydvuS3wcSSK2BFLVA+vLvXrt96ZeDBFJrIEUtkL7p646v3pz8\nuj8JEkitgRS1QLrtCU973ft//m89/UveBRJIrYEUtUBq/uHXrv5C9qv/7lRHIIE0ZrsdUrN4\n+41/89aT0x2BBNKY7XpI6UACacRAGiuQQBo4kDoDCaRcIHUGEki5QOoMJJBygdQZSCDlAqkz\nkEDKBVJnIIGUC6TOQAIpF0idgQRSLpA6AwmkXCB1BhJIuUDqDCSQcoHUGUgg5QKpM5BAygVS\nZyCBlAukzkACKRdInYEEUi6QOgMJpFwgdQYSSLlA6gwkkHKB1BlIIOUCqTOQQMoFUmcggZQL\npM7OKUiPfun/1E+0C9hmOUhjBlJnIIGUC6TOQAIpF0idgQRSLpA6AwmkXCB1BhJIuUDqDCSQ\ncoHUGUgg5QKpM5D+eZ/lNYEUgQRSfSBFIIFUH0gRSCDVB1IEEkj1gRSBBFJ9IEUggVQfSBFI\nw0LKvvTPRUi9jn42kCKQQJq2afu3GKQIJJCmbdr+LQYpmh3SyUMbLTQPHxq75ezC/1PbZ848\nUv3cH032vp88e9N27tnDfLFtj7HY9Frevmn7t/jwUnYY1R3b8gIbp4VjMx/iU7NDWji90XKz\neHrsVrILP1fbb575fPVzP5DsjjvO3rSde/YwX2z7b1TTa3n7pkMMo7rFZmn0PZZnf9Wemh2S\nSzuXdiP2+Lm0AwmkEQNprEBKvtRBygZSZ48jSNv2gXtAygVSZyCBlAukzkACKRdInYEEUi6Q\nOgMJpFwgdQYSSLlA6gwkkHKB1BlIIOUCqTOQQMoFUmcggZQLpM5AAikXSJ2BBFIukDoDCaRc\nIHUGEki5QOoMJJBygdQZSCDlAmmt6ld9S7NA+pctgVQZSGMFEkgDB9JaAxo6G0gg9Q6kMpBA\n6h1IZSCB1DuQykACqXcglYEEUu9AKgMJpN6BVAYSSL0DqQwkkHoHUhlIIPUOpDKQQOodSGUg\ngdQ7kMpAAql3IJWBBFLvQCoDCaTegVQGEki9A6kMJJB6B1IZSCD1DqQykEDqHUhlIIHUO5DK\nQAKpdyCVgQRS70AqAwmk3oFUBhJIvQOpDCSQegdSGUgg9Q6kMpBA6h1IZSCB1DuQykACqXcg\nlYEEUu9AKgMJpN6BVAYSSL0DqQwkkHoHUhlIIPUOpDKQQOodSGUggdQ7kMpAAql3IJU9hpDG\nDKRsIK01oKGzgZRafhCkTYFUBlJq+UGQNgVSGUip5QdB2hRIZSCllh8EaVMglYGUWn4QpE2B\nVAZSavlBkDYFUhlIqeUHQdoUSGUgpZYfBGlTIJWBlFp+EKRNgVQGUmr5QZA2BVIZSKnlB0Ha\nFEhlIKWWHwRpUyCVgZRafhCkTYFUBlJq+UGQNgVSWQpSmxiQhg2ksQIpGUjZQFoLpG0DKRtI\na4G0bSBlA2ktkLYNpGwgrQXStoGUDaS1QNo2kLKBtBZI2wZSNpDWGhVSTzAgDRxIYwVSMpCy\ngbQWSNsGUjaQ1gJp20DKBtJaIG0bSNlAWgukbQMpG0hrgbRtIGUDaS2Qtg2kbCCtBdK2gZQN\npLVA2jaQsj3GkE6/5vkXf/fHm+bNc5MuAAkkkDbqAekVV7z3gZd+24nm+mvunAQSSCBtlId0\n6PwJnvmLfry59sYtnwcJpBHbe5A+9h0PN83KpW9prnoHSCCdDaQoD+lst859pLnouiuf8/JP\nrD5auGnSR45utNgcOzp2K8VnPjNw/+/Mb2w8eM8w/cSj+o8/9ejPDN4d97R9peU723P5pGNL\nw8y0o5PNqdH3OH1i5kMc6QVp6a0X/GBzZO7a++69+ooTk8eHzpv0mpTAMTszZncN0z3nUi3f\nx57LtamluJeA9LEXPesfrDTLh1ea5uiFN08+Mf/Dk+48vtFic+L42K0Un/m/A/fZM5/bePDv\nh+knH9UH3vfozwzeHfe0faXlO9tz+aQTy8PMtKP5ZmH0PRbnZz7EsR6Q7r/wZYfiwQvetH7P\neyTvkUZs771HWtx//crq7X0vnug7edFtIIEEUpSHdOfczau/PzqwcOlL777/mqviohAkkEZs\n70H6kbmz/aPmwHWX7X/l4fg8SCCN2N6D1BZIII0YSGMFUjKQsoG0FkjbBlI2kNYCadtAygbS\nWiBtG0jZQFoLpG0DKRtIa4G0bSBlA2ktkLYNpGwgrQXStoGUDaS1QNo2kLKBtBZI29YOqWft\nswApAgmkabXPAqQIJJCm1T4LkCKQQJpW+yxAikACaVrtswApAgmkabXPAqQIJJCm1T4LkCKQ\nQJpW+yxAikACaVrtswApAgmkabXPAqQIJJCm1T4LkCKQQJpW+yxAikACaVrtswApAgmkabXP\nAqQIJJCm1T4LkKLdBGntlf35od2ANKX2iYAUgQTStNonAlIEEkjTap8ISBFIIE2rfSIgRSCB\nNK32iYAUgQTStNonAlIEEkjTap8ISBFIIE2rfSIgRSCVYv71XT89EB+QZg6k4QOpVyBlAwmk\njkDKBhJIHYGUDSSQOgIpG0ggdQRSNpBA6gikbCCB1BFI2UACqSOQsoEEUkcgZQMJpI5AygYS\nSB2BlA0kkDoCKRtIIHUEUjaQQOoIpGwggdQRSNlAAqkjkLKBBFJHIGUDCaSOQMoGEkgdgZQN\nJJA6AikbSCB1BFI2kEDqCKRsIO0eSI/up9+zra8hAykbSCB1BFI2kEDqCKRsIIHUEUjZQAKp\nI5CygQRSRyBlAwmkjkDKBhJIHYGUDaTZwLQF0tbaJwJSBFIZSFtrnwhIEUhlIG2tfSIgRSCV\ngbS19omAFIFUBtLW2icCUgRSGUhba58ISBFIZSBtrX0iIEUglYG0tfaJgBSBVAbS1tonAlIE\nUhlIW2ufCEgRSGUgba19IiBFIJWBtLX2iYAUgVQG0tbaJwJSBFIZSFtrnwhIEUhlIG2tfSIg\nRSCVgbS19omAFIFUBtLW2icCUgRSGUhba58ISBFIZSBtrX0iIEUglYG0tfaJgBSBVAbS1ton\nAlIEUhlIW2ufCEgRSGUgba19IiBFIJWBtLX2iYAUgVQG0tbaJwJSBFIZSFtrnwhI0eyQTs1v\ntLTl0dA9crYvPDJbPzO1n73rQ9MXzdjP/aezN+8bsTvuGehA7RM5tTziuNdaaBZH32NpYeZD\nnJgd0smHNzrdHH14vH79bJ//9dn6N1N7z10/O33RjP3Mfzh782Mj9sF7BjpQ+0SOLI047rWO\nN/Oj77FwfPZjzA7JpV1NLu2SPX4u7UCqCaRkIA0fSL0CKRtIIHUEUjaQQOoIpGwggdQRSNlA\nAqkjkLKBBFJHIGUDCaSOQMoGEkgdgZQNJJA6AikbSCB1BFI2kEDqCKRsIIHUEUjZQAKpI5Cy\ngQRSRyBlAwmkjkDKBhJIHYGUDSSQOhob0uQrP/rB9OraQBo+kHoFUjaQQOoIpGwggdQRSNlA\nAqkjkLKBBFJHIGUDCaSOQMoGEkgdgZQNpBnFtARSNpAikMpAygZSBFIZSNlAikAqAykbSBFI\nZSBlAykCqQykbCBFIJWBlA2kCKQykLKBFIFUBlI2kCKQykDKBlIEUhlI2UCKQCoDKRtIEUhl\nIGUDKQKpDKRsIEUglYGUDaQIpLLHEFJbQ7zKdwhSW5VDB2n4QOoVSNlAAqkjkLKBBFJHIGUD\nCaSOQMoGEkgdgZQNJJA6AikbSCB1BFI2kGYU0xJI2UCKQCoDKRtIEUhlIGUDKQKpDKRsIEUg\nlYGUDaQIpDKQsoEUgVQGUjaQIpDKQMoGUgRSGUjZRoS0/rR/dc+/m+EouUACqSOQsoEEUkcg\nZQMJpI5AygYSSB2BlA0kkDoCKRtIIHUEUrZdD6kg8cU6l4OUDKRsIIHUEUjZQAKpI5CygQRS\nRyBlAwmkjkDKBhJIHYGUDSSQOgIpG0ggdQRSNpD2LKSWer3KzzFIlYGUCKSe9XoJgpQNJJA6\nAikbSCB1BFI2kEDqCKRsIIHUEUjZQAKpI5CygQRSRyBle7xBWnsxfWjI1/O2gZQNpAikMpCy\ngRSBVAZSNpAikMpAygZSBFIZSNlAikAqAykbSBFIZSBlAyl6bCC1vC7aIHW+mEBKtich9azt\nZb911ft+rPIwIHUGUjaQQOoIpGwgzQJp5cYrL3/dEkgzBVKyPQzpjc++7fb9N4A0UyAl27uQ\nlva/rWluuXgepFkCKdnehfSxuQMTPXMPgDRLICXbu5DunVt9f/SsWycfjlw66e8tbrTSLG7b\nz23fb7bUsnytuzq/OkQfuutD4+9RtcUH+/The3otr+rDo+9wxz13zPDs7V+Oi4uP2mPaFm2H\n2WihP6R3X7j68fLJ9V1z6LxJr8k+UdqzbfzhWxrS3Ws/kW5Zf/zY/Y/G1loefYfDzcnR9zh5\ndPQtTjcPjb3FpxbH3uHgkS0vsHHamb/Z8NG5yZPm5+4HaZZASrZ3IS1ddlPTvP/iUyDNEkjJ\n9i6k5g3773/guf1+jzRkICUDKdsOQVp5/ZVX3LAM0kyBlGwPQ3pUINUEUjKQxgqkZCBlA2mc\nQMoGUgRSGUjZQIpAKgMpG0gRSGUgZQMpAqkMpGwgRSCVgZQNpAikMpCygRSBVAZSNpAikMpA\nygZSBFIZSNlAikAqAykbSBFIZSBlAykCqQykbCBFIJWBlA2kCKQykLKBFIFUBlI2kCKQykDK\nBlIEUhlI2UCKQCoDKRtIEUhlIGUDKQKpDKRsIEUglYGUDaQIpDKQsoEUgVQGUjaQIpDKQMoG\nUgRSGUjZQIpAKgMpG0jRsJD+yWv/5+ynNKXjo+/wy6991+h7HDk8+hZvee2Bsbd4aPxh/NJr\n3zv6HkcPzX6M2SFt7urzfm2Iw+xwv3Te9+30KQzRt5+3MH3ROd+/Pe+1O30K/QIpAukcCqTd\nG0jnUCDt3kA6h3p8Qjp5ZHn6onO+pSPzO30KQ3TiyE6fwRAtHtll/zoYBJL0eA8kaYBAkgZo\nMEj/9ZmHhzrUzrRy45WXv25pp89igHb9JCbNX7//Od93aKfPok9DQZp/3twuH98bn33b7ftv\n2OmzmL3dP4lJf/Xbf+EXX3j1Tp9Fn4aC9NdfuMvHt7T/bU1zy8W7/w/udv0kJi1f+ONN8wtz\nD+/0efRoIEg/f/l/3uXj+9jcgaY5MffATp/HrO3+SUw6/a13Ti5RLzy90+fRo2EgPXzZvb+8\ny8d379zq+6Nn3brT5zFje2ASq73iO4+eeMU7dvos+jQMpJf/ULPbx/fuC1c/Xv62nT6PGdsD\nk1jtxKXnn3/R+3f6LPo0K6TbL7nkkl+9+Xnzu358d6/9RLplp89jtvbCJCYtfMf3fOS/vfL8\nB3f6PHo0K6RTBw4cWHr1+Rdc8My5Z/61Qc5oh/ro3MGmmZ+7f6fPY7b2wiQm3X7RYtOs7H/L\nTp9Hjwa5tPvUgw8+eMvc/Q8Ncaydaumym5rm/Ref2unzmK29MIlJt1x0ummWL3vnTp9Hjwb7\nheyuv6B4w/77H3juHvg90u6fRNMcvfxlD3zkey8/vtPn0SOQ1lt5/ZVX3LAX/hb7rp/EpI9f\nd+mzv+cTO30WffJ37aQBAkkaIJCkAQJJGiCQpAECSRogkKQBAkkaIJCkAQJJGiCQpAECSRog\nkKQBAmn3de9v+3OTj3/5t7wr7uz0GQmk3dh3/ta7m4/+zhduuqOdDqRd2Kk/9PTFb/wDxzfd\n0U4H0m7sti/5hrXrubijHQ6kXdmL9j3/UXe0s4G0K3vmvq9f3npHOxtIu7Eb971o3/dvuaMd\nDqRd2P/68kubb/1dD266o50OpF3YM7/iYPPx3/0tm+5opwNp9/V39r1+8vEH9r0h7uz0GQkk\naYhAkgYIJGmAQJIGCCRpgFdpDqEAAAAUSURBVECSBggkaYBAkgYIJGmA/j9RHkT+Di+Q9wAA\nAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "N <- 500\n",
    "dat <- data.frame(xx = c(rnorm(N, 0, 1),rnorm(N, 3, 2)),yy = rep(letters[1:2],each = N))\n",
    "\n",
    "ggplot(dat,aes(x=xx)) + \n",
    "    geom_histogram(data=subset(dat,yy == 'a'),fill = \"red\", alpha = 0.2) +\n",
    "    geom_histogram(data=subset(dat,yy == 'b'),fill = \"blue\", alpha = 0.2) +\n",
    "    geom_histogram(data=subset(dat,yy == 'c'),fill = \"green\", alpha = 0.2)\n",
    "#     geom_line(data=dat, aes(callin, Nominal), colour = \"blue\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.4.3"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}