{ "cells": [ { "cell_type": "markdown", "metadata": {}, "source": [ "## Introduction\n", "So far we have focused only on data preparation, without running any analysis or touching the stm package, which is what will happen here. In these paragraphs, we will initially focus on some diagnostic techniques for the identification of an adequate number of topics, which is a key step, and a question to which there is no \"right\" answer - or rather the answer is very context and needs-specific (see the stm package vignette or the article by Roberts et al. 2016). Secondly, we will perform some basic analysis on the resulting model, in order to understand more about it and to explore the potentialities of the stm package.\n", "\n", "*Note: the notebook is better rendered here on nbviewer .*\n", "\n", "## Model selection\n", "\n", "In the manual of the stm R package the authors give some very generic rules of thumb in with regard to the number of topics:\n", "\n", "> For short corpora focused on very specific subject matter (such as survey experiments) 3-10 topics is a useful starting range. For small corpora (a few hundred to a few thousand) 5-50 topics is a good place to start. Beyond these rough guidelines it is application specific. Previous applications in political science with medium sized corpora (10k to 100k documents) have found 60-100 topics to work well. For larger corpora 100 topics is a useful default size. Of course, your mileage may vary.\n", "\n", "Ours is a small and short corpora on a relatively specific subject matter, so we shall focus at least initially on the 5-50 range. We will now explore some basic diagnostics to identify a properly fit model.\n", "\n", "For the sake of the present exercise, we will focus on a model with only the factor by which the salary is computed as topic prevalence covariate. This was chosen by reasons of simplicity, as the other covariates need some further massaging, so we will work with them at a later stage. \n", "\n", "The \"normal\" dataframe needs to be converted into a matrix of word indeces and counts before being fed to the function. stm accepts different formats, among which quanteda dfm objects or sparse matrix, but here we will just use the native stm format prepared with the package functions textProcessor and prepDocuments:" ] }, { "cell_type": "code", "execution_count": 1, "metadata": {}, "outputs": [ { "name": "stderr", "output_type": "stream", "text": [ "stm v1.3.3 (2018-1-26) successfully loaded. See ?stm for help. \n", " Papers, resources, and other materials at structuraltopicmodel.com\n" ] } ], "source": [ "suppressWarnings(library(stm))\n", "suppressWarnings(library(stringr))\n", "\n", "DF<-read.table(\"totaljobsCoordRates.txt\")\n", "\n", "DF<-DF[!is.na(DF$Description),]# stm doesn't work with missing data\n", "DF<-DF[!is.na(DF$rateby),]\n", "\n", "DF$Description = str_replace_all(DF$Description, \"/\",\" \")# substitute \"/\" with a space \n", "DF$Description = str_replace_all(DF$Description, \"'|"|/\", \"'\") ## links and other eventual html encoding (adapted from https://juliasilge.com/blog/evaluating-stm/)\n", "DF$Description = str_replace_all(DF$Description, \"\", \" \") ## \n", "DF$Description = str_replace_all(DF$Description, \">|<|&\", \" \") ##\n", "DF$Description = str_replace_all(DF$Description, \"&#[:digit:]+;\", \" \") ##\n", "DF$Description = str_remove_all(DF$Description, \"<[^>]*>\")\n", "\n", "## textProcessor prepares the corpus, representing the documents as lists containting \n", "#word indicese and associated word counts, the vocab character vector associated with \n", "#the word indices and a metadata matrix containing the covariates. As we can remove some words, \n", "#here we opt to remove \"work\" and \"will\" from the corpus \n", "\n", "processed<-textProcessor(DF$Description, metadata = DF, customstopwords=c(\"work\", \"will\"), verbose=FALSE)\n", "\n", "##PrepDocuments is a helpful function to perform some manipulations like removing words based on thresholds \n", "#without compromising the indexes \n", "out<-prepDocuments(processed$documents, processed$vocab, processed$meta, verbose=FALSE)\n", "\n", "docs<-out$documents\n", "vocab<-out$vocab\n", "meta<-out$meta" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "As prepDocuments removes words based on thresholds, it might be helfpul to have a cursory look at them. I found also helpful the below procedure to identify a specific document(s) where a specific word has been used. " ] }, { "cell_type": "code", "execution_count": 2, "metadata": { "scrolled": true }, "outputs": [ { "data": { "text/html": [ "\n", "\n", "\n", "\t\n", "\t\n", "\n", "\n", "\t\n", "\n", "
A data.frame: 1 × 2
TitleDescription
<fct><chr>
199Branch Customer Adviser - Hexham (Part Time) The Society’s branch network represents the face of Newcastle Building Society on the high street in our Heartland the North East of England. The main purpose of the branches is the provision of savings and mortgage accounts underpinned by solid Financial Advice for those who live in and around our branch locations, that are spread right across the North East of England, Cumbria and the Scottish borders. We deliver these services whilst providing excellent customer service. A priority for the branch network is maintaining great relationships with both existing and potential customers through maintaining regular customer engagement and being there to help them understand and address their ever changing financial needs. Role Summary This is a part-time position, 21 hours per week, Monday to Wednesday, 9am - 5pm (plus Saturday 8:45am-12:00pm, to be worked as overtime on a rota basis). You will consistently adopt a proactive and positive approach with our customers, in order to achieve the required business result. You will also understand how best to help customers by applying the branch understanding needs process, suggesting options customers may consider and identifying leads for the relevant advice specialists. You will be responsible for till operation, cash management, branch administration, servicing, balancing and cash replenishment. You will efficiently complete all administration in relation to customer enquiries, leads and sales, utilising the Societies customer management systems. Skills and Experience As a Customer Adviser, you will be working as part of an already successful team that provides 1st class, market leading customer service. You will possess great communication skills that will result in high levels of customer satisfaction and customer advocacy for use of our products and services. A proven ability to work as part of a team and deliver the high standards we require is essential.
\n" ], "text/latex": [ "A data.frame: 1 × 2\n", "\\begin{tabular}{r|ll}\n", " & Title & Description\\\\\n", " & & \\\\\n", "\\hline\n", "\t199 & Branch Customer Adviser - Hexham (Part Time) & The Society’s branch network represents the face of Newcastle Building Society on the high street in our Heartland the North East of England. The main purpose of the branches is the provision of savings and mortgage accounts underpinned by solid Financial Advice for those who live in and around our branch locations, that are spread right across the North East of England, Cumbria and the Scottish borders. We deliver these services whilst providing excellent customer service. A priority for the branch network is maintaining great relationships with both existing and potential customers through maintaining regular customer engagement and being there to help them understand and address their ever changing financial needs. Role Summary This is a part-time position, 21 hours per week, Monday to Wednesday, 9am - 5pm (plus Saturday 8:45am-12:00pm, to be worked as overtime on a rota basis). You will consistently adopt a proactive and positive approach with our customers, in order to achieve the required business result. You will also understand how best to help customers by applying the branch understanding needs process, suggesting options customers may consider and identifying leads for the relevant advice specialists. You will be responsible for till operation, cash management, branch administration, servicing, balancing and cash replenishment. You will efficiently complete all administration in relation to customer enquiries, leads and sales, utilising the Societies customer management systems. Skills and Experience As a Customer Adviser, you will be working as part of an already successful team that provides 1st class, market leading customer service. You will possess great communication skills that will result in high levels of customer satisfaction and customer advocacy for use of our products and services. A proven ability to work as part of a team and deliver the high standards we require is essential. \\\\\n", "\\end{tabular}\n" ], "text/markdown": [ "\n", "A data.frame: 1 × 2\n", "\n", "| | Title <fct> | Description <chr> |\n", "|---|---|---|\n", "| 199 | Branch Customer Adviser - Hexham (Part Time) | The Society’s branch network represents the face of Newcastle Building Society on the high street in our Heartland the North East of England. The main purpose of the branches is the provision of savings and mortgage accounts underpinned by solid Financial Advice for those who live in and around our branch locations, that are spread right across the North East of England, Cumbria and the Scottish borders. We deliver these services whilst providing excellent customer service. A priority for the branch network is maintaining great relationships with both existing and potential customers through maintaining regular customer engagement and being there to help them understand and address their ever changing financial needs. Role Summary This is a part-time position, 21 hours per week, Monday to Wednesday, 9am - 5pm (plus Saturday 8:45am-12:00pm, to be worked as overtime on a rota basis). You will consistently adopt a proactive and positive approach with our customers, in order to achieve the required business result. You will also understand how best to help customers by applying the branch understanding needs process, suggesting options customers may consider and identifying leads for the relevant advice specialists. You will be responsible for till operation, cash management, branch administration, servicing, balancing and cash replenishment. You will efficiently complete all administration in relation to customer enquiries, leads and sales, utilising the Societies customer management systems. Skills and Experience As a Customer Adviser, you will be working as part of an already successful team that provides 1st class, market leading customer service. You will possess great communication skills that will result in high levels of customer satisfaction and customer advocacy for use of our products and services. A proven ability to work as part of a team and deliver the high standards we require is essential. |\n", "\n" ], "text/plain": [ " Title \n", "199 Branch Customer Adviser - Hexham (Part Time)\n", " Description \n", "199 The Society’s branch network represents the face of Newcastle Building Society on the high street in our Heartland the North East of England. The main purpose of the branches is the provision of savings and mortgage accounts underpinned by solid Financial Advice for those who live in and around our branch locations, that are spread right across the North East of England, Cumbria and the Scottish borders. We deliver these services whilst providing excellent customer service. A priority for the branch network is maintaining great relationships with both existing and potential customers through maintaining regular customer engagement and being there to help them understand and address their ever changing financial needs. Role Summary This is a part-time position, 21 hours per week, Monday to Wednesday, 9am - 5pm (plus Saturday 8:45am-12:00pm, to be worked as overtime on a rota basis). You will consistently adopt a proactive and positive approach with our customers, in order to achieve the required business result. You will also understand how best to help customers by applying the branch understanding needs process, suggesting options customers may consider and identifying leads for the relevant advice specialists. You will be responsible for till operation, cash management, branch administration, servicing, balancing and cash replenishment. You will efficiently complete all administration in relation to customer enquiries, leads and sales, utilising the Societies customer management systems. Skills and Experience As a Customer Adviser, you will be working as part of an already successful team that provides 1st class, market leading customer service. You will possess great communication skills that will result in high levels of customer satisfaction and customer advocacy for use of our products and services. A proven ability to work as part of a team and deliver the high standards we require is essential. " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "#identify documents where the word \"heartland\" has been used\n", "wntword<-which(processed$vocab==\"heartland\")\n", "filterdocs<-lapply(processed$documents, function(ch) grep(wntword, ch))\n", "indexList<-filterdocs[sapply(filterdocs, function(x) length(x) > 0)]\n", "DF[as.numeric(names(indexList)),2:3]" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "As mentioned above, with regards to the number of topics we should focus at least initially on the 5-50 range. stm allows to run some preliminary diagnostics in order to assess the models, in particular with the function searchK which performs a number of tests, like held-out likelihood, residual analysis, average exclusivity and semantic coherence. The results then can be easily plotted just calling plot on the resulting searchK object. Those preferring to work with quanteda or sparse matrices can have a look at this post by Julia Silge.\n", "\n", "Here we will run a test on 5,10,15, 20 and 50 topics (note that the held-out is re-computed randomly with each run, so even with the same seed the results might be different)." ] }, { "cell_type": "code", "execution_count": 3, "metadata": {}, "outputs": [], "source": [ "storage1<-searchK(docs, vocab, K = c(5,10,15,20, 50), \n", " prevalence=~ rateby, data=meta,set.seed(9999), verbose=FALSE)" ] }, { "cell_type": "code", "execution_count": 4, "metadata": {}, "outputs": [ { "name": "stdout", "output_type": "stream", "text": [ " K exclus semcoh heldout residual bound lbound em.its\n", "1 5 8.420103 -34.18562 -6.610060 1.709334 -445128.2 -445123.4 80\n", "2 10 8.984677 -40.22166 -6.524543 1.498724 -432460.5 -432445.4 95\n", "3 15 9.191316 -45.02971 -6.498164 1.451809 -425034.6 -425006.7 131\n", "4 20 9.320732 -50.82168 -6.523601 1.427977 -419447.1 -419404.8 78\n", "5 50 9.558343 -61.14846 -6.649663 2.512571 -397968.2 -397819.7 84\n" ] }, { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAtAAAALQCAMAAACOibeuAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2diYKjKhBFydrpSSf+/99OxA0UBRGoonLPe9OdBamyPDGIaaMa\nAAShqBMAICUQGogCQgNRQGggCggNRAGhgSggNBAFhAaigNBAFBAaiAJCA1FAaCCKuoRWHZfH\ncO9Yd7fVXs5KvfSNl1LnWQbh/W82/jwZuhr7V/R+Uuo2LT2QMgRT6lqNccuc383hjfA8qWat\nlx+lfvWNX6V+ZhmER/ApdArscveK3toaQWj+TJvmmqSz1ec+O+aLvnEZdtUBC+2KoNflEdbl\nbtuUmXWQ0GKoax27bfJ+fH4/E3W2wmfM0b4JvGcjjsRCn8K6jBH6YA/VUtd6DtvlY/R9uPfX\nvr9eOr8/Q8fbWz/c/vjcO3fD1OdlbPK8tu/Gf8OOa+zz37V7uKcfc/QjjimGuUj/6xPmdH9b\nfU/pvm+fJ/XNbnxxGs1q32b0LnrRZb/Yo/m7qNM/ux8zXvuyPvfvJNZaLnfHxt2pFu1+/KYr\n6ajCfF1qoU6huxGBvvfs303bTXTRw+tBCn1PK3PvmrRq/o7NbaH7JuMGfHZjjovu2IixFPqk\nnzq9zb6ndPWzF93/s+v2Pj350pa7hNaLXXVv/6x+zHjdw+Pga1rLLaGNWpjdzquwWJdaqFNo\nQ4Jzuyf91VtF/3xfRqHf7Qb6jBj+2tvt439ah1er1dl26F/ffNrddbvSbsdqxFjY99Nu9Ic2\nxOh7zPKiXxSPweT7pEi79H18o5kJfWsz+vz8HTId+jHjdQ+/+/7MtZzpbDwwa/VZ6Yt+L5pX\nYbEutVC90Mb967g71Q/8DY/fhsdvxmSZ7dBVN39fp7fYe7tv/DftUM2Y5pKXXvyL1fe4xHPY\n2Z/1S+Nk2d4O0d9OoV/GT7sfO56xA52t5UrhZq2629dlFRbrUgsChH4/bheXFOPt03D7pLfZ\nR4Z/Rmfz10aP3ua3QRk7xmzJ4R3e6NtKV/969C+Qh/Vku4teyd34uRLPTtpcy3WhHa0W69Wy\nWJdaqFPolzFmuM438Obt5nFWyhw2rgndbvr3cCg3i7EimNG3la7+9e5fIG/rybcOkkTozdWx\n9wRrNTIXm69LLdQp9GN6Y/0MDS6/a1Is99AfXj+n6V12XeibPirTZyfmMdaXHPq20u1+3bS7\n0/x59+iPuu8Wel6NjrR76MW61EKVQv87zWccVP+Wb46hxwXMcaPmtWjSLWqOofVRmZ5jWLrV\n3e96mZ95ednGjYPUtr9r35+5Lie16NIl9NiPEc/2L80Y2qrCa9EPf+pKeHy/ncYM2u1uLzeb\n5WiGJk/jyP7cNv9bneU4z4PpW0aMQeL7EOindaOTwuh77GGcRujUPVndt78eatGlS+ixHyOe\nrdszaJbjGTLLcXasSy1UKvT0WY4ffV/PMnXz0Euhh+nVdsLir+/g2X3g4TZrYk679s83Vgzd\n+tHloG+/z92TL6vvMd1p/lj3YnwuxHi1zLp0CT32Y8SbaWus5brQs1azA4qpCot1qYUqhbY+\nbfdozwe+O/fuyjVr8Nn1XMZD9tft1J8Be13N/VzbxD4x1o45+hHCFKOPeW5P1vVL/nysuL3s\nvsd0x1Nx3Ru4MToZHHssunQJbfQzxptrO63lhtCzVsMJyEUV5utSC3UJHQTX98k3t0mDhfYS\nkLRKSo8MH+bJEE7cho+kcgFCM+enH5Gc3v62xdFDZOokbCA0d37bEyDnO0efP8d+pxuzxCA0\nANyB0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQGooDQQBQQGogCQgNRQGggCggNRAGhgSgg\nNBAFhAaigNBAFBAaiAJCA1FAaCAKCA1EAaGBKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQB\noYEoIDQQBYQGooDQQBQQGogCQgNRQGggCggNRAGhgSggNBAFhAaiKCj0+MWl828wNe/Pnvu7\nn9vvhv1zdHfb6MD9HanTUzu+Q7Xir1sdvin69tps47y91Y41vIUevr1b/cw7e56MdhDayVA8\ndVo3GkIfCLVb6Me4SdRjrTNXh1tCbzy/nXV9TNW7+Rs3EHp3qL1Cvz93rs/PuKP9TvrZF79D\naD996r+hqwChd4aaCX0/qdP9bd2/vc3CfQYc1+7WVQ86+ufaX92OZ9HzcLt74NK919pxxh8/\nJ3X+pxd5XpS6PJvF7UVClTGkPvweC9E8213E7a9x1N4o8mdXclN9Obr703JsoRP61A3v3pN+\n7V3Tn88jg2afsu4W+rP4axln+KHDqd9Pg7sxTDdvLxOqjGkPfW5/T4X47UciT0ftTaGfs3bG\ncmwpK/SI3v0+20HysOf93Ly8dWXNBaybZq1Xhxzjs5+dSbsDnscZhX7rkJ+9UHv7/Qn8Z992\nJFQZU7nbIxCjEKf2pf7Uni9qbxb53L7gf6edibEcW8iEvujCTcXqdsfPZELfu93vIs7wY3y/\nvQ2Bb/ZtR0KVMVb70t6zC/GY2tirahbZaDL8mB+cs4NMaPvmwlbVjSuMZXcKrbodtDuO2dNp\nuH2yby+3bG30K356mvfa1blqy4fyOAvb/3o/bsaO21iOLWRj6AChN8bQQUKf+/vbQofcrhOd\n+r3fQZuFaB5nrWbjW+2rXTtjObZQCm094RD6Z6zdZT7L4Rf6797top1xvmYP3ehh1GO6N/D6\nOek5pE2h2xfDrzX5MS7HFjKh+zmI8f51OWRtS9nOGbVTaWqcDXmFCa0P8JplnMVWWxtDOxKq\njD71k57ZMAuhMep4XYyhzSLP6v3iXREyoX9aa57TXuJ3mGAwMhrPfHcTaZ8n78374hTaMa64\n6iO/eZyF0E9jZsO87UqoLvrUH23ZrEKcW4H/plkOc1XNIp/advepYsZybCET+q2HY/rUR/eE\na9rX/ixHdyb8POxXpxO6bqH/9Mabx1kIPcw9txvdui1lHrqbbTML8ddXyzUPbRa5K79efKjo\nsBxbyIT+lOtTNf1BsP7+vb0788f+tN3nmOR078Z0r6sxlHML3e+iZ3GWQjf/LtOxu3nblVBN\nDKk/+lKNhWhet9PsTOG0qkaRm8dJnR/vdtfR3Z+WY0u1WwsAFxAaiAJCA1FAaCAKCA1EAaGB\nKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQGooDQQBQQGogCQgNRQGggCggN\nRAGhgSggNBAFhAaigNBAFBAaiAJCA1FAaCAKCA1EAaGBKCA0EAWV0Io9RIUJhLo6fqgK82Vx\ng2GeIPP0vk8sbJBjME/v+8QKi0v3zsXdGL7p9duMt1hEcVVowwzwNUbDNj3VfOd2C4mrgltm\ngK0xHVzTG7cZZ7Go4irKynA1podreop4s7GOq/r/SOBqTA/X9NQw3uAs1tT46DTjzuU/rb5u\nPjMQtukpVdkYOtHANlDo75ugD4RteqqyWQ41+501LmVl2BrTwTU9tbhBlcDO9iWExizHOlzT\ng9D5Q8XB1Zgepukpxy2qDHYtUGIMTftiZ2rMAM/0lPMmVQqhSyQ5UvP3QPxi52nMCM/0qhS6\nUFy1crsUPI0ZYZke9TZjHVet3ikDS2MmOKZHvcki45YZcqiNe0XgaIwBx/TqFLrQQaHavFsA\njsYYMEyPfB8UFbfQtN3i6eL1YWiMCb/0yHdBcXHLCO14tnSB+BljwS89CL3vWQjd7P5wV0nm\nCdUidJExtPPJwhViZ4wNt/Tox4jRcQvMcrifLFsibsbM4JZexULnj7vyHIQ2YJbeMh2OYhHF\nXX2qaK7MjJnDKz0GxzzxcbMPOdafKlkkXsYs4JVezUJnPyiMUj09vIxZwCo9VzK1CJ192m77\naLHcfBUrY5ZwSo/DpFR03LxC+4Qd/gKzAJyMccApPQi9trxqtv/Ke/wb+QJwMsYBo/Q4TLIe\niJtxDN3Zuj2GLraLZmSMCz7psZhkPRI33yyH11ev8QnhY4wTPulVL3S+uP4dcLkRByNjnLBJ\nby0RTmKRxfVf+avcNAcbY9xwSY/HWbAjcRN92mt1liN20dRwMWYFLulVL3SqPI8cGhepFRdj\nVmCSHo+zukfichC6SLGYGLMGj/SYnNU9EpeF0CWqxcOYVXik9y1C93PVWyNiCL0dfSgdt0kE\nC9+EFAWRJ1YC2kw/grsJTyZ/uUiN0dOTmwXkIPT2pxRKZXEkbugFz43p4l0bZEcy2etFaYxR\nOwi9kyxxCwidvWAMhN46zcRAaM8Zg0JZFIlbQujcFeMg9MZ5JnqhPRnIEloNWyLXGHpv4/2Q\nj6G7GxB6J3sdCr0uRNdi3yzHzhrkLVmu3rvjPW/5fGmQCx28BoXhFJdqTrxk58r4d7QfSrzx\nOYlFFTfLFGIsEPpYfE5iJep094mV/blkrBqEPha+CqH3zENHnFiB0L40uFzbLiB6FULv6XT/\ntF1MKvnKlu2g0HO0HNpNglSyRofQcalkqxv1INUDj1nFg21yEPE2r7x/1ldQ6KzTa4xhcd7n\ncKMMxMwsKN9icSdWIkuQcbBLB+tP24kSOvSgJuLEinyhQw+q+7MvW2kQCh0WWprQ++NG95in\ndAx2gVt1pksvMDKEju8x41w6DWr6DaF3kmUMvb7wxlvugQpkGR5k6FP3GzqP391gJ3TcBHo5\nomY5dkzrh2+QIxXIUL18Q/OAN7jJaG5CB8dln2D2uF8ldLjRvgaFgdChcY8lkn41Mk6e5DkG\nKcLxt+bcxBwUxiznjXuww+T1g9DHotYidP+G6XvH7CZS93zajtsWznZQCKGzEnFQGLDQuMlW\nWyYXOnUFs20Q1YRdws/bS3n2BK1HaO/u2doFBR/UcNvElPPQAVCktytmRULv2EGHC51g/dOW\nEEIfi1mT0N6FaIROW8NcB4VZL0eclX0hqxB634drNrvPIXTSIubdINwGWOkjViH0jm592mcR\nOuXaZN4g9e2hv1vo3XEhdNnlswfkIhZR3FRppFsdCH0sHhOxvI33HNRstckkNMOO8nQPoQni\nUgjNcF9vd5voKgSFfYk6/0aCOKFTdYV56GPRahM67ZCD4XwbhD4WDUIng92EydRnuisfFfUl\ny+nkTOQUOnx5hmetc20QdaR3mkuBZTmbnAuJQvM7j77stqY9NITevXzqtU/QH4Q+FuqrhU6+\n8hA6HbGjo7RZ5Imb66Am/cof75HlGHreTQkkC50rboYk+BqT5pCu2HajeguPhUXcLFNkxMtn\nBkJzjpsliYOdQuhjcViIRRQ3Tw4QmjQMB7Go4maeUKBYerXPys4UQuiYuHknFCgWzk+Z9A5E\n4SAWVdx8EwpEyxagSHo11m9v3BwnBvKte4V7mEAgdKK4GYTOuOoMhW77reQD/lUO2RicKcy5\n6uwOapTx72g/meF3UJ0jbqo8CwnNbh4VQmeGQdy8KTA701WP0JXO4+/eQ9c15IDQVAFqEfrY\nYq4Ocq851Rqu9Rv0Xd/DBbbXG6TMKUeAyoROuL5MNw3ptF17SnF7R850N5Cwg8JxKxI6LgKl\n0GpKYC2NzOkd7x5CZyQmRL7Tl2r92wfN2BC6aFwIHYka/vfFphQ6Qe+1CJ38UlZFVjwiCOks\nB/EYOkXntQidPG6ZBPZHoZ22o53lgNAH4hZKYHeYL56HTtI3uVhUcUslsHtslSWLsDF0WDe5\nSNM1uVih7RNdh+prheb/V99fJbSKWmojbrn1jltTauw0SlzbLlHPdQidbr9aXujYVeVJvjcQ\nZv1kjaucN/d0sNjDlFzv2HXlCIROEfew0Mvli673nmB5EhtfyVxnOZL1C6ELQC70OGHHdZYj\nXbdfKnTh1d4RLkdmw9lsvrMcXyZ0+oPC0qsdHi+j0F6fA/52M9OIiGVXOeOmnrYrvtrBAXPu\noRMEzzYi4thXzriJT6yUX+3QiKRC+9tAaI5xy373jRE4Ybv9sYN69o5K9I+09ePbWSVxVeP9\nqHumyOmaRYRO0rMy/iUi7RrXJHSKXJXxf2HCImYROumFehK+PBL3lL63vHErFzrNez4x6euX\neIW/U+hEnUUET9KGEDWN2pJ1mJQvFDr1GHBf8BRtCOlrl+6oEEIniEsxyzFFP9yEkqF+XHfQ\nVQldc9zg8DUI3SRLM/3aViFWri/eJIDmzEU61OJGmu6SUYXQ0wKH0yX3JejMBV+U41aK3pJR\ni9Cp3urIfYHQrs7SAaFL48mAPsFNlPPm8c6SAaGLs50CgwS3SCl0llWtRWgxY+jGkwOHBDdQ\nK7cPdpWOaoTmf12JcLaSYJHgOhAacZcIEfpYrplW9NvE4uHLRhY8ElxFbdw70FE6vk0sJr6s\np8EkwTUgdIq4gs4UDqzmwSVBi9X6R2ebbTWrEFpA3AVribBJ0E0iofOt5beJxcYXGULHpguh\nm5AvvckSNxcrmfBJ0Mkivah8M65kNUKr4f/CcfPhToVRgi6SCJ1zHWsRWhn/SsbNiTMXTgk6\nWKYXkTCEDhS6Pz1O+tW+e3AlwyrBJSmEzrqK8oSefqSImxURQkdtynzUInTQGNowvo5JhAR6\nFAZCJ4sbcFqlOqHTDElLcvxNJfMK1iN0YKd1CZ1oGqwchw9kc6+fLKHHqeo6xtAtic5UlMIt\n9I6PJEDonf2q7UNHdr7IEDo47+yrV4XQAj+cNKE273LDPYYOPkOQf+2qEDpyiXy9JEVt3GPH\nykFh6McSIPS+JbrxRjUnVnrU6h1+rM5yBL13Flg5YUIP7eo5KGxRK7cZsjrLEfIdWyXWTZTQ\nFU7baWoXerj6Zch5gtxAaA4o500yNnLwKTuYffwETCQQmgXKcYuOeKGb8fiQ6hyoKKFrHUM3\nRl6UCSb64k3l3gQQemocPA/tbcVV6HFuhjRBz9vb9lNGm8U2SHiJdG9wGr4trhdl/CPMwvei\nCp+cM/csKnBaLwHfJhZXoceBJ3WCntPYwadPBpUHrUt9NeR3iJXu1HkulPE/eSpHhZ7PcnR1\nh9A5+qf3xY0afjJIcOtVH5WeMn7mRqrQ3OJ64TGG9hKXXsEV+zax+PrCYZbDT2R65cZ63yYW\nc1/YJGinwf8YZESWWHV+2s6CeYLM0xMn9NDz+plC9mQpTDKoq+OHqjC5OvWf7Fpbkn0DxnAo\nD/EpqVydQmgKOJQHQs+WZN+AMRzKI1DogDH0xoLsG2QnfijKoTwShfZ/2m5tuRoa5Cc6BQ7l\nESl0LBzqzaEksTlwKA+ENuBQbxYliT0TWEODrOSMHtE3h3qzEDoSDuWB0HsW4dCAMRzKA6H3\nLMKhAWM4lAdCA5AMCA1EAemAKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQG\nooDQQBSMhB7+TnzlLxHHP1HcaLDdgy/E9GeQdNdJOQDqp0NTBV4wlLtxJ2X9IXlUg6AQmw1Y\ng/rZSVCjpmq6shof32ygmvUG3hDjQ+s9MAb1s5OgRjWealmt1hoc2iDKvsGlMmGgfvMs6Dm+\nQbw7kO0NMo4AN3NgC+pHGNaFvxieHYinnN4N4g/BGtSPMKyLoxvE02B87ti7Ml9QP8KwLrzV\nOlROZf9gu0HiQf0Iw7rwVUstfjrbrG2Q8Wp7vDdIPKgfYVgXng2izF8rIzhfOf1jQPINEg/q\nRxjWxVSHje2x2kBZY7yNMeJ2CF8PjEH9hthMGHYhztOmyn9e9fCp25AeGIP66dBUgQHIAYQG\nooDQQBQQGogCQgNRQGggCggNRAGhgSggNBAFhAaigNBAFBAaiAJCA1FAaCAKCA1EAaGBKCA0\nEAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQGooDQQBQQGoiCTmg1+73awNtRf01M\nZVyQcEdX5qUyq7rsKAroglBo64LFrgaB/exfZLG459rJPEEBXVDuoT2rX3x7+ARhBgrogoXQ\nxo3uSw/6q2/PrzeszAsPT1c7Vkaf7vbKfNSxiLIWTrSCuUEBXZCOoZX5W9/Q20GZd/pnmvGZ\naXG7jMZtq/2yF3MpZS1g9cIdFNAFqdDDP3tPs9xK9o1x6Xkd7Xe++YKuXuYqmI+xBwV08W1C\nNyvbQ6014AsK6IJW6L4Mvu1hf6HYtHTc9rCGgH2TKXBDuz12gAK6IBbafGl7djBNsu1hdqUW\nP+sSGgWcUY/QaXYw85pbj9q/uIMCuqAWuhnfCdVieyjjjrP01vuc2efwT80bLpbitj12gAK6\nIBe6L5ya9jTTDmY5jWour6xa2n3GTKPO73AHBXRRy9aLImTllm1El2QfFRZQ9NarcHvwosIC\nit56QSs3byS6IjupsIDYfEAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQGooDQQBQQGogCQgNR\nQGggCggNRAGhgSggNBAFhAaigNBAFBAaiAJCA1FAaCAKCA1EAaGBKCA0EAWEBqKA0EAUEBqI\nAkIDUUBoIAoIDUQBoYEoIDQQBYQGooDQQBTFhH5clFLXf9HL39of5pfVWPy7KXW6/c0fXm0v\nkaMr23895+n2Khw4KaVSufTlusct/jx136+0Urr7Su+sSp2bREJ/lN5pNKsqF0rld6xW3D56\nu2Y/a72zKnVukgmtbmUDJ6VQKhe993xflbpELb9Zs9fn2UfT/H2CnHcsJo0EQre/fnf3w6rK\nhVLp1/nd/76f1On+7h5/39Tp0dp40rvXv89oWF2e/TKfhufHsPMYu/n3eWEYA+affqzxOv/o\nN8vnpe9Bt//5dNHtuM2oz7N+aZkPDcHsAGML9thejUU4q6v+efr8vOpXvKMO5vLDb7uMwy+7\nUJ9bt/c3Cv2pzfU53jt1Q7W3Lo++cx0GDM/+Xe+pn+tG3o+Z0P2I+c/o3Bz19U//NEYXv46o\n19lDQzArwNSCPZZXUxF+2odb6V5tkx9nHczlH/2Qwy7j2MAqlL51+kahO0+vv1qMn9bXh66V\nHrD90z9/9YDh3Lr3q0cmbenebV3Pdkn/9Y+Pgxe7oH/t0++L9rHr4qG7s6N+HnjPHxqCGQGM\nFuwxy2AU4dn++Kd3F3/t2jjqMC7foQ8KZ2UcA5iFeujbl28UuvnX7ReG13UbuZf2Zfwcs+pL\n92fcHh+/6sff1z+r9chN796fej9jdmFH1W8X9kN/jgBGC/aYZTCLcPq42+5u7x8BT846jMt3\nXN/NooxjgFlJuzZfKPRnt3s79W/+Y+WGUpk/m/fjdllI7LhtrIP1wGloelosZkd1PTQPYLRg\nj5mlWYTbx93PQPqzS730ds7rMC5v7KI3yui8zYWiqbQHfGeP0Nctx9xCX4zx9OZi3yO0uTqf\n4cZnCP0ZQrz0UcqW0Pr3jx5Wh0j8xUJ/Xu96qOYQxv75eW+8/L73CX3vZzn+9CyHZ9cyRXU9\ntNayBtb20J9q3j/7kfPnp3pvrN14T9/AHnqTmz58aNU7WbMSC6EXN51j6Kc1hv7sfPQ89FkP\nDNcGf4uorofmAWYTKKwxvTKLoI/a7noYfWmcdbDvPfqByryMr5Ut8ZVj6L/xje6h39NubRmu\nDqFPbY3um0IPkxDTSZT72HtXX+fh+SKq66F5AKMFe8YiKLsI+kTqPz3R8dM46zBfvn3DM3vQ\np8XeyyOb36HN9wk9Otea8T7rm6eXQ+juLPap3YuYpWvPtoy7ivso78Bt2hDj0/fGrv4iquuh\neQCjBXtMoc0i6F3ra5iKdtVhvryedjd6eOhb54XQXzwP/XnF6zOAv92dn09x9Ie6FkI3j/Ys\n1LvV1yzd62ruUv5drDOFTXdqb/y0Xfv05d+47PhrFtX10DLA2II9ltBGEdq3vfY0YXeysHHW\nwVz+3J8YNXp4nNtzi0uhW+tvr+8UGoASQGggCggNRAGhgSggNBAFhAaigNBAFBAaiAJCA1FA\naCAKCA1EAaGBKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQGooDQQBQQGogC\nQgNRQGggCggNRAGhgSggNBAFhAaigNBAFFRCK/YQFSYQ6ur4oSrMl8UNhnmCzNP7PrGwQY7B\nPL3vE4vf94HN4JuZhm96/UatR+g24ePZKuMfS9gm1sE2PeoNuzuuGv4/HFfFJVAIrnn1cE1v\n3Ki1CJ3qBaiSvTQywTWvHq7pkW9XWqGbFKOXPHDNq4dret0I+juF1qvNdcOwNaaHa3oqlSDR\nCUQskGgM3Z0dONpRLtgm1sEzPfObOalS2L9EEg3V7Dc72CbWwTI9tXKbKocC0ZZnRllumYZv\nXj0M07N3c98htCMuwy2j4ZpXD7/01ObdYkQMOaKWWo/Lb9NoWKZF/9mfVeYJVSN0otMhEPoY\nzNJbvsBqETrVwZxy3mQEbVbe/TCvojmygdDMIM3Kf4TBqWjO190XC81q44xQJhXwamdUM3cq\ntQidfgzNauNMQOgw1oZF1Qid+MRKZBL5gdBBsBsTsYjLZeuYYAwdAMOjVh5xeWweC8xy+NlK\ngodYIQukmdiH0MdgkN62A7UInSpPJidK1+GXkQV9ep4MIDQzMOTYxpfAlwtNv4Hm4KBwC/+Q\nE0IzA9N2GwREr0XowAX2v2VyMxpCrxI0I1CL0GEfX4x4y4TQztgMhQ7cpWXOomjcqA3CzGiM\noVcCB0aG0BDajM51liM4LvsEpyX8lwKLe8vkZTSvbBbQpLfjfFo1Qqvh/6Be97xl8lKIVzYL\nSNLbE7QWoZXxb6tZzFsmK4cw5FiE3BVTmNBRccULHXyBe44HhTsjQugEnaYkVy4qoHeO03ZU\nZ+D2kmcM7e/cLTSjP8/PlIia/fbFZiL0/u1SjdB7/mJlv9B89tIQ+li0eoQO6XRtrLg9hlRJ\nBjOJoBSa2Rg66m2zFqF3jTV27qH3jGayQzmG5jXLERdKltCN95Kqa7McbK6Ani2NDH9knJPY\nXIUJ7R0Pr81ysDkq5JLHCqXSi45Ti9A7Ftjc2bqfYjTNgRMrzaHdSy1C77n65VYjFkc7W2Qb\nQ1d0YuVIkFqEzh+XidGZZzlCG+2ZJUrMsRj8xMrbd8zOuygshd7ZzyEORqhH6ICPjwb0Dd+X\nOqUAAAu7SURBVKHDGpEJfTRANULvmCyOFJqH0ZRC04+hjw9pahFaGf+O9P2tQocaTTvLkaB3\nCB36ZCFy7aGzXEotLUmOOCUKHR+XgdEMUtgiY3ppuq5F6FQfuIDQx8h4Zj5RP2m6KRC3yGcR\n6HX60iFHsn7rEbpIXLFCB/Ue8KdaedJLeL6GqVhkccmNzj0vdjB4lvRSdspVrOUCZd4yv1to\nf/QM6aU9nV6L0KnypNhiu6AVmuAFn7hHCJ0rUiTEQudePnuHEDpXpEgyz3Ic7idFMkZ37F8g\nueKWE5rYaOohj4e06eUYkafvMk/ccvPuEHojh6QTEjnWtQqhgy9llSYuqVMZT8Vlu65JHJmm\ntLP0WnlcSqPznorjc2Il19++sBaLKi7l38xm3s5BJ1YK7KHzvRHl6jh53ILXlaC8NBip0HHX\nNYnIJl91q9luIW+ZieKSXhqMVmjvizlJejlLW4vQwRvEvfSug0o1/E8B5Rh6aJlX6LzDue8Q\nel/cbv8sTOgdQ7ao65qE53G4B8ruk8UtKbTeP9dSmMJwO9VYvP9kcQuOoUmnORgIvZXCwfTy\nl7We7Vb46pn1FCaoVz2MCh1yRD53rOdEyNpuKeNKGkOrwebD55Ui09PRi7zr8ReLKq4goY3J\n5dCD4pjntpcqNIjjL5bZvOgxNk1pJAq9Z7xzlDqEVosbBeJ+rdDeriIWKjaxX4XQynkze1yS\n2sgUOnj8fhgInaZtMlgKffTju+V8htDJGieCpdCzrvYvVG5eH0KnapyILEKX/QOJFMtEA6HT\ntU4CgzOFW0SkV3aNqhCaZpYjRbj9iBO68ArVITTJPHSagHuRJnTp9alE6CZwAJj6CvQQesbu\n7ZYlC04Bs8b1D02wQY6BHULJuAEHj3jLPAaELhkXQmfvFgfVJePmEFrIUTqJ0FLm8eniph9D\nQ+j4fsR8dIAwbo7v2ZNxYiBRvzu6oVFLmNA54ooQuuypbxX8NdbJqUesNJ/YwmcRjhGUXppN\nFUc1cUM+LNa3STzkgNAGIel1PmMPHdR+czll/0gRN36hSLLFSjMMCBRakZklTmjnpz4OfnxS\ngtCJLAsTmnDM8R1Cx8c9shSnUKppkmgWNoam20HXEzd0DJ1H6Or/4qKw0OKur50hbsCAYRom\nph1Dl9zlCBCa9Li2HqED+/VcIChyDF1uUChiDE2INKGzxC152J5zlqPMtQFpJx6rEosqrt4/\nC7/yTyD+9IhXoAqxVLPr1O1Wm/hZjkJG1y40df5VCJ2w78i4/dC8QLVyHRQm6hdCE8TNIHSi\nxSkjlBlDU/tcjdBBJ1YC2hyetspdsLz95/60HbnPEHo3mZXO2HuBPTSEDmtMeymrZToJOlnt\nPFvHSXr2n6olpgqhI9rn7SfnbjRTtyUOChn4XI3QzOLm20mz3EMHvkNC6D0L8BlydB1l/NBF\nJnKPoTn4XI3QvIYcqbvK3uvYe8YdAgufIfSRvnIUj3Ye+sBfzfPwGUIf6y19+UgPCtXixmqL\nHc8UBUIf7C95h4n7i4y9lob7ccpP9M+oRehk0xNpusnXI+WQI1ZoVeZjLkHUIjSnEyvzLpP2\nmWuDqIDeI4VW+h8To2sRmnXclEpnng0MNHrXGFoN/3NAlFh0cdMpTSp03CwHhI6Jy3fIkbZj\nWqGD+7Ef5ONzNUKrYahWOO6OntN0TTmGDu5m8SibY8LahM6zh0lEkq1a44kVNjY3VQmdZBfN\n/MwysRyRJ1YgdGmh032e2huJvIM0sfdO27GhFqFTDaKzr+/Rl0zmBDe7h9Al46okxx4F1vdY\nkhD6GPUIXVHcQ5+lT5fG/u6jxtCsfJYtFl3c+DCkQkfNckDob4gbvZOmFTpieV4+1yMW9zOF\ny0iREzKJ00jcPYROFJf5meV0sXIkGH4ZiP1DDmY+Q+icxOykazuxAqHj4lYpdIzStZ1YgdCR\ncRMlWnx99ypdmdDcfK5I6NoOCiNDQuhj1CJ0pUOOLuaeoHWNodn5DKGLsENpWkX2znJA6Ni4\ndQu9Q2l+iliojXssqEXoag8K90Zm6IgJhE4Ul/FlDIJDB8WuasgBoXPHPXBttgKEKF3TQSFD\nn4UJHXGmqywBf9VXIg1/7Nme2H3qHEIfiauU9+o8MWe6SuNLgKXQ7sfJa+miGqHV8H9Yp2yF\n9u2kIfQxahFaGf9COuUrtEfpisbQHGq5QJTQ/MfQPVyPWncdVPMo5RxZQjOf5TBg/opbBUKn\nihsyhs4RNxdrLzo2CbpRjlusqEboQt9VXRD32nBIcCMHCF00rnakiiGHxpUMhwRDhOaQpwth\nQg89VzJEdbzySKft/H97CKHTxO0sDfmOEOXqv9y17faySIjDtB320Lnjjntd/6ydZ5vw2w4z\npamn7Tw5qNlvdlQhtJp+ek+sVCf0LCfqBD1X44fQKeKGCl3dGLpnOJbVt4lzaTPwCc1v5DZR\nj9CG1RstazmxMqNLOeDMUQm2dO1T5Gu0MKHTxi3IaDTXBHuU8T9LIDQPWImyvYfmk6eLKoSe\nChi02FYj3tuBiSheobfbkFKH0MN0UthSNQo9jp8rOLFCneYmlQidrG+2G4LFLEfgiRXMcpSN\nW6fQPZWcWGELhGYGdYKBJ1bYIlHozbjsISqMUaJNodlTrlB2YYjiruBNh0ODUkRIwaE8xIM1\n0ugLONSbWUl2waE8ENqAQ73ZlCQiEQ7lgdAGHOrNpiQQOgI2W6+DQ73ZlARCR8Bm63VwqDeb\nkkDoCNhsvQ4O9WZTEggdAZut18Gh3sxKsgsO5YHQBhzqzawku+BQHghtwKHezEqyCw7lgdAA\nJANCA1FAaCAKCA1EAaGBKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBSOh+1TW\nrlEyXrxko8F2D74Q0wVS6K6TcgDUT4emCrxgKHfjTmp8PLpBUIjNBqxB/ewkqFFTNV1ZjY9v\nNlDNegNviPGh9R4Yg/rZSVCjGk+1rFZrDQ5tEGXf4FKZMFC/eRb0HN8g3h3I9gYZR4CbObAF\n9SMM68JfDM8OxFNO7wbxh2AN6kcY1sXRDeJpMD537F2ZL6gfYVgX3modKqeyf7DdIPGgfoRh\nXfiqpRY/nW3WNsh4HW7eGyQe1I8wrAvPBlHmr5URnK+c/jEg+QaJB/UjDOtiqsPG9lhtMH6n\n8WoPQSF8PTAG9RtiM2HYhThPmyr/edXDp25DemAM6qdDUwUGIAcQGogCQgNRQGggCggNRAGh\ngSggNBAFhAaigNBAFBAaiAJCA1FAaCAKCA1EAaGBKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoI\nDUQBoYEoIDQQBYQGooDQQBQQGogCQgNRQGggCjqh1ez3agNvR/01MZVxQcIdXZmXyqzqsqMo\noAtCoa0LFrsaBPazf5HF4p5rJ/MEBXRBuYf2rH7x7eEThBkooAsWQhs3ui896K++Pb/esDIv\nPDxd7VgZfbrbK/NRxyLKWjjRCuYGBXRBOoZW5m99Q28HZd7pn2nGZ6bF7TIat632y17MpZS1\ngNULd1BAF6RCD//sPc1yK9k3xqXndbTf+eYLunqZq2A+xh4U0MW3Cd2sbA+11oAvKKALWqH7\nMvi2h/2FYtPScdvDGgL2TabADe322AEK6IJYaPOl7dnBNMm2h9mVWvysS2gUcEY9QqfZwcxr\nbj1q/+IOCuiCWuhmfCdUi+2hjDvO0lvvc2afwz81b7hYitv22AEK6IJc6L5watrTTDuY5TSq\nubyyamn3GTONOr/DHRTQRS1bL4qQlVu2EV2SfVRYQNFbr8LtwYsKCyh66wWt3LyR6IrspMIC\nYvMBUUBoIAoIDUQBoYEoIDQQBYQGooDQQBQQGogCQgNRQGggCggNRAGhgSggNBAFhAaigNBA\nFBAaiAJCA1FAaCAKCA1EAaGBKCA0EAWEBqKA0EAUEBqIAkIDUUBoIAoIDUQBoYEoIDQQBYQG\nooDQQBQQGogCQgNRQGggCggNRAGhgSggNBAFhAaigNBAFBAaiOI/n29kX7buzO8AAAAASUVO\nRK5CYII=", "text/plain": [ "Plot with title \"Diagnostic Values by Number of Topics\"" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "print(storage1$results)\n", "options(repr.plot.width=6, repr.plot.height=6)\n", "plot(storage1)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Within certain boundaries, it seems that the choice of model is a matter of trade-offs. In our case, the best results seem to be in the range 10-20. It can be helpful to compare then semantic coherence to exclusivity, as models with fewer topics have higher semantic coherence for more topics, but lower exclusivity. To check for it however we have to fit the models first, which is what we do next. We will set the initiatlization method to the default \"Spectral\", as advised by the author of the package, although alternatives are available (the vignette offers further information about the different methods of initialization). Also in this case the post of Julia Silge mentioned above presents an alternative procedure." ] }, { "cell_type": "code", "execution_count": 5, "metadata": {}, "outputs": [], "source": [ "model10Prrateby<-stm(documents=out$documents, \n", " vocab=out$vocab, prevalence =~ rateby, K=10, data=out$meta, init.type = \"Spectral\", verbose=FALSE)\n", "\n", "model15Prrateby<-stm(documents=out$documents, \n", " vocab=out$vocab, prevalence =~ rateby, K=15, data=out$meta, init.type = \"Spectral\", verbose=FALSE)\n", "\n", "model20Prrateby<-stm(documents=out$documents, \n", " vocab=out$vocab, prevalence =~ rateby, K=20, data=out$meta, init.type = \"Spectral\", verbose=FALSE)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "As mentioned above, we check first exclusivity against semantic coherence per topic per model. stm includes the function topicQuality to plot them per each model, but the visual result tends to be confusing and cannot plot multiple models together, so in this occasion we will proceed with ggplot: " ] }, { "cell_type": "code", "execution_count": 6, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAJYCAMAAAC3scXlAAAAclBMVEUAAAAAujgCujkVvkgV\nv0gXwEozMzNGyW1Iy29NTU1hnP9inf9lnv5oaGhto/1upP58fHyKtPmMjIyMtvuampqnp6ey\nsrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PDy8vL0mZP2m5X3gHj3gXn4dm3////UYs+bAAAA\nCXBIWXMAAA9hAAAPYQGoP6dpAAAgAElEQVR4nO2dC3ubOLdG8WlnOvY3SdNOb2mTTieN//9f\nPNyMAYuNgBck2eudZ+z4wvKWvIqFMDg7EpJostAFEDI3yEuSDfKSZIO8JNkgL0k2yEuSDfKS\nZIO8JNnMlPfrQ5Y9fJv5kjNfc2C5zt3Fja/7DYqpUr6UF2LZ6xBnZvXp0z4r8zDvJVeWdxJ/\nmVTl0sgbKrP6dJ99ejoeH/fZV3U5Vnzf/63l3eB1iDNz+vRb9rG8fsyKT82nT1npcvH+fMwf\nebrLPv6sbz0U9x+/f8yy/efyGT/2D/Xa8eljdd/x6SG7ezy/tz8LXL78x+zH8fijWLmfnnle\nq5aXX/bZ3dfyxs/srlz0LvuRP1J8JNT3nB7olNB+4Y8tqU68poJegxyM4qXqahpqmfNrtDrn\nc31fi190R/v2ebmP/SeTy8yR92P2vfoj1+v4sxxC7Etd83c3+3aXX3wqbn2q73+sxhjlm/2Q\nP1S94fv6vp/1EOQEL2/e1eI95AZXT/jYl/dzudTXWrHCj6d8iVre/NHHY/Gv7EsFbZfQeeGP\nzQs3vKaCXoMcjLO8TZFlmlv9zimWbvOL7mjf7nbKx/aTyWXmyNv5CPxcrBwfqvf0U65L/te3\n6i19+Fndf5d9K9ah5X3nNWj+6Ndizf0lX/7nQ4P8UjzlcyHRl+zxW3Xj0/H7SZKzvPlqKr97\nX954LLmFsKfnlKvs87+ydgmnF/7cfeGGd66g2yAXoxnzNkXWfVLfandOvsyXPv/zsXv7XFsN\nOD9ILrNY3rtirVes9Mq3v/gQP8n1o74/v3r88nAS7qxe9Ve9fNbgylcoVzp5ynt+nl/2LG8+\n7n5s7r7bl89vPaccdWTneYfLEnov3PDOFXQb5G5GA2t/tDe3ep1TP7XDv7jdwbW6g1xksbzt\ndeGxddEanT6cBga95/afV/3RjCLy9d237kPtZ+ebi9nd6c3+mq9ivxdjhOY5P/I3/LH4UK5i\nllCmxes893wxxLic4eiUfNngPmeotm53kIssGvMev/vI+ynfEHp8Usub+3mX7esCfuaafj6v\n84tH85VeNfAtYpdQp+G55R1kIG+ozOmW02zD9/2n7ifjsfN2lvc/1Hf9HDLHOWwos7+7cw8b\nmmd/be76lD2VRZ3Z+Th437BcJfReuOHddZfq+ulqRrXQ6LDh/Lod/sXtDu6uXR7pZVbnNPO8\nP7rbJMfOe11uD5Uf5d/rLSOXvPXypzo+F6RvxX35BttjsXhxz4/TMvt8ZVyx9jn1R7PRlG/d\nlB8HrdXWXWsniquEL9UWZda0qeadK+g3aKAZVSvqIptG/Gg17nO3wR3+xe0O7vwgucwseZ/u\nmmmjzmzQsStvcf/xNAk1JG9vqqy++aOaKivWQE+n2aLqzczzpfnrNMwtnnl3ZpfbaY/VqKOM\nqwTnVNmXVgW9BrmbUf/reepMaTW3ep3TbvCJf3G7gzs/SC4z82Pp8dP+9N2G9jx8d9jwUN2f\nf6ZnD9+H5C13Unw7f3o/lc9udlLkY4EfD9ULlM/JxwJfmr/2X06Q/BP/24n4tZ5kqDbeqzhK\nKHYEtHdSnHhNBb0GuRjn+bJTkVWaW93OqV+3w7+43cU1D5LLrDamyiaRsylfpvHLd+b2rz3B\n5S3Hqp/Pk1qyPDRzDeRKE1zeeij5NP7MiS/PVs7VJ7i8x6937dGiKnv2Sl1/mEckyQZ5SbJB\nXpJskJckG+QlyQZ5SbJBXpJs5sj7LIgCEk0hQFrLbhjkBSKFyA01grxApBC5oUaQF4gUIjfU\nCPICkULkhhpBXiBSiNxQI8gLRAqRG2oEeYFIIXJDjSAvEClEbqgR5AUihcgNNYK8QKQQuaFG\nkBeIFCI31AjyApFC5IYaQV4gUojcUCPIC0QKkRtqBHmBSCFyQ40gLxApRG6oEeQFIoXIDTWC\nvECkELmhRpAXiBQiN9QI8gKZBtn1rvvLbhjkBTIJstt1ry+W3TDIC2QKZFevcXesecMzgEyF\nMGxA3mQhyIu8yUKQF3mThSAv8iYLQV7kTRaCvMibLAR5kTdZCPIi77VC5IYaQV4gUojcUCPI\nC0QKkRtqBHmBSCFyQ40gLxApRG6oEeQFMhny5s2b4WU3DPICmQp58+7du0F75YYaQV4gEyGF\nu8P2yg01grxAJkKQF3mThSAv8qYLSXrMS248f/zxR+gSyrDmBSKFyA01grxApBC5oUaQF4gU\nIjfUCPICkULkhhpBXiBSiNxQI8gLRAqRG2oEeYFIIXJDjSAvEClEbqgR5AUihcgNNYK8QKQQ\nuaFGkBeIFCI31AjyApFC5IYaQV4gUojcUCPIC0QKkRtqBHmBSCFyQ40grxpyyBNHJUEgckON\nIK8YcmguQlcSBiI31AjyiiHIu12Qdw1IXPJW1Rz8xzPIu17/KBk3IG+t7ISakHe9/lEyVoBE\ntsF2eEbeVhY0TdI/SsbVr3kPtbxT/kUh73r9o2Rcu7yHes17mDDkRd4V+0fJuP7Zhvaalw22\naJyJppAU5H1G3jILmibpHyXj+vewIW8nC5om6R8l4/ohDBs6WdA0Sf8oGdcPacnLBhvypgVp\nhg3MNhRZ0DRJ/ygZ1w859K5XrkRuqBHkvXYI8nayoGmS/lEyVoDc399HUkkIiNxQI8irhtx/\n+PBhlr1xNmfyshsGecWQwt159kbZnOnLbhjkFUOQd7sgrxgSp7zTxuHIu17/KBm3MeadWBPy\nrtc/SsZNzDb87++/J9mLvOv1j5JxC5D7v+/v/0beKguaJukfJUMHmf1tMnklvdx/yOXN7UXe\nIguaJukfJUMGmf89XnUl/eQD3mLVy5i3zIKmSfpHybgNeT/8/ff/NqpEbqgR5FVCopR3+vwH\n8q7XP0rGLcg7ef4DedfrHyVDColzg21biNxQI8grhCAv8m7JUEKWuRtdc2Yuu2GQVwZZ6G5s\nzZm77IZBXhVkqbuRNWf2shsGeUWQSedTWrWSsBC5oUaQF4gUIjfUCPICkULkhhpBXiBSiNxQ\nI8gLRAqRG2oEeYFIIXJDjSCvDDL3CAp9JSEhckONIK8KMvvYNXklQSFyQ40grwgy/6hhdSVh\nIXJDjSCvCIK89bIbBnlFEJ28uzyLIYuCvOv1j5IR35h311wsgCwL8q7XP0pGfLMNyOsd5I0S\ngrw+Qd4oIcjrE+SND8IGm2eQN0oIa16fIG+UEOT1CfLGBmG2wTvIGxsEeb2DvNFB2MPmG+QF\nIoXIDTWCvECkELmhRpAXiBQiN9QI8gKRQuSGGkFeIFKI3FAjyAtECpEbagR544O8efMmkkrm\nLLthkDc6yJt3797Ntjd4c+SGGkHe2CCFu/PtDd4cuaFGkDc2CPJ6B3ljgyCvd5A3OghjXt8g\nb3wQZhs8g7xApBC5oUaQNxTkNU8clUghckONIG8gyGtzEboSLURuqBHkDQRB3uVB3pAQ5F0U\n5A0JQd5FQd5gEDbYlgZ5Q0JY8y4K8oaEIO+iIG8gCLMNy4O8gSDIuzzIGwrCHrbFMeXd7/fn\nv/bN3aH7R8kAIoasKWs/lrz7+v/zVZXQ/aNkABFD1lP1Mn7ydtwN3j9KBhAxZD1VL+Mp72nU\n8Gee9YsixCcj8u7Pa17GvFcBOSgg1rIbZmSDraUs8oohLy8v21dyuBl5j0fkXQ3y8uvXr469\nW1RyuJk1b3eDbUTew8HrH7Wif5SMYJDC3a69DBumxmOed39sz/ge3fIefDtG0D9KBvLOgVjL\nbhjVHjbknRjkXR7kDQUJMuZF3sE+Qd4pCTLbgLzOTmGDLQkI8g70CWve+CHIO9AnyBs/BHkH\n+gR5t4XsLv4I3xy5oUaQN11I80OZO+T1jrNoNti2huxOK9wda17/hO4fJSNpyO50ibzeCd0/\nSkbSEOSdntD9o2QkDdmdLvzlvb+/X6OS1rIbBnkThjTeest7/+HDh3F7kXe9/lEykoaU8lbx\ngxTuetiLvOv1j5KRNGTyPC/yDjTNazQl6R8lI2kI8k7PYL9MsBd5BZDpe9gY8w71yhR7kTcM\nhNkGV6cgL5By2Q2DvNcOqXbaT9p7f2vyMuaNFHI4f2XK296bk5fZBjuVPgdjDbhKJYdn5O1k\nQdMk/aNkbAVpKSuVt/87xUPDBuuFNZWclt0wyLsJpHWmmkGF5lRy8QvxyDuSBU2T9I+Sse2w\nofOHoJLC3a69hrxssBVZ0DRJ/ygZm8s7rJBE3ktVkbeTBU2T9I+ScWXyNkPrw4WzGx2jJTfU\nCPJuBFlF3v6YtxlaX46xtzpGS26oEeTdCDLukGS24XC6PFzc4x/kXa9/lIzU5XW/zIW85gSz\ntBK5oUaQdyPIlvIe7BcaDfKu1z9KRirynlacYyvQxlvkdWdB0yT9o2QkAjn5OOplKe+0QcK0\nSkaX3TDImwRkkrzPY09aUsnoshsGedOBIG8vyBsZ5OL3tM9B3l6QNy7Ia3NxEa9tMWcl076t\nirxr9o+SERtkDXknHieAvGv2j5KxJWRkBXiGOOX1+1K5o5KpR2gh75r9o2RsCBlbAdrytvby\nIm8d5N0KMupQAxl2F3k7Qd6tIIvkbXY7jO19YMw7kgVNk/SPkhGhvEMzZb6VXA6tmW04Z0HT\nJP2jZMQ35l3kbg6ZvJ4drGTeshsGebeDeM02LHP3+Th9hDtUiZ2hOuWGGkHeuCCvr8YuNh/I\nRvIO1ig31AjyXhlkG3lfWfNGwLg+yEZjXuQNz0gK4jFr4Jxt0FeCvDEwUoL4rFM3aw7yhmck\nBPEazSLvSLbqny0YCUGQt5+I5R09K3I63k2BvLy8uB9H3n7ilXf8rMjReaeAvPz69cuwt+du\npVBrahh5R7JJ/3icFTk27xSQwt1he/vzCK/n766/qisZCfKaQd6xvD6Hk3dw2Q2DvAP317+o\n3v5p1OmQ6ZVMkvcZeSdno/4JKm+trIe44kqMMa8jyDs1G/VPSHl3z6HkHZ5tcAV5p2aj/olg\n2ODpbg5ZeIIlqxIryDs1G/VPDPL6DXkLederxEoweQc/H+SGGkHegft33YsxyI3JOzwylxtq\nJHZ5g+1h2zn+GoYI3G1V4n+Wx0DyGnMickONRCzvJgyVvMuHvP1K/OXdfg8b8kbBEA0bFp/P\n+aKSmTDkHckm/bMRY1xevw22IrcjL2PeKBgee9i8IUp557KYbRjJRv2zCUMEkQ8bYpd3eNkN\nE7e89uFYwd+oM2Tp7+9cVIK8Hola3pGDtoK/US2IeLZhNit4n4yJ1hcuc/7pl5jlHTt0IPgb\ntR5kgrzd0Wfw5gyKlrWvnAIi7xqFbA/xl7e33R+8OYOiIe9khqSQ7SHe8vZnXIM3Z1i07HyZ\nVQ4XV63bVyVv6DFv/0epw1UynBTlzWrxKm+7t69H3rCzDW/evXvnaS/ynpedJu/F9fXIuz5j\nGFK462tvwC5JZsx7NvdC2qwaNyCvDDJR3m3OEOZIKrMNhrxzXUTeoQemyRv4fOTxQJB3O4Zo\nzDvhrLi7ocMz2pXMXo8Hf3Ms0bJLaXUbbBeTcDct75TZhqmndB6Rd/56PPib4yHvWlNlXvqG\n7h8lQwSZKK/zm2rnShac3Tx4n0wVcEkuZM3G/Q3dP0qGCjJtXYm8krhMHfM3dP8oGTLIlFGq\n+yvCyDs1A2te097Q/aNkBIGMyXuNY941MjDmRd41IaPyXuFswxphtmF7yMCBRak2p7fshskc\nN8YUDt0/SgbyiiEreeoM8m4PQV5R2t8FbjKyTOj+UTKQVwxZ1dZeXGvesYTuHyUDiBiyhqRD\n4bsNQKSQIWn+dWeBum15s/PAAXmvC+J7mmET4rtsEHn9s6Bpkv5RMm4B4nXSH1UlQ9LEIu+t\n5VBd5glcyLzs8v/CZ3V52UnhyvivGU6sZOCrlgwbFsnLVyId8fg1w2mVDH3JvQt5fW2dddc/\ntyyvl74LmibpHyXDB+KWt30aySmVDB5e5IAg7zR5PfRd0DRJ/ygZs+Xdtc8+vZK80929cXlZ\n817E9eMYu2fkdS87Ku/v378d8mYOHbPWAy4vGfOOP8UYNuyqccMKY97nWe4mIO/v//7777dD\n3tPhmD05s8bgSzWZbRh/iiVveeL/3TqzDVcp7+9iO/Rsr0Pe5ujM5nB5L3k9s6Bpkv5RMkLI\n61vJVcr7mq94/3t1yFv/1zo+/rzSHZWX3cNDMYcNz6vJO8fd8Pv6xuT97S/v0V9e/4TuHyVj\nEHLo/9k/9znyupcdkbcaN7g22JBXBRk/Sb8x2+D7k8V2JVcq7+vv379XkdexxXeb8h7GT+9s\nySup5DrlfW0uLqbKsuMSeVvL3ba8B49zkxt72DTypgnxkdc9bDifvux0LqhJ87zIW8dH3lN2\nF5B57ob3TgIZk/ffYsTrkHdO+vKOnnHkFuSd8qtqu0vIvCHves3xP2GgoJJRebtBXjFkys9Z\nVicsdax5l2+wzYoDMuFUrYJKgsl79DvT5IKmSfpHyXDKW6V918gZbByQaOSdcpJsQSXh5PXL\ngqZJ+kfJ8JnnHT93GPKelx0I8uoZXvKOnrVxlWHD4A+r25D+LpVbkZfdw+f4yNtsCV3Ku3yD\nrfczP76Qy4OW4hjzrpHxb0leZkHTJP2jZHhBBuQ9W+HYw7a0kv4PrHnGddDSbcw2eNq7oGmS\n/lEy/CDOMW/r83iFSmbKe5w0V+JVycRlkXczhifENdtQy1us1yKU9zD+7QzPSiYui7ybMRZA\nKnn/rxB4jUpefu1Kd0fGIL2HT/JO2c8yVsm0ZUPJ67e9hrx13tTuvnv3xxqV7Halu8/P1uZf\n/+HjwLePF1UyadlQ8npmQdMk/aNkLIIUQ4bV5O0e4jkU5J2YBU2T9I+SMQDx/k0ItbztXXtn\nJ5HXmdZhQJxcusmEX+N54xrzTp6cOlXSkQ55veX1z4KmSfpHyXBCJv0OmmO2YfpugVMlLnnn\nbLBdHLQ0uZLZyw7k7Ovbt28d8o6ft4HDgLwgk3/ErwuZsUP2BBGseQVZVd63f/3111uHvOZ5\nG9yeDqqOvMg7a9kRed8WHxVnex3yDp23YUTezCX0Dco7+RcopfIeOvJOnm0QZE15d/mK96+d\nQ177vA1+hwEhb5GJv0ApG/OWO8auWt63/vJOPwATeQWQ2bMNZbrDhql72ARZd8xbVOzaYLPk\ndWuJvFFBFn+rpqxk9i8XtyFzlx2Td/f27ds15D2yezgwRCLv/N+Mb0FmLzsi7665uJgqW3be\nBs8s6RdF/ygZfpCxD3BdJYvmZyvI5LkSdyVzl/WQ1z1sWHjeBuR1Zze26RRNl8Qv77/FiNch\n75ww5h1/yvhXZKLpkgTk7UYnLzspBmLuLpj4gyp2JUt37kY/5l1PXp+TPSFv7zGlvP3DJz3m\n3LpPiX+2YT15vc7sv6hjBP2jZEyU1+Gucs3bP3zSY29H7ynB35yA8rLmdWZY3t0qw4b6L4/9\nzP2nBH9zwsnLmNedXe+684hW3uYj/8rkXSPMNvg8ade56j2glbfa2Ko22K5J3i3GvD4J3T9K\nxqSdFO77lfLeH5ppLsa8o8m6f3mNG0L3j5IxQd7d5Xl3d/V9a8k7c7ZBUcnsZZF3M4YAol/z\nLviGQ/A+Qd7tGJHJW415kRd5N4KsMNuwbA+bppK5yyLvZgwgYgjybscAIoYg73YMIGLIuLzv\n3793yOs6wr377V5TXs6YY8WctIqmS8JDRuV9/88//7x3yNsc+t6Rs39cxYC8/gndP0qGL8Te\nXbBNJT6bccHfnDF53xetONvrkLdz3oauw8g7BzK8o7ZcI29SidcEWvA3Z0zeQ77i/efgkHfo\nvA3IuxQyKG+1RpZWMvRt3OuQ972/vK1xMPIugAzJW9+vrGTwOIiOt0MHgwZ/c8bkrcYNrg02\n5F0LMjDm1cs7fARa+3cmBo+nC/7mjMp7eP/+/RR5OfR9OcQ927CpvK3fmUhX3kNzcTFV5jxv\nQ3fti7xKiHzMa615n7vyDkMklcxc1kNe97DBed6G09Qt521YAyKfbbDHvI28yY55ixGvQ945\nQd7oID6zDbuhn4gN3pwhaf51Z4G6yJsQ5GLYgLwzlgndP0pGSpDDVcw2IK+MkSgEeYsgb5IQ\n5C2CvGlCktvDtkaQF4gUIjfUCPICkULkhhpBXiBSiNxQI8ibEMTj1KXBmyM31AjypgPxOWl0\n8ObIDTWCvMlAvE7XH7w5ckONIG8ykK68AweEBm+O3FAjyJsMpCPv0AGhwZsjN9QI8qYDue+6\n67Q3eHPkhhpB3oQg59kG5C2CvElCkLcI8qYJYcx7RN5kIcw2IC8QMURuqBHkBSKFyA01grxA\npBC5oUaQF4gUIjfUCPICkULkhhpBXiBSiNxQI8gLRAqRG2oEea8CUp3PYf4vYOkqkRtqBHmv\nAXJozqZzVNiLvOv1j5JxFZDDM/L6RtA9yKuFIK9vBN2DvFoI8vpG0D3Iq4U08kq22K5C3v1+\nf/HXEXkjhDSzDax56+zr/9t/FRF0D/JqIY2yyFsHeZOBMObtxyHvn3nWL4pMzaF7cSMZkXfP\nmjcJCHvYLpKri7xySLSn1pVAVrW1l7GpMuRVQ+I9qbkEsp6ql2GDbWsI8sriMc+7PzLPK4Qg\nryzsYdsagryyIO/WkPK3K5FXEeTdHFJMNqwgb3Uis+B9IjfUCPIGgejlrU8hGbxP5IYaQd6t\nIeuMeU8n7w3eJ3JDjSDv1hDklQV5N4essocNeT0Tun+UjKuBMOb1S+j+UTKuB8Jsg1dC94+S\nAUQMkRtqBHmBSCFyQ40gLxApRG6oEeQFIoXIDTWCvNtDYv05CQlEbqgR5N0cEu0P+UggckON\nIO/WkHh/Qk0CkRtqBHm3hiCvLMi7NWSBvK95hJWsApEbagR5N4fMHvO+NheiStaAyA01grzb\nQ+bONiBvL8ibDgR5e0HedCDI2wvyJgRhg60b5E0Hwpq3F+RNB4K8vSBvOhDk7QV504Egby/I\nmxCEDbZukBeIFCI31AjyApFC5IYaQV4gUojcUCPIC0QKkRtqBHmBSCFyQ40gb0qQl5eXSCoZ\nXnbDIG9CkJdfv36N2Bu8OXJDjSBvOpDC3TF7gzdHbqgR5F0b4rFnwbMS5O0FeVeG+OzT9awE\neXtB3pUhQnkZ8/aCvCtD/IYMI5BTmG3oBHlXhrw+y8a8SUDkhhpB3pUhpbmiYUMKELmhRpB3\nZYhyzJsCRG6oEeRdGYK86wV5V4Yg73pB3pUhyLtekHdtiG4PWxIQuaFGkDdJyOA/h+DNkRtq\nBHlThAyvy4M3R26oEeRNEPLKmrcM8kYIebXHya8MG6ogb4SQkQ085K2DvBFCbHnN/c3BmyM3\n1Ajyrg4Z/ypYDzLuLvKWQd61IR5fwu1B7CHv66v1ePA+kRtqBHlXhvgc/tCDeOyUY81bBHlX\nhsyQtwzyjgd5V4Yg73pB3rUhM8a8zYW2kk0gckONIO/qkFmzDTPdDd8nckONIG+EEO8voq1e\nyYxlNwzyApFC5IYaQV4gUojcUCPIC0QKkRtqBHkThBibgMGbIzfUCPKmB7Em34I3R26oEeRN\nDmLu9gjeHLmhRpA3Rog5NYy8pyBvhBB7pxzynoK88UHGvg7BmLcO8sYHGf0uD7MNVZA3Poj/\nF9HWrmTOshsGeSOEeH8RbfVKZiy7YZA3RojvF9HWr2T6shsGeYFIIXJDjSAvEClEbqgR5AUi\nhcgNNYK8QKQQuaFGkBeIFCI31AjyApFC5IYaQV4gUojcUCPIC0QKkRtqBHmBSCFyQ40gLxAp\nRG6oEeQFIoXIDTWCvECkELmhRpAXiBQiN9QI8gKRQuSGGkFeIFKI3FAjyAtECpEbagR5gUgh\nckONIC8QKURuqBHkBSKFyA01MkdeQqIIa14gUojcUCPIC0QKkRtqBHmBSCFyQ40gLxApRG6o\nEeQFIoXIDTWCvECkELmhRpAXiBQiN9QI8gKRQuSGGkFeIFKI3FAjyAtECpEbagR5gUghckON\nIC8QKURuqBHkBSKFyA01grxApBC5oUaQF4gUIjfUCPICkULkhhpBXiBSiNxQI8gLRAqRG2oE\neYFIIXJDjSAvEClEbqgR5AUihcgNNYK8QKQQuaFGkBeIFCI31AjyApFC5IYaQV4gUojcUCPI\nC0QKkRtqBHmBSCFyQ40gLxApRG6oEeQFIoXIDTWCvECkELmhRpAXiBQiN9QI8gKRQuSGGkFe\nIFKI3FAjyAtECpEbagR5gUghckONIC8QKURuqBHkBSKFyA01grxApBC5oUaQF4gUIjfUCPIm\nB3nNE0clzmU3DPKmBnltLkJX4l52wyBvahDkbYK8qUGQtwnypgZB3ibImxqk8HZ4iy14c+SG\nGkHe5CDFZAPyFkHeJCHIWwR5U4Mw5m2CvKlBkLcJ8iYHYQ/bKcgLRAqRG2oEeYFIIXJDjSAv\nEClEbqgR5AUihcgNNYK8QKQQuaFGkBeIFCI31Ajypgd5eXmJpBLXshsGeZODvPz69WvQ3uDN\nkRtqBHlTgxTuDtsbvDlyQ40gb2oQ5G2CvKlBkLcJ8iYHYcx7CvKmB2G2oQ7yApFC5IYaQV4g\nUojcUCPIC0QKkRtqBHmBSCFyQ40gLxApRG6oEeQFIoXIDTWCvECkELmhRpAXiBQiN9QI8gKR\nQuSGGkFeIFKI3FAjyAtECpEbagR5gUghckONIC8QKURuqBHkBSKFyA01grxApBC5oUaQF4gU\nIjfUCPICkULkhhpBXiBSiNxQI8gLRAqRG2oEeYFIIXJDjcyQ9099FfMSTSFUEibIqwiVBAny\nKkIlQTJnzEtIFEFekmyQlyQb5CXJBnlJskFekmwmybuvLvf71lWoxFFFXJXU71AUlWyRKfLW\nb1L1f30VKnFUEVcl9TsURSWbZIK8+yPyDlRyjKIS5LWCvM5KolFmf4ylkm2Sqrz1wC50Fcdq\nbRdBf5SlIK8j+/NwN7y8+/0+girirAR5BxOHvE0p4auIrJJ9+1/TDQR5r6eSI2teI8zzxl0J\n87yEJBLkJckGeQLN/TkAAAEqSURBVEmyQV6SbJCXJBvkJckGeUmyuXl5szzTFlj0MBHm1vs6\nay68n734KUSUG+/rrHPl+/SFTyGi3Hhft5pfjx+yY3ldDyYu7szKRdpjjcz51M7twQenD1pI\nKzfedWd5TuOHSrKsvtG5s7rduruznOOp7dvuB1sgMjn03DHr+nU89qTqyZZ1Oy1rXzu8zAYf\n7L8OmRp6rkj9wZ5dytu9c4q8HV52yWnfT2aFniviXBlmx66tM9a8HV7/SUd6f2FuvPvOA1en\nvK5r5I0mN959WWcd6xyjDg0bzt6bY93Rfwy3/hYsyM33XDPozLobbidzs95A9nR31gf0l2/f\nHnqQqbJFoetIskFekmyQlyQb5CXJBnlJskFekmyQlyQb5CXJBnlJskFekmz+HwDgH2TFBEoe\nAAAAAElFTkSuQmCC", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "suppressWarnings(library(ggplot2))\n", "suppressWarnings(library(htmlwidgets))\n", "\n", "M10ExSem<-as.data.frame(cbind(c(1:10),exclusivity(model10Prrateby), semanticCoherence(model=model10Prrateby, docs), \"Mod10\"))\n", "M15ExSem<-as.data.frame(cbind(c(1:15),exclusivity(model15Prrateby), semanticCoherence(model=model15Prrateby, docs), \"Mod15\"))\n", "M20ExSem<-as.data.frame(cbind(c(1:20),exclusivity(model20Prrateby), semanticCoherence(model=model20Prrateby, docs), \"Mod20\"))\n", "\n", "ModsExSem<-rbind(M10ExSem, M15ExSem, M20ExSem)\n", "colnames(ModsExSem)<-c(\"K\",\"Exclusivity\", \"SemanticCoherence\", \"Model\")\n", "\n", "ModsExSem$Exclusivity<-as.numeric(as.character(ModsExSem$Exclusivity))\n", "ModsExSem$SemanticCoherence<-as.numeric(as.character(ModsExSem$SemanticCoherence))\n", "\n", "options(repr.plot.width=7, repr.plot.height=6, repr.plot.res=100)\n", "\n", "plotexcoer<-ggplot(ModsExSem, aes(SemanticCoherence, Exclusivity, color = Model))+geom_point(size = 2, alpha = 0.7) + \n", "geom_text(aes(label=K), nudge_y=.04)+\n", " labs(x = \"Semantic coherence\",\n", " y = \"Exclusivity\",\n", " title = \"Comparing exclusivity and semantic coherence\")\n", "plotexcoer" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "The three models appear fairly similar in this regard, with the model with 20 topics having two outliers with relatively lower semantic coherence and the model with 10 topics with the tendence to have lower exclusivity. For the sake of the present exercise we will then proceed with the model with 15 topics, which appears to be a good compromise. On the other hand, the other two models can be considered good enough and in another situation they might be preferrable. As mentioned above, the choice of the model can be very context-specific.\n", "\n", "## Model analysis\n", "\n", "Next, we want to know a bit better our model. stm stores the document-topic proportions and the topic-word distributions in two matrices, $\\theta$ (which is also refferred to, somewhat confusingly, as $\\gamma$) and $\\beta$. \n", "\n", "We shall start having a look at $\\theta$, which can be called directly from the model, or more conveniently with the built-in function make.dt, which allows to load also the metadata (which in our case is helpful considering we used rateby as prevalence co-variate)." ] }, { "cell_type": "code", "execution_count": 7, "metadata": {}, "outputs": [ { "data": { "text/html": [ "\n", "\n", "\n", "\t\n", "\t\n", "\n", "\n", "\t\n", "\t\n", "\t\n", "\n", "
A data.table: 3 × 19
docnumTopic1Topic2Topic3Topic4Topic5Topic6Topic7Topic8Topic9Topic10Topic11Topic12Topic13Topic14Topic15OrdIndexTitlerateby
<int><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><dbl><int><fct><fct>
10.0116720200.0237331250.00034853878.557529e-020.01056809730.00720890730.00209704950.13695005970.7137691522.393135e-050.0023622330.00001929100.00327631980.00065096550.0017450201Dementia Friendly Communities Officer year
20.8449116360.0282143660.00048801017.751244e-050.00057050330.00011289120.11135567770.00031214560.0058595388.466792e-050.0049293550.00058166750.00081557720.00053234730.0011541042Healthcare Assistant hour
30.0016954850.0022489650.00568170431.250004e-020.00729444250.62806784490.00074013410.00097444900.0018207944.343501e-030.2996131630.00079123040.00334269300.02073455800.0101509953Accounts Assistant year
\n" ], "text/latex": [ "A data.table: 3 × 19\n", "\\begin{tabular}{r|lllllllllllllllllll}\n", " docnum & Topic1 & Topic2 & Topic3 & Topic4 & Topic5 & Topic6 & Topic7 & Topic8 & Topic9 & Topic10 & Topic11 & Topic12 & Topic13 & Topic14 & Topic15 & OrdIndex & Title & rateby\\\\\n", " & & & & & & & & & & & & & & & & & & \\\\\n", "\\hline\n", "\t 1 & 0.011672020 & 0.023733125 & 0.0003485387 & 8.557529e-02 & 0.0105680973 & 0.0072089073 & 0.0020970495 & 0.1369500597 & 0.713769152 & 2.393135e-05 & 0.002362233 & 0.0000192910 & 0.0032763198 & 0.0006509655 & 0.001745020 & 1 & Dementia Friendly Communities Officer & year\\\\\n", "\t 2 & 0.844911636 & 0.028214366 & 0.0004880101 & 7.751244e-05 & 0.0005705033 & 0.0001128912 & 0.1113556777 & 0.0003121456 & 0.005859538 & 8.466792e-05 & 0.004929355 & 0.0005816675 & 0.0008155772 & 0.0005323473 & 0.001154104 & 2 & Healthcare Assistant & hour \\\\\n", "\t 3 & 0.001695485 & 0.002248965 & 0.0056817043 & 1.250004e-02 & 0.0072944425 & 0.6280678449 & 0.0007401341 & 0.0009744490 & 0.001820794 & 4.343501e-03 & 0.299613163 & 0.0007912304 & 0.0033426930 & 0.0207345580 & 0.010150995 & 3 & Accounts Assistant & year\\\\\n", "\\end{tabular}\n" ], "text/markdown": [ "\n", "A data.table: 3 × 19\n", "\n", "| docnum <int> | Topic1 <dbl> | Topic2 <dbl> | Topic3 <dbl> | Topic4 <dbl> | Topic5 <dbl> | Topic6 <dbl> | Topic7 <dbl> | Topic8 <dbl> | Topic9 <dbl> | Topic10 <dbl> | Topic11 <dbl> | Topic12 <dbl> | Topic13 <dbl> | Topic14 <dbl> | Topic15 <dbl> | OrdIndex <int> | Title <fct> | rateby <fct> |\n", "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n", "| 1 | 0.011672020 | 0.023733125 | 0.0003485387 | 8.557529e-02 | 0.0105680973 | 0.0072089073 | 0.0020970495 | 0.1369500597 | 0.713769152 | 2.393135e-05 | 0.002362233 | 0.0000192910 | 0.0032763198 | 0.0006509655 | 0.001745020 | 1 | Dementia Friendly Communities Officer | year |\n", "| 2 | 0.844911636 | 0.028214366 | 0.0004880101 | 7.751244e-05 | 0.0005705033 | 0.0001128912 | 0.1113556777 | 0.0003121456 | 0.005859538 | 8.466792e-05 | 0.004929355 | 0.0005816675 | 0.0008155772 | 0.0005323473 | 0.001154104 | 2 | Healthcare Assistant | hour |\n", "| 3 | 0.001695485 | 0.002248965 | 0.0056817043 | 1.250004e-02 | 0.0072944425 | 0.6280678449 | 0.0007401341 | 0.0009744490 | 0.001820794 | 4.343501e-03 | 0.299613163 | 0.0007912304 | 0.0033426930 | 0.0207345580 | 0.010150995 | 3 | Accounts Assistant | year |\n", "\n" ], "text/plain": [ " docnum Topic1 Topic2 Topic3 Topic4 Topic5 \n", "1 1 0.011672020 0.023733125 0.0003485387 8.557529e-02 0.0105680973\n", "2 2 0.844911636 0.028214366 0.0004880101 7.751244e-05 0.0005705033\n", "3 3 0.001695485 0.002248965 0.0056817043 1.250004e-02 0.0072944425\n", " Topic6 Topic7 Topic8 Topic9 Topic10 Topic11 \n", "1 0.0072089073 0.0020970495 0.1369500597 0.713769152 2.393135e-05 0.002362233\n", "2 0.0001128912 0.1113556777 0.0003121456 0.005859538 8.466792e-05 0.004929355\n", "3 0.6280678449 0.0007401341 0.0009744490 0.001820794 4.343501e-03 0.299613163\n", " Topic12 Topic13 Topic14 Topic15 OrdIndex\n", "1 0.0000192910 0.0032763198 0.0006509655 0.001745020 1 \n", "2 0.0005816675 0.0008155772 0.0005323473 0.001154104 2 \n", "3 0.0007912304 0.0033426930 0.0207345580 0.010150995 3 \n", " Title rateby\n", "1 Dementia Friendly Communities Officer year \n", "2 Healthcare Assistant hour \n", "3 Accounts Assistant year " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "topicprop15<-make.dt(model15Prrateby, meta)\n", "topicprop15[1:3,c(1:18, 27)]#visualize proportions, job title and rateby" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Consulting the table might be quite cumbersome unless you want to have a look at the topic proportions of a specific document. stm offers the plot.STM function with \"hist\" as argument in order to visualize the estimates of document-topic proportions (Julia Silge in another post offers a different procedure using ggplot to otbain a similar plot, I have included this in the appendix): " ] }, { "cell_type": "code", "execution_count": 8, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAK8CAMAAAA6ZJxxAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAAA9h\nAAAPYQGoP6dpAAAgAElEQVR4nO2diZajIBBFMbGzdezx/792XEABKcQQpSp595xMEtme5RNL\npttWLQBCUaUFAPAqMC8QC8wLxALzArHAvEAs/M2rOk6/w4dAWXBzcJvNo1Jn3ff0r/Wm1I81\nuNvZWterA4478zpKLUWFlDn7kdJtlqoi8JfcR/VHNXZ4n7VV5ke9L1w7EpUy7dVv+zs64Xf4\nMra9m6PudhTretK0MqDemReYRwhrWJjX2o/1nmHePeij+lQXf1P4S+A71ef4Xt3aWzV8vah6\nGEVPxqHOYl3Hh7X783YmmXmEJKM5+5Hasyz4yx4Pwmn40JyVqpvhotl9OOuZ917V7TQL68Ju\nw7VS12H7s6oeurNx23TV7Tqp27oevlXqT1Vt2LzOuP3WR1XdbkO3TT0kAmOXP6rvfqxNDKh3\nxqjr37u65hJi96x7MztgpQr6w7SDj+psto7dzUMNfXaR8ivP3+szFTJ7P1gixbzjwT11/lXG\ns79m8+Xez2Xz8R9fN3W/q9tg7mZwZWtvM33fusN267/+dlfYH9PnzUyOOr10xh26/OuaNr0L\nz7/t0H2//aLuj657XTs8YOuqu/bq6mDPurdpB/yZd+57DoDurm2t/Rgi5Veev/+SIbP2gyey\nzNvd9jzmb5ZZq6V5T2qasKfjbm8b+36qR/cajPdoH2aWnC7suqI3rv1qn9ez+VyN3eva4QFb\nV101z8j+q/J2wDevs4PV3GaqpPdjqO1XdoQRIbP2gydSzDsenO6mXQ1XUN+8Ca+2DX5XJ6UP\n3J/rs3nw1h/Xfj3UTzN/H+ZpXZsYcHmqkTsyZgqUeWM72lofVyNFFVj7wRMZ5v01l8X299Id\n+jfOvN2mU//W6AWoJmheb1zqVTm1iQHHnUmceZdlalK1OvPaH16Zea394IkM85qlsrNq/kaz\n2VG/PEY7NDf7ONvppjmQgRT00rXt3rpkse2Xlq5B83rjuhZr7ubzpc8VT6Y2MeC4M07Oe16I\nt3ojZ14rjX04Oe/Zlq4/+JUdYUTIrP3giQTzKnXWC7B/3Q34ueku1Wc76r/D/fOjOg3J61R4\nrapr6x13a9vYd+fX+zgB97fVjXaoM/hyXPv16Ho0w3Z+62/Pde3wgHpnTEFnt76JEe8Ydext\nHmm6edK9TX0/lFlu0d1ZlcwHr7IjjAiZvR8s4W9esILacgw3VebOJ+3LlwLzArHAvACIA+YF\nYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAW\nmBeIBeYFYoF5gVhgXiAWmBeIxXoKS9oDt/snvuwtapVEsf0zOrc+C3eXX69N1ftDP8v8NV3R\nVkE9iSaoyDrLB/wk4jeIdGCGWq3tbW3qVw9v/NnhW0kRe1JNs9W9e/1ueIreH9U8FRGliK5I\nYLeaN9EE7Z02OCvz+u3Orx7e99oitbetox5r3vR664dy86gbzOtzis/OL5l3gxLavPEHbtfz\nU8La6SHg89lm2hDP354YO9SPFW/Hh3frJ4HPcnQnZvvUWbLY/hn69mOZE0cdnutp9ew/q1yT\nuPMbgts/6+7H0mvGq08PZ0KzW7T2Q9mnfZueuP6orKeUmmede4XWU9rTdD4uYRM8xqcWLs2r\nHxnfP23trJrFoZ0ecz+h93isMF6OavWc62u19nEbwxd94HbrmHfxyHDThnj+tkF3OD9W/Hd+\nEvgsZ+zEbHefuJgo9tQ//dGMnDjq8GxG6ynhi2eVT30n7fyW4J6GpzIavWa87v1ie8LZw3GT\nqWr2bXri+rg3rmKv0Ijq39N0jk8FXJig8Z9Qb7AO4c3udn74+++iwcXarf7hyf0DK+f6Q19L\n86489tUdJPTI8Gp+XzwFdm43vluPFZ+eBG6P03ditrvPuk0TWzspZPKoavmsWtOzVTdx5zcF\n1/n7PWa8Si11eAdkkqb3zXvur6vYKzSiTvNRiuv8rcMmmCZp37yTulNVmbPTPrRBf1i71c/o\n/aPr7fr9Q8G9IHjHInQJsL9EHhm+aG+305/tx4q3/o3u3Dj0hPAksXf32cjbRg29nLqJO78p\nuF6Ulnu+bOFIc/ZtUdtSTIhJ0lk/HAlTr6q7sAdFToG7z5d9/9Au/GFXqKq/qloEZOnKTTNv\n6JHhG2ZeZ0f91Rf79PSFpYn9U5XzeNnkURU98zok7fym4Lb26WZKEmdeW3545tWKc2fexXqa\njsPwBOGQeaem1U9d/S0PbdAf9pg3Vffpgl0/OPOuPHDbHUk/PHt+sLdpE3n+do/u0H6suPMk\n8HGcsROzfSXnDYi9DI873zrq+PIfrN6/vLqJO58e3LoXdp21mPEufaqo5oe/6xa2ZFPV7JtV\nxYq7VuwVxnPeZBOo/vnyt+BkbdRd1fNph8gJqNfgZu9Wf778ufWDOe/KA7dd3eaR4dODvU2b\n2PO326lD81jxcbP1JPDW7kRvd58yniK2sq9KyaOaXtwHq2un23UTdz49uE2tnOeoT3teV8O9\ntxlJtzDVrIeyT/tmVbEiYJ517hbOT2mvqgwTDKdX9Rcyr1Y33O/1iwb+oV2Y1+zxFIHLuF5v\n178uLoQzii5abUO2bRL+xIGpQ3US2v6K2PCor9dd3flA3Sw2SN6ydzaZOqlhs/xhdUOX7GHe\n+rneialzrHlTlMXrHm7eDZK37J1Npk5q2Cx/WN3QJXuY95XOUra/ZcBMDjfvAeyk803dCgki\nAEtgXiAWmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAWmBeI\nBeYFYoF5gVhg3gJQz2IE20iL4L+dVbwVKWKH0EsRO8JMLcxbDJg3lyTzqn/KYm9JuUgRO5pX\nCVHbw80Hiebd2qIkUsQuZ17Oanu4+QDmLQbMm0uaeTe3KIkiPnNDTf84WxjDTSzMWwyYNxeY\ntxgwby7IeYuBnDcXSwK9AMJNdBwpYmHeXJT/KaSJm+g4UsTCvLnAvMWAeXORat7If/LwExuG\nq3nlpI9pOS/5pRSRMw2rDXnEJjHySxmELpUJM29wXoB5c8HMewBhtTBvLsh5DyBiXuS8GdDm\ntX7wjZvoOPzEyjIvDTcfrM28XM0rauaN5LwMzStx5o3dVTATHc952YklYGpeQenjmgQh5rV/\nup+dWFkzr6D00Zl5W+nrOQu1LMR+wmoDS7FOzqtaGaJbKjETYl57MgvUK4ycRWmp5g0jxLzW\nVymhZSlW7mpDIMdZppE8xIrKeWPpI7PQKu+jCNHUZYKteYMwNW/sCswstHJXGySZl57MYN4M\n5JrXenM3sxMb8wNL81pvzlZuPhBq3nCOA/O+AznpY5p5t7QoCVYb9oKlWJj3CCKT2WILT1iK\nhXmLISq0LMVKzXnDMM15w3DNeYOw9AHMWwyYNxeYtxgwby4wbzFg3lxg3mLAvLlgtaEYokLL\nUizMWwxRoWUpFuYthqjQshSLnLcYyHlzoSUw/sU7Eph3L1j6ADNvMWDeXD7EvMx/9T2IEPMy\nvgJ/iHk1QsxLnGlM1Q6w9AFWG4ohKrQsxcK8xRAVWpZiYd5iiAotS7HIeYuBnDcXmLcYMG8u\nMG8xYN5cYN5iwLy5wLzFgHlzwWpDMUSFlqVYmLcYokLLUizMWwxRoWUpFjlvMZDz5mJJkPTX\ngAhg3r1g6QPlf1KBcm6iW+JMY2teYU9GlzKJCTVvWCxX80ZCy8+8gnwA8x4AzLsPaTkv0aIc\nMfPyW22I+SFQryyCxEpdKhP1d9hEzQuCxAqdeQm4mjeIqNCyFCs058Vqw358wmoD498axQ3b\njgiaxITOvMSZJsS8rH97WNAklpbzMhONmXdHBE1iaasNzES3yHl3RM4kJnWpLAxWG/aCpViY\ntxiiQstSrHXDpkLXC5aiSWDevWApVgU/ehu55TrUmcY1543MC/xy3tgkxiy0a9MUS9EtpYKp\neSPzAj/zCprEpK42JPqBiVh6XmBoXjmTmFjzBmFr3hBszRuCpQ9g3mLAvLlgqawYokLLUizM\nWwxRoWUpFuYthqjQshSLnLcYyHlzgXmLAfPmAvMWA+bNBeYtBsybC8xbDJg3F6w2FENUaANi\nHcqJWiunRe+m6zWW5mWsVlRoV8604uZ94bkNad5QJJu7iotdmXlpHXub5pXQ7qGjTTlBXhC7\nl9qVI6P8TypQTuY6id5IarFBNCV2JeeldWwZOlBrrUUktGTOmzk0XbA2xis+SJwXKFGJu0RJ\nDYi2mqt/L4h7HwkRtquyExsLrSix3HywNvOO/AttLIkosTG1osRyU7uW844wE90KExtRK0os\nN7VJmTa3y0UciN1LLDcfpJm3ZMHmO9miar9TbCG1MO9BBQWHhnmLFXypH0SJhXm3l+w+Nsyb\nWB/m3Vyy+9gwb2J9mHdzye5jw7yJ9WHezSW7jw3zJtZnbF4AOALzArHAvEAsMC8QC8wLxALz\nArHAvEAsMC8QS9y80w9R+j9NuV7gd729q7mH0M9yslP7lWLLqo1qV6aC8mquF/Qj5XU197As\nYaj2K8UWVptpXr+LuUBF9jJpjLmHt/lhR7XfKbaw2uPNq4gzkU4bSvohXe03ii2sNt+85HlF\nn3DBrgKB3MEP+6n9RrGF1WabdznMdF4lSTvWvDuq/UaxhdXmmjdgt9UzsZx591T7jWILq41L\nH08a1RLLGmpxXs0tFgLWuqJy3mAJQ7VfKbas2iTtAHAE5gVigXmBWGBeIBaYF4gF5gVigXmB\nWGBeIBaYF4gF5gVigXmBWGBeIBaYF4gF5gVigXmBWGBeIBaYF4gF5gVigXmBWGBeIBaYF4gF\n5gVigXmBWGBeIBbLvEqzrONs+gtXKkKi5PZxUqfmvQOvlChlXmvi/D14VOpMdWxeuVrnJ+G6\nn1faNj9K/fxtHH4bm/bOf2jJeoe/6me922edV55eO0XyU92bVdWbJG0wb0JjJ6QV0TUD89bq\n+VSbjtxEanTfbl6Xm3rka9h2BGK1U3r6SRltW9jWzGs+JvV6qhJ1vOuKZ/cTNe+y2YsSUpvl\nm/daqevw7VGdzdZuWz1ceWtVDWffNMxYonesOavu23ghtLqpbreqeljj9OXdRagvb2qlTr/B\nesHeaueqmiK58o/PC5L1wFOFdtLvaO1LHurizpNRcV2iMHepQxMKSXDmHSU0faJxVs00gpE2\naHYamD1/OH229ekxfo5K/eln3sskYd5j/TJttAjriLmZ0aTO3jt3wK78pP66HPU0B9gKylg1\nZN6but/Vrf92uRut1/7KO0z9tWru1h6YEr0LJzWEsv82d3Pv8uRbY+kYyi/q/ujLz79dkypY\nL9jb72bJ6lQ759uLkn/tCrN+X2tjBJhXXNx4lNwZMBSSkHmNhG6Emz2C2T5othtMe35x+uzq\nX3SGHpV66ir8TT1agRtfps347hyxkGp37+YBdcNu3PZuTQ9zUEzVkHlPvRKza9X47mZiyrrO\nVU6S191tPPQ3pxsv6qbLwR3P69muY9UjetsqWalnKK3cLtmpMOn3tE4ziHmtxLNRy0tJICQh\nTZOEU1Wd2nmEyhpx0aBd9ldNn6NSr+r3YbnJCtz0qub3U0yEH2W7sW7Yp9e1PVXZQako866F\nLHBQp0rdvbLqLgNrXehIDeM/1E9D1CN62yo56MNXJHuFzsVw6qY7VWhBgZ5vdvIxloRCEtak\nJdzVlHrY0ha+cfc88IoOWLnDrwTOaR9Svfaq1J89Sy6DEjJvzszb3TpfulLrBCKdYGeipD2D\nvW2VfPZ6fVnyYuZ10N08+pnU7mElnnVvdnecRNvPvVQ/dfU3j+Ak+ZE9n21imzdyBaOOzvRK\nnXmDe+rOvF1qXNvXy2XVkHmtHO3hJD7D5e0cynnP3YjNrdvUlfZJdl9o54d+5Pv3S9/w1O9L\n12H4CBG9bZXclT7fItnPeRvrdJq7uXY17NZxcTrldcahQuJrMhKu053UOIIjzW6gh/X7uvQ5\n82jemNSu2q8VR73HOoxWm/HdOWIh1a6KeUDTsLuHVI+52RwUUzVk3u5ur9J3g/N9zlXpW87u\npq+y7o5NyaM6PbtNf92d5Ln7ps5WN8uoD+WXscvulvNKHB2it62S+5EuuZLHd1uF1u9qHaaO\n6s9pHRenlP02vFMh8TVpCcP9VD+BmxEcaU6Dq7dAoIvqalptSI+jCdwYRquNFmHH6qHOvmpP\nhT3g2LB1bg+toJiqnhVCvngnzWm9zpZ6PiUkJ2t9nzhqSHKErfF8Rap7lm8UEWx0HiZ8v9k8\nzsHmrZ/rdbbU8ykhOVnr+8RRQ5IjbI3nLuaNiQg1aqrh/8P8ZsXMuzesJe8v7m0j7GLejQMq\ndboFaiaaFwDWwLxALDAvEAvMC8QC8wKxwLxALDAvEAvMC8QC8wKxwLxALDAvEAvMC8QC8wKx\nwLxALDAvEAvMC8QC8wKxwLwgDvUgTgakifq3s4q3ArE7MPiEm9gk86p/ymJvSUlEpPAT62Np\nc8TyVDvAUmyiebe22BvlvLmwE0uwnMwYq2UpFuYtBks/ULAUC/MWg6UfKFiKTTPv5ha7E0m7\nFPGZG2r6x9nCE5ZipZo3Asy7AyzFSjUvZt5jYSnWkkD7ATnvHrBMIylYilX+p5Am/ua11x7Z\niSVg6QcKlmI/xLz2ZnZiCVj6gYKlWKHmJXIcmHcvWIoVmvMSwLx7wVKs3NWG0PNZF/fEPMSG\nYXkDT8FSbNrMS34phRp1BHNemDePoA9Yik3LeckvpRBmXjl+oHzAUixtXmvxiV/OK2u1IeIH\nbmmkKLFrMy9T8wZmgmkDU7Ey/CBK7FrOy9W8YWDeN0D7gJvYNQkw7zuQ4wcKlmKdmTew+gTz\n7gZLP7SSzjQn5w3cwLO8yyTBakM+Ulcb5JrX/sEcfuYV5If4qlOgXknSVhvCLfghxLyM/SDK\nB8r7iJx3B7DasA9YbTgCOX6gYCkW5i0GSz+0sVUnbmKlmlfWz/PK8UP0xp2bWKHmDWeRXM0r\nyA+ixKaZd0uLQ4iZl+Vqg5xVSJmrDXQ5N9ECzWu9OVv5hTa26rTYUhah5o3lvPzMK8gPFCzF\nCs15CZjmvGFYppEULMVKNa+s1YYgLP1AwVKsUPPKWm0Iw9IPFCzFfoh58cScnWEp9kPMa29m\nJ5aApR8oWIrFakMxuIY2CEuxUs0bBubdC5ZipZp3nHaF/CdFGK6hDcJSLC2B/XMbFHLe42Ap\nVvINm4J5D4OlWMnmbdd/ypCFWAKWfqBgKVaoeY17Q1v5iQ3D0g8ULMVKNW8YIeYl/keFp1rG\nYqWuNoTBasNesBQL8xZDVGhZioV5iyEqtCzFIuctBss0koKl2A8xL36qbGdYiv0Q82pg3r1g\nKRbmLQZLP1CwFAvzFoOlHyhYisVqQzFEhZalWKnmxQ+jHwtLsULNq5w3dzPMuwMsxVoSJP01\noJh52YklYJlGUrAUq/xPKlAO8+4BSz9QsBQr1LzCHjoi6uHScsRKNW8YpuaNhJabH0SJFZrz\nypp5BflBlFisNhxA7KIWqFcWQWLTZl6iRTn8CPP+O2yiQitIbFrOG25REFkzbximoQ3DUixt\nXtbPbZCV8wq6gW8licVqwwEIugcSJVbqakMYIeZl/Au5osSmrTbw80MYIea1vnLzgyixQs1r\nry7Ym/t/2ImVlEa2ksQKXeclVGC1YS9YirVu2IKTGUvRPUEZMO9esBSrgh+9jdxEk8C8e8FS\n7NqRZprzEjDNeSMXNW5ppCixQm/YCJiaN3JR4+aHVpJYmPcQyIsaNz/0iBH7IebFE3N2hqXY\nDzGvBubdC5Zipa7zhsFqw16wFAvzFkNUaFmKhXmLISq0LMUi5y0GyzSSgqXYTzevQyFVBCz9\nQMFS7Kebd1HKB5Z+oGAp9qvMy2sWZukHCpZiXzAvLws4pM+8DJSz9AMFS7F5qw0MdsAhvtrg\nFJQ/B1newFOwFGtJeOH39dN2YLtP1q0VLtlgXnq4rWoTWqSGtvgJNavwN07/uNX2VbsyhvI/\nqUB54vyVYoE0n6ye4mGxL5uXLNi6e+HTOT+0KQVprLZ+Rexep91KaGnzWkrUv7SjuBP0Xvli\nx8yspNYkP0DsS2wwr82/0MaSiBIbUwuxGazlvCPcVAsTG1ELsRmkJSjcVEeB2L3gJjbtfppf\nZhYBYj9TbCznjUBWOqJg84JiUbXfKbaQWpj3oIKCQ8O8xQq+1A+ixMK820t2HxvmTawP824u\n2X1smDexPsy7uWT3sWHexPqMzQsAR2BeIBaYF4gF5gVigXmBWGBeIBaYF4gF5gViiZt3+jk0\n/wfS1gv8rrd3NfcQ+nE4dmq/UmxZtVHtylRQXs31gn6kvK7mHpYlDNV+pdjCajPN63cxF6jI\nXiaNMffwNj/sqPY7xRZWe7x5FXEm0mlDST+kq/1GsYXV5puXPK/oEy7YVSCQO/hhP7XfKLaw\n2mzzLoeZzqskacead0e13yi2sNpc8wbstnomljPvnmq/UWxhtXHp40mjWmJZQy3Oq7nFQsBa\nV1TOGyxhqPYrxZZVm6QdAI7AvEAsMC8QC8wLxALzArHAvEAsMC8QC8wLxALzArHAvEAsMC8Q\nC8wLxALzArHAvEAsMC8QC8wLxALzArHAvEAsMC8QC8wLxALzArHAvEAsMC8QC8wLxLI0L/0H\n4t1NF1Vds0dX8yut9qRwTV7b/vQbLkpdNgjZk9TAauXTG1EpQ8f657i25hyJKiV0bQde2MFg\ni3A/7taLet7VbaX3Z70y+ovmXZfXNnW/4arud5Vwjh1h3naTcvMWb5orYqt5R1En1TSke18x\nb++TUPmKfzaYd1lHrXhztaPm9Ipvkmqrc1/t3Hd+flOX+WxQbt42Nc0i6aif4zNIpCDW/Yuz\ndcy812qYtJR6VGeztdtWN6aO47uxRG/qLyx1M14krW6q262qHvNA9XNh3rFlf3nSrbpzvT9H\navU0AlLktbWj0AzQzxynX7vR3NjrYGBS8ex1a21zp/XZr9r0p8pZNVPP7c/GwGrl5m02y2MM\n3dR4k4gpmuflbDv1eK/qNG3dnKiqSZs5ZMYBrlBb8Dzs2Ls+HINPhnI33k6SFTh0EfPe+kvu\nrf92ufcXCX0Zbsb59kf9Pm1b6BK96aSGCPbf5m7uf0rdGnVaDmZp1C0v6v4YW/12m/7av67Z\nJCBBnnN45wHOv13vld1obrzooLVU3Ptm1l6Nr992UbWTdbNlXZbTZ5Jy8zab9zKEbm68ScQc\nzYV5HTmp2k7qbn0ewjI5wBVqC56HHXufD8f48uLttAkcuoh5T32P5rque6rm+rWqT1brag54\n96rU+aG/Od0EUgRvm25ZWa0endaLekwCkuQRAz6v52l75b37Hbgq3L1adGyqtqeqOrVzzwtJ\nicpbr38zYDScMRGm0cK8To+J2mo7Y7QOWUCo3aOzM5V3ONQi3muHLmJef+ZaOm8Yfxnw7vXo\nLu7VI6GLxbap5XjNGEqq6q+q/B5W+w5tfKifhmoYEGerCO/Vomp7V95lfXtgY+ZdaUiJsKK5\ncJHzStJ2t4+8HZZEoeb78nCohYLIoYuYd/UkbJWVz3nnXft76dosTux18+qWZqCh5NYlvjfr\n3EyT12/wb9icvU+becN7tVA9tax+6upv7vnwmTcmImje7TPvn6qs+4LWPWS+0NjM6xvVjzd5\nnq3OvFb683DSH30L0NzVc+5fl5xUc+s2dXcLJktdJmm0qLY1LS99d9Mud6fjnyUgQZ7u+KaX\nysyAVa9a2Y3mxlYHprqtYt4rvY+uFUzVq3o+7Z7jOS+tvPX6NwOaxhtFWNG0D4B7gLrKSdou\nfcI7D6vDYsXO7tY//mPDsff5cEwdN/6ZGTl0EfN2t4mVvvEcMpxh61XpG8/mpE6Pua4peVSn\n/j7ur7ttPHff+n2eukkyr27Z/+9CP9C49TKsKhoBKfLMhh81N237K1x1HQczjebGVgeTPkuF\ntVfjPnrz2Fh1uLOpu7Pa9Nza66FblBPmNY03irCi6Zt3lvPb3canaKvsLGQ+ZFdnLcb05B//\n1urdHI6HmTDceM/biUPXrqIS6mykOaVtS+Elec7By9JCVU2Q9b7AbhZhGpAVdjjoKcNG2his\nQ1fGvP36bsq2FPYw7wYtVNVDzbtZhG7w569brrfMwujc0ru/b8XN+072MO8bONS8L45QD6v+\nr7TMJKf3beYFgCcwLxALzAvEAvMCscC8QCwwLxALzAvEAvMCscC8QCwwLxALzAvEAvMCscC8\nQCwwLxALzAvEAvMCscC8IA71eEAGsBS1HfIJjOA9sIxskqh/e6t4F8PeiFE7IUDx6BNmQtPM\nq2z2lpTBaF4hYgcGkf/4qx2kKWah3T7zMhBNsph5OYsdcBQzVqvN628pC8xbFpg3A5i3LDBv\nBkkSFPmFGWr6x97ADitplBJalmJh3mKw9AMFS7EwbzFY+oGCpVjkvMWY/YCc9zVg3mLAvLnA\nvMWAeXOxJND/bwLz7gHMm4vyP4U0wbx7APPmkmRebneZLXWZwGrDGwiGlqVYoeYlxHI1rxw/\nUKFlKTYp5+UmWpp5BflBlFihqw0x8zJLzNp1P7DKeWNimYVW6mpDJOdlFuFWmHljOQ6z0GK1\n4QhWcl5e5g0izLzWjz4xNK+omTcMV/N+zszL1Lyycl5RM+8H5bws7zLJywRWG/KJXIG5iV2T\nwFK09KUyxn4QdaY5M28rZuaV9T9sgvzQSroCOzmvasMR5pfzEiDn3QvmOa8s8wYvE2zNG4Sr\neSNXYGahlbvaEDjT2Jp3NAOZNrAyb2QS42veQFrTwrxvQUuFed9M0moDS/Nab+5mZhFuJ5uK\nMa/15mwVaV5ud5ktcZngvdrg55GiQstSrFTzhmFqXuPewEYpoWUpFuYthqjQshQrNOclYJrz\nhmGa84aRm/PCvHsA8+YC8xYD5s0F5i0GzJsLzFsMmDcXrDYUQ1RoWYqFeQvA+ud5w7AUC/MW\nQ4Vc3RMAAA0bSURBVFRoWYpFzlsM5Ly5wLzFgHlzoSXw/tX3MDDvXggzr1UO8+6BEPPad5fM\nQvsh5lXEdYKlWI0Q847INS+3u0wSrDbsBUuxMG8xRIWWpViY9wjkPAqBgqXYD8l5NUxzXuW8\nOVuR82YA8x4AzLsPMO8BwLz7APMeAR73tAswbzFg3lyw2nAEWG3YBZj3ANZyXq8eR1iKhXkP\nwDcvfhj9PSDnPQCsNuyDJYFOzGDeTLDasAvK/xSaHhiaF3/Kajfwp6x2JiwW5n0DsRyHWWhh\n3mLAvLkk5bzc7jLj5mW42qBCsRUVWpZipS6VifpTVmEZokLLUqzQmZeAq3mDOkSFlqVYoTkv\nVhv24xNWG1j/6jtu2HZD5A2bqJmXONNg3nwikxhf84r6HzbMvLshcuaNlPMz74fmvDbldAnM\neSPl3O4ySdiuNoSIh5aZcpY+gHmLAfPmYt2wSfpvIAKYdy9Y+kAFP3ob+eW8RGIoJOf1fxg9\ndMNWTHlsEmMW2rV4MTUvoUKIeUeYmjcyiXE2L1nO0LyJ1wkmYoNwNS89icG8ewLz7gXMuzsw\n717INS+3u0yST1pt4PE/FpOc6R9nS1lg3mJsWCorvxssfQDzFgPmzQU5bzE25Lzld0Nuzgvz\n7gHMmwvMW4wt5iU5RirMewAfa96Ugl2BeXcH5t0LueZlln/RfMNqQ0nzFhmaxpKQ+qvvLBbP\nI79JcfRSf8IYqaElPmcmwxsz5ld8UCa0yv+kAuV0INNI07aleVjsysz7gg6qBdltsMVLoc0s\noPZi9br0itjMaZiM+coYtHmtrv4lumwnQrsbFstAbfDg0KEdPhRTvFUss9CuzbwD/wLbyhIR\nK0xtDyvFgkK7lvMOMNPcQ4sVpraHl2I5oU1KVphpXkGW2h4xipkJTTPv8fmNzcZdYpaYrcS/\nh1XOGxPLLLTb76ePLth8J1tU7XeKLaQW5j2ooODQMG+xgi/1gyixMO/2kt3HhnkT68O8m0t2\nHxvmTawP824u2X1smDexPmPzAsARmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiCWuHmn\nH6L0f5pyvcDventXcw+hn+Vkp/YrxZZVG9WuTAXl1Vwv6EfK62ruYVnCUO1Xii2sNtO8fhdz\ngYrsZdIYcw9v88OOar9TbGG1x5tXEWcinTaU9EO62m8UW1htvnnJ84o+4YJdBQK5gx/2U/uN\nYgurzTbvcpjpvEqSdqx5d1T7jWILq801b8Buq2diOfPuqfYbxRZWG5c+njSqJZY11OK8mlss\nBKx1ReW8wRKGar9SbFm1SdoB4AjMC8QC8wKxwLxALDAvEAvMC8QC8wKxwLxALDAvEAvMC8QC\n8wKxwLxALDAvEAvMC8QC8wKxwLxALDAvEAvMC8QC8wKxwLxALDAvEAvMC8QC8wKxLH51nvjj\n8P6mn25D86PUT9ooO50j2/R2VCEhqc8u2KrOtEuU95e4K9sFZHbAlsWOhXfV29rU/YYf1TxV\nnTRKavyedfjz1q6Detv2Hqy93bxp0uiaQXm/4ZngIPOm7xIfEs3rVzrPDwJ+rxwV/pzWgq6k\n9Z7eZN70vd4g76YeL/eQj8T5mTLvtVLX4dujOput3ba6GUprU+3Wzxb6c9Mdgr68SybGpt18\n0p/OtXp6zVurZz3S2Ni+bo6fdWf93HT6HVtVt1f1Pi7jE4WmE8+q7A5k9sVQnx59LV3qSEva\noRR5taqGeE0hGCsE1HXbnlX1sMeuz7OgWg1i3Vd9nqvPHXcvW+i1aiVBmPem7nd1679d7uoy\nbr2qezNlCWYmO02fuy9to87tRd0fY9PfbtNfl8qdls3nnvVIurE/vZnOzp2fVNVvu//5z8RK\n13t6euadK3sDaTmGrnTw/SxjbpGyQ0nyatVMhT26AhGG4X0e+3euZMS6r9+5ttVx97KEdjIJ\nm/CEMO+p37GT3nF9tJybHR3hu5WnVer8aMdqpumjOxiX7mq4aD73rEfSjX3zms7a5/VsH4yX\n9P7Wblu/sjWQljPvmh7IkjG1SNih1HC2tiN1hZQwDJ9NpcqqEIyZ1fG8q/23k7DUgTBvaOcX\nB95+73hUSlWP1tz/jwGt/qoq5Dm/56mxX2Ps7KF+mph5k/TWj+W2+eUMpOX4NV0Z7uJAbIde\nCaf5nBIGfUGZA58y2FKod4jYQ5j3pami/b10Xyv7ONy6xPcWaL6YqHTj0Mw71Y6YN0lv0G5V\neKBRjiE0mfmrbrEdesfMGwvDNPNSYiMzryX0Q2ZeK0l7OEna2ao2JGnXKTJn1fT57aWvdpqn\nxC7ttZvPc8zYsx5JN7YD3b+bzqp+qIh5k/SaN19CYCBLTk9XehtNNMtw9zO2Q4nyzqGc9xwN\ngzNhm0pdnnYZrdjcnIpex7rcEvohOW9331np2+P5Dvhq3YH3G7p7X11p2PTX3e2emz54Q7Vx\n66U/HHbzOd5jz3ok3fhh2bv/bDp7dJVi5k3S23oH0ansDqTlTEPV1XADb2TY0tZ36LVwOgEj\nwuCY11SaxY43qAvz6o51uS1U+mqDV/z2C0lzWuu5OVEl62zSu145Rcr6Dm0ZcRukvuBAOYFl\nyeHmrZ9rPZsar/Bm86ZIWd+hLSNug9QXHCgnsCw53Lz79vxm87576P3CWWqgonzFToLPBOYF\nYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAWmBeIBeYFYoF5gVhgXiAW\n2rzUM+wAYMKaOWFewJYk8/47QMj7gNpvIc28yuYAVVn8Yy/W0qb4q+XL9pmXfYRttZzFavP6\nW0AyMG8xYN5cYN5iwLy5JJlXLbZwRhGfuSEwtMyAeYshMLTMgHmLITC0zEDOWwzkvLnAvMWA\neXOBeYsB8+YC8xYD5s1Fqnkj/50qxQ4wby5WvIJ+YHpLrJy3YBldgQlMQysI5X9SgXJ+EZZt\nXvsHc5ztZeSIBeYtBtPQCiLJvMh59wA5by5JOS9D80aQYgeYNxesNhxB5F6YoVoxCJ15Yzkv\nPzvEbif4qZWD0JzXF2v/Hg0/O8C8+0Cbl/V6DjHzLtSyECtrIUcQQpfKiJyXqXlF/f+PIIT+\nDxsBV/MGkRVajshdbWipmZdfFtmrwGrD+3FmXirC/MyrtCOWm5maN6AW5s3FyXmpCMO8efhq\nnYeOuPXABuSa13pzN/OzQ39NazHzvh2h67yBu51pA0c7KEWt63FUKwXlfcRqw2HICi1HklYb\nxESYq3nHBFfIErocYN4D0M6Fed+M1HXeMExzXm1T3LC9GZj3AEYV/ho6zJsLzHsEyvrX3Qjz\nZgDzFgPmzQXmLQbMmwtWG4ohK7QcgXmLISu0HIF5C8D6l1QEgZy3GMh5c4F5iwHz5gLzFgPm\nzYWOF/HL5DwjzPtX38PAvLlg5i0GzJsLVhuKISu0HIF5iyErtByBeYshK7QcQc5bDOS8ucC8\nxYB5c4F5iwHz5gLzFgAPHXkPMG8xYN5csNpQDFmh5QjMWwxZoeUIzFsMWaHlCHLeI8BfA9oF\nmPcAlPPmbIV5M7DiJelPWcX+JgU/O8C8+6D8T6EI8zNvWCzM+13AvEeAnHcXkszL75Y4Zl6s\nNnwLSTkvwwjj77ABrPMegaiLmiCw2nAAvnnxgznvATdsB4DVhn2gzcv6V98JsUzNi9WGfcDM\nWwyYNxfkvMWAeXPBakMxZIWWIzDvAdgZubV1+sfZApKBeY8gKENWaDli3bDR0wO/nDcslm/O\nG9KBnDcXFfzobeRnXkIFW/OGgHlzWbvGcjVv4qnGRGwQmDeXpJyXo3mDwLxfBcxbAPxsw3vA\nakMxZIWWIzBvMWSFliMwbzFkhZYjyHmLgZw3F5i3GDBvLjBvMWDeXGDeYsC8ucC8xYibVzkc\nq0wKWG3IH/RFmwVCS3UEVwf5dPMecKRfjU48tNtd/X3YP1VG/5ags2UfOygauvpiq6/2iCOd\nMEZqaFN6pQ/GpgB+Asr/pALlZM6bFq/tEV71Q1jsSs6bpoMS9YLyuNqVnJfq9YWCJOUCoc1r\n7d+/Fw77G6Fl+2IZqI0EORRaVVTtK45hxNrMO/AvsK0sEbFQ+zWs5bwDDAMcmTmg9ltIunLw\nSxv4qt0af6QNr5Okn6x0RMHmRYKiaj9aLDdg3oMKCg4N8xYr+Gw/iBLLDZj3oIKCQ8O8xQo+\n2w+ixHID5j2ooODQ321eADgC8wKxwLxALDAvEAvMC8QC8wKxwLxALDAvEAvMC8QSN+/0I5/+\nz36uF/hdb+9q7iHxJ0/Lqv1ksUyJalemgvJqrhf0ccnrau5hWcJQ7SeL5Uqmef0u5gLV0hFO\nGmPu4W1+2FHtR4vlyvHmVcS8QacNJf2QrvaDxXIl37zkLEBPD8GuAoHcwQ/7qf1gsVzJNu8y\nKNMskBTIY827o9oPFsuVXPMG7LY6b5Qz755qP1gsV+LSx1NctcQijFrMAnOLRbjWuqJy3mAJ\nQ7WfLJYpkrWDLwfmBWL5D5KZqtTPaYXlAAAAAElFTkSuQmCC", "text/plain": [ "Plot with title \"Distribution of MAP Estimates of Document-Topic Proportions\"" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "options(repr.plot.width=7, repr.plot.height=7)\n", "\n", "plot.STM(model15Prrateby, \"hist\")" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "This plot basically tells us which topics are coming from which documents. As expected, each topic has no relation or very little relation with several documents. I personally found also helpful to plot the topic distribution per document, using tidytext and ggplot:" ] }, { "cell_type": "code", "execution_count": 9, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAyAAAAK8CAMAAAAgfSvWAAAAk1BMVEUAAAAaGhovvPQvxFwv\nxdwvyJMvybszMzMzwPgzyGAzyeAzzJczzb9NTU1oaGh8fHx9rPuBsP+FvS+JwTOMjIyampqn\np6exsy+ysrK1tzO9vb3DmPvHnP/Hx8fQqS/Q0NDUrTPZ2dnh4eHmmy/ohfHp6enqnzPr6+vs\nifXw8PD1jYb5fdb5kYr7gbL9gdr/hbb///+pt7XxAAAACXBIWXMAAA9hAAAPYQGoP6dpAAAg\nAElEQVR4nO2dDZubxhWFRdMmcWp27cTeOG5SV0k2idO41v//dZV2kICBHWaYjztw3/M8NroC\nHe4BXoEWhA4nhNCzOkg3gFDNAhCEHAIQhBwCEIQcAhCEHAIQhBwCEIQcAhCEHIoA5HDT5fF0\n/PvW02Z9C+mtPJtGWpQREM/NtS5AEnaD9qDI7eG6PQEI2qfSAfJwaB8uDz++PRzefjQ7mHN5\nfHPoRpxHHe6ehneHn/vn+x3Q0//Xl59O79rD3fvBjN4c7h+HMzg/93N7341/vD+8MQaPl9FP\nEz6+6edwm8+b83SPd4c3H8dO3bRd0wh1SgbIm8u2ddkc28uDu+u29sEchHWEvDlcttzH8+j+\neQuQ68vPwF30/jaj88Z8aD8Opzgc7g9vzeiPlyffXAyeHj1NaB69GQNyafOnu/N/b8dOrekG\nQNBYyQC5/3h6dzh/wn132egfLhv207i7w0+n08/XyT48kfJw+DB4fgzI8OWPp+OhPQ1mcH8Z\nOZzi4drHw+H+9PH+YnB5ZCZ8OENwHLtfuPjp8rKf7Hmd3d9fZgYfaKRkgDx21Z3ZGm9v3KfH\nD+/ub5vd3WWDb9vh8+NNuH95e3j7YTijn82uZzSDx+vou8vDR2PweJvw47BJM5/Hy38fp60+\nnoadINQp6Yd0s4WN/7J1fy2f9P5wPL+rvxs+b7/HX5//cD7quXscz2huBpPR40fTkbf/bCcA\nQRPlBuTt+YP2h8fbZvfxfIzzcHkH759/DpDzEdjdoT2eFmYwHT1+NB0JIMhfyQG5O4zGmb9M\n9Zvd28Pj5Zhm8Pxts3wcv/yi94ON/OnI6X4yA6PlQ6zHKSC2E4CgiZID8nD55PvTZUvuNsRj\n9+nZ6Pyp+XAcPX/5154/sl8/Y19f3p6n+Hn4If0yxbvJDIzemc/w1of0B/NngN59DIjtBCBo\nouSAmD+uXj5SHy5b98PgkOlJd+ZcyMPo8Oapejd+uZni3W1Glw8tF1yGM7i5zv2Z9/H6V9ze\nfQyI7WSm4FoTNFByQJ5O1N1fdhJPfzY9PVWDTfn95e+7w+efxj20ZxTGL788177rZ/R4fz3/\nd51i+G7/+GZ6ovDn++7RzX0MiO10+f89gKChtnJEwaEPEtFWtjsAQSLaynYHIEhEW9nuAASJ\niO0OIYcABCGHAAQhhwAEIYcABCGHAAQhhwAEIYfWA3JUJt2x1eYGEF/pjq02N4D4SndstbkB\nxFe6Y6vNDSC+0h1bbW4A8ZXu2GpzA4ivdMdWmxtAfKU7ttrcAOIr3bHV5gYQX+mOrTb35gBp\nhOYrC0jTNDIzFgZEPvfWABFbYKKANEexdwbR1d0cxXNvDJBG6R7kKL6hyMz9KJ57Y4BoPcQ6\nim8oMnM/iucGEF8JbyiN0HylV3cjNGMACRWAyKiRmS2AhEp3bAABkAWJxm5kZnvkr1gA4ivR\nDaUROyEgu7o5D7Id6Y6tNjeA+Ep3bLW5AcRXumOrzQ0gvtIdW21uAPGV7thqcwOIr3THVpsb\nQHylO7ba3G5Abr/42rbtYPCk36/qH3nVgZNXY2fH3kuuhTp2ddeaa8nOC5AbDq351w6ZqS5S\nZjsAkW2ksJ0PIO0JQAAEQJyIzAPy1VnOFyK0D60D5KLqmM9sZ8feS66FOnZ115pryQ5AQu0A\nRLaRwnYAEmoHILKNFLYDkFA7AJFtpLBdACBPWHAeBEBkGyls5weIS9VFymwHILKNFLYDkFA7\nAJFtpLAdgITaAYhsI4XtACTUDkBkGylsFw8IQgrEHsR3tB17L7kW6tjVXWuuJTsACbUDENlG\nCtsBSKhdH/tPo7/MoHgjZe0ABED8RgOIbCOF7QAk1A5AZBspbAcgoXYAIttIYTsACbUDENlG\nCtt5AXK7NrFtzcN2cLVidZEy2wGIbCOF7XwAGV3dfruwF0AARKKRwnarABnyASAAUrSRwnah\ngFy/DmJq3Tdt+Gsk6W5QVoUBcuIbhb+zB5FppLDdKkBGD6qLlNkOQGQbKWwXCEg7erIKQP5u\n9I0ZpLIHEKsGkABAqjrEApAidgDiIqS9ItEOnwAQACnfSGE7L0Ccko4EIEXsAARA/EYDiGwj\nhe0AJLQ7AJFtpLAdgIR2ByCyjRS2A5DQ7gAkbSNfGL0wg2i7xN3t4K4m34xUcs5capJCL0aS\n7uZZsQfxHd3HZg+SopHd70GkIwFIETsAARC/0QCSthEAyRwJQIrYAQiA+I0GkLSNAEjmSABS\nxA5AHOqvTexv2gAgAJKkkR0AwuXuAAIgXoC09hMAAiCRjewLEOubITXctIEz6dvWDs6kj/cg\ntf0MNHuQInaxq1vHHuQEIACSuBEAyRwJQIrYAYgPIBxiAUjqRnYAyPCmDW3bPwEgABLfyB4A\ncUo6EoAUsQMQAPEbDSBpGwGQzJEApIgdgACI32gASdsIgGSOBCBF7ABkq+JSk21rB5eauCXN\nPHuQInaxq1vvHkQ6EoAUsQMQAPEbDSBpGwGQzJEApIgdgACI32gASdsIgGSOBCBF7LYCyCuj\n12YQbbfipg3dgKt5ASRJIzsAZHK5++DbIQACIHGN7AqQrhryASAAEtXILgG5HmFx0wbOpMcq\n8Zn01yMl6K+TNyCTo6x4SONq9iBF7GJXt5o9SGsNAQRAohrZGSATUAAEQKIa2Rcg3HoUQBI3\nsgNA+ps2tNy8GkASN7IHQJyK7yGuBpAidgACIH6jASRtIwCy2ENcDSBF7AAEQPxGA0jaRgBk\nsYew+stOL80AQMrYAchW9HIsLjXZuHZwqYlb8ZCG1Vr2IP8w+mc3TGTPHiTMjkOs4O4AJG0j\nAGLX3xv90A1DXw4gMfYAEmYHIM/UAGLVAAIgfqMBJG0jAGLXAOJVA8gqOwABkBh7AAmzW39X\nEwCxAfnF6LduGNsIgKyykwAk9Ec8x1vKZDyAeNUAssouFJD/Gv3PDKaTpwDEPtQIBORbo+/M\nYLrExltKMCALS+zXTn+YweTln4w+m8Hv9QCykPvVfO7by+djP5/bf3X/2+g/ZmCvb2t1f7sI\niLW67dx/M/q6G05W97+MfjSDaW4LkHHsT7GA1HBXE4QKaLu/k17azo69l1wLdezqrjXXkh2A\nhNoBiGwjhe0AJNQOQGQbKWwXDwhCCuR3V5O58yAIKdB2vjCFkIAABCGHAAQhhwAEIYcABCGH\n1gNyVCbdsdXmBhBf6Y6tNjeA+Ep3bLW5AcRXumOrzQ0gvtIdW21uAPGV7thqcwOIr3THVpsb\nQHylO7ba3ADiK92x1eYGEF/pjq029/YAaYTmKxq7OUtmzrKrWyz2dgGRXmIyM29kZnsUBqQ5\nikUHkFBJbyhCEgdESFsFpFF5iCV3hCUNiHhuAPGV7IYifqghMvMLHo3InLcKSKP0Q/pRfEMR\nmXlzFM+9NUDE/5wjM/Oj+IYiMvPmKJ57Y4Acde5BmqP4hiIy8+YonhtAfCUaW+mH9Apybw8Q\nKemOrTY3gPhKd2y1uQHEV7pjq80NIL7SHVttbgDxle7YanMDiK90x1abG0B8pTu22txuQG6/\nBpLid9Jz/yZQZjs79l5yLdSxq7vWXEt2XoDccOAn2ABEupHCdj6AtCcAARAAcSIyDwi/k46U\naB0gF1XHfGY7O/Zeci3Usau71lxLdgASagcgso0UtgOQUDsAkW2ksB2AhNoBiGwjhe0CAHnm\nd9Kri5TZDkBkGyls5weIS9VFymwHILKNFLYDkFA7AJFtpLAdgITaAYhsI4XtACTUDkBkGyls\nByChdgAi20hhu3hAEFIg9iC+o+3Ye8m1UMeu7lpzLdkBSKgdgMg2UtgOQELtAES2kcJ2ABJq\nByCyjRS2A5BQOwCRbaSwHYCE2gGIbCOF7QAk1K4WQP5u9I0ZRNst1QDi0O3i3bY1D9vB5bzV\nRcpsByCRTkleXhUgo69/3K58BxDZRgCkiN0qQIZ8AAiArKm3svpDAbl+X8rU3NVETt+MJN2N\nv74bS7odX4UBcuIrt+KNbHUP8q3Rd90wurEkL0+8Bxk9qC5SZjsAiXPaNyDt6EkAEWwEQCIm\nzwwIh1gAAiBDQtorEu3wCQCRbARAIiZPDIhT1UXKbAcgcU4AIh0psx2AxDkBiHSkzHYAEucE\nINKRMtsBSJyTOkCQjDiTXlTsQXxH27HZg4TV6vYg1UXKbAcgcU4AIh0psx2AxDkBiHSkzHYA\nEucEINKRMtsBSJwTgEhHymwHIHFOACIdKbMdgMQ57RGQ/trE/qYNACLcCIBETJ4WEC53BxAA\n8QKktZ8AEAAJrPcNiPXNEG7aICcuNSkq/z2Ist9J/2T02Qx+Zw8S67TrPcgJQAAk0glApCOl\ntQOQ7gGAeADCIRaAxDrtEJDhTRvatn8CQEo2YtcAEjF5YkCcqi5SWjsA6R4ACIDMlQDSPQAQ\nAJkrAaR7ACAAMlcCSPcAQNCcPo8k3c1AnEkvKvYgz5TsQboHkatb7x6kukhp7QCkewAgADJX\nAkj3AEAAZK4EkO4BgADIXAkg3QMA2Skgr4xem0GwHYB0DwAEQOZKAOkeAMjzGt20oRts5mpe\nAEnSDYA4+DjZd2toB2Ori2TVAJKkGwDxAaSrhnwACIAE1SoAuR5hbeGmDa9HCn45l5ok1g4v\nNRkBMjnKqo55q2YPkqSb2NWtZg/SWkMAAZCgeueATEABEAAJqvcNyAZvPVotIOMtJdgOQCIm\nTwtIf9OGdoM3rwaQVd3ZNYCsVfJIXxi9MINoOwBZ1Z1dAwiAzJYA0j0AEACZKwGkewAgADJX\nAkj3AEBq0YuRou2qPZMeeUaZM+lFxR7kmZI9SPcgcnVvZA8yXt2fOMRatAOQ7gGAAMhcCSDd\nAwABkLkSQLoHAAIgcyWAdA8ABEDmSgDpHmwEkHWrG0AAJLA7uwYQh+Zu2gAgoY3Y9VYB+dPo\nLzMIdtohIIV/oxBAvF6uFZD53HsGxN5QIgH5m9HXZgAgK7uz6+cB+cXoNzNYdFIFyBZu2oBQ\nAlV0iFW5nR17L7kW6tjVXWuuJTsACbUDENlGCtsBSKgdgMg2UtguHhCEFMjvpg1z50EQUqCK\nvjCFUH0CEIQcAhCEHAIQhBwCEIQcAhCEHFoPyFGZdMdWmxtAfKU7ttrcAOIr3bHV5gYQX+mO\nrTY3gPhKd2y1uQHEV7pjq80NIL7SHVttbgDxle7YanMDiK90x1abG0B8pTu22twbA6S5SGTO\nsoCIpRYGRD73xgA5qxGar+j7wlEst+z74VE8N4D4SvmGIjLz5iiee3OANELzBRABNUfx3ADi\nK9HY8sfiIjNvLslF5gwgwRLeUKTfSWXmfsajkZnzVgFpZGZ7BBApNTKzBZBQAUh5NUfx3ADi\nK9nYOj+DVJB7a4DISXdstbkBxFe6Y6vNDSC+0h1bbW4A8ZXu2GpzA4ivdMdWmxtAfKU7ttrc\nAOIr3bHV5nYDcvu5nJkf0KnuR7My29mx95JroY5d3bXmWrLzAuSGA79RCCDSjRS28wGkPQEI\ngACIE5F5QL46y/lChPahdYBcVB3zme3s2HvJtVDHru5acy3ZAUioHYDINlLYDkBC7QBEtpHC\ndgASagcgso0UtgsA5AkLzoMAiGwjhe38AHGpukiZ7QBEtpHCdgASagcgso0UtgOQUDsAkW2k\nsB2AhNoBiGwjhe3iAUFoP/o8Vj+CPYjvaDv2XnIt1LGru9ZcVv3J6HM35BAr3A5AZBvJawcg\n0XYAIttIXjsAibYDENlG8toBSLQdgMg2ktcOQKLtAES2kbx2ABJtByCyjeS1WwfI7drEtjUP\n28HVitKRStsBiGwjee1WATK6uv12YS+ACDdS1g5AAgAZ8gEgO8m1UAOIHyDXr4OYmps2oH1p\n1aUmU0BOfKNQvpGydrGru9ZcVp1mDzJ6IB2ptB2AyDaS1y4WkHb0JIBINlLWDkACAOEQC0D2\nksuqY86DDDnhpg3yjZS1A5C1ko5U2g5AZBvJawcg0XYAIttIXjsAibYDENlG8toBSLQdgMg2\nktcOQKLtAES2kbx2GQBBaD/iribRdnbsveRaqGNXd625rJpDrGg7AJFtJK8dgETbAYhsI3nt\nACTaDkBkG8lrByDRdgAi20heOwCJtgMQ2Uby2nkBcnjS4In+2sT+pg0AIt1IWTsAOQ0eHkbP\ncLk7gADIkA9T3Z7qeWjtJwBkq7l+NfrDDJZfDiBegFjfDNnCTRtejyTdTTX6YyTpbqqRx5n0\npT3I1n4G+pXRazOI786OvZG3RrtkDzJbx34GARAASdxIXXar/ooFIAACIKfnxSEWgACIA5Dh\nTRvatn8CQMJeuapOZfcvox/NAECeqRWeSQeQJwGIVw0g0d0BSJLGKl1MABLdHYAkaazSxQQg\n0d0BSJLGKl1MWwDkC6MXZhBtByBPAhCvOgMgyfVipGg7LjV50o8jcanJM9rCTRvYg+SwYw/i\nVXOIFWsHIGkaq3QxAUisHYCkaazSxQQgsXYAkqaxShcTgMTaAUiaxipdTAASawcgaRqrdDHF\nXKw4eNQOrlZMHglActgBiFe9CpDJ5e6Db4cAyEbWPIB41ZGAdNWQDwDZxpoHEK86ESDXI6ws\nN23gTHoOcSbdS6vOpI8AmRxlJWeePUgOO/YgXnX8HqS1hgCyjTUPIF51NCATUABkG2seQLzq\nWEBK3HoUQHLYAYhXHXMepPt0nv3m1QCSww5AvGrOpMfaAUiaxipdTAASawcgaRqrdDEBSKwd\ngKRprNLFBCCxdgCSprFKFxOAxNoBSJrGKl1MGQBJLi41ySEuNfESN22ItWMPkqaxShcTh1ix\ndgCSprFKFxOAxNoBSJrGKl1MABJrByBpGqt0MQFIrB2ApGlMajEt5AaQWDsASdPYrgCZu2nD\nekC+N/qhG04mB5AcdgBilAOQxL9RWDcg/zX6nxnMTA4gSRoDEABJUt/KL41emkGwnRZA7NUd\nmDsxIFlu2oBQfdrvz0CntrNj7yXXQh27umvNtWQHIKF2ACLbSGE7AAm1AxDZRgrbAUioHYDI\nNlLYzgeQ/qYNc+dBEFKgir4PglB9AhCEHAIQhBwCEIQcAhCEHAIQhBxaD8hRmXTHVpsbQHyl\nO7ba3ADiK92x1eYGEF/pjq02N4D4SndstbkBxFe6Y6vNDSC+0h1bbW4A8ZXu2GpzA4ivdMdW\nmxtAfKU7ttrc2wKkMf83jcC8xWNfB2WlfHVvCxCzpJqjyLYiHfsosp1IAlLD6t4UII1ZUM1R\nFyC32E35eUsCMgjcPD9VLm0RkKNOQLQfYh0BxFvN9b+m/LylYysGpHFMk0sAEirp2ABSVAAS\nKunYegFpJOYNIKGSjq0WkEZi1lsGhPMgJSW+uptGZH1vExBJ6Y6tNjeA+Ep3bLW5AcRXumOr\nzQ0gvtIdW21uAPGV7thqcwOIr3THVpsbQHylO7ba3G5Abj+XM/MDOtX9JlBmOzv2XnIt1LGr\nu9ZcS3ZegNxw4CfYAES6kcJ2PoC0JwABEABxIjIPyFdnOV+I0D60DpCLqmM+s50dey+5FurY\n1V1rriU7AAm1AxDZRgrbAUioHYDINlLYDkBC7QBEtpHCdgGAPGHBeRAAkW2ksJ0fIC5VFymz\nHYDINlLYDkBC7QBEtpHCdgASagcgso0UtgOQUDsAkW2ksB2AhNoBiGwjhe3iAUFIgdiD+I62\nY+8l10Idu7przbVkByChdgAi20hhOwAJtQMQ2UYK2wFIqB2AyDZS2A5AQu0ARLaRwnYAEmoH\nILKNFLbzAuR2bWLbmoft4GrF6iJltgMQ2UYK2/kAMrq6/XZhL4AIN1LWDkACABnyASA7ybVQ\nA4gfINevg5iamzYgJQoD5MQ3CuUbKWsXu7przbVktwqQ0YPqImW2AxDZRgrbBQLSjp4EEMlG\nytoBSAAgHGIByF5yLdn5ANKdBxlywk0b5Bspawcga1VdpMx2ACLbSGE7AAm1AxDZRgrbAUio\nHYDINlLYDkBC7QBEtpHCdgASagcgso0UtosHBCEFYg/iO9qOvZdcC3Xs6q4115IdgITaAYhs\nI4XtACTUDkBkGylsByChdgAi20hhu+0B8mWnl2YQaxfcHYDINlLYDkBCuwMQ2UYK2wFIaHcA\nIttIYTsvQPqLd/u7mgBI8CsTN1LWbiuAvDJ6bQbx3fkAUtf3QQBExA5AfABp7ScApNotOrEd\ngHgBYn11SuKuJi/HKj37avTNSNLdVKPXI6Xz9d+DSP9OOnsQo78bfWMG0XZLdezq1rEHOQEI\ngMQ6JXk5gADIwmgAmS3lP6QDCIBEOSV5eVWADO9q0rb9EwAS9sq0jQDIbCkCiFPxPYTVAGIE\nILMlgACIEYDMlgACIEYAMlsCCIAYAchsWR8gpcWZdCPOpM9K4ky6W/GQhtXsQYzYg8yW9e1B\n4nsIqwHECEBmSwABECMAmS0BBECMAGS2BBAAMQKQ2RJAAMQIQGZLAAEQIwCZLQUvVhw8agdX\nK8b3EFYDiBGAzJZVXO4++HYIgADIqnqfgHTVkA8AAZA19b4BuR5hcdMGOXGpyaxkb9pwmjnK\nioc0rGYPYsQeZLYU34O01hBAAGRNXSkgn4w+d8NwQCagAAiArKl3Cgi3Hh0A8qfRX2ZQuhEA\nmS0lAOlv2tBy82oxQOzYADJbigDiVHSkwBpAAMRhpwCQL4xemMFkPIAAiMMOQAAEQAb134y+\n7oYAAiAAMqzrByS5Xow0GV3PmfS/Rso9Nzs2Z9Kf9PVYsWfSP4/Vj2AP4ju6j80eJMJZzx5k\nbUQACWsEQGZrALHHFwZkvMR+B5BopyQvBxAAsUoAma0BxB4PIAAyqAHk938Y/dMMAARAhjWA\npAbkX0Y/msFidwDSPQCQ5zV30wYAyQzIOPY/AGS+XgLEb3XHAVL4NwplAfmv0f/MYLuAvJp/\nK73N7VejP8xguTsAKQbI90Y/dMPJ5IkBWVhiv1pbynpAfjH6rRuGLhY7tzAgdu5+dc+/L/Sv\n/LfRf8zgudzPru7AxRYLiLW+EwMicdMGhARU0SFW5XZ27L3kWqhjV3etuZbsACTUDkBkGyls\nByChdgAi20hhu3hAEFIgv5s2zJ0HQUiBKvrCFEL1CUAQcghAEHIIQBByCEAQcghAEHJoPSBH\nZdIdW21uAPGV7thqcwOIr3THVpsbQHylO7ba3ADiK92x1eYGEF/pjq02N4D4SndstbkBxFe6\nY6vNDSC+0h1bbW4A8ZXu2GpzbwuQxvzfNALzFo/dD0uqitXdlJ/3JgExC6o5imwq0rH7YVGJ\nr26Rt4VtAtL0y6p5fqpcko+tDJAud1N+zhdtEZCjTkBuhxo6D7FkjrC2DYjOzyBaATlKvh9u\nExCVe5BG64f0I4B4q5k8KCfp2I3sX3PKz7mK1b1FQJqjSkCOSvcgzRFAvNWY/3V+BlEKiOzq\n3hggktIdW21uAPGV7thqcwOIr3THVpsbQHylO7ba3ADiK92x1eYGEF/pjq02N4D4Sndstbnd\ngNx+LmfmB3Sq+9GszHZ27L3kWqhjV3etuZbsvAC54cBvFAKIdCOF7XwAaU8AAiAA4kRkHpCv\nznK+EKF9aB0gF1XHfGY7O/Zeci3Usat7dSNfGr00g2i70O4AJNQOQMo2AiCpI2W2A5CyjQBI\n6kiZ7QCkbCPbAeQJC86DAEjZRjYBiEvxPSSOlNkOQMo2AiCpI2W2A5CyjQBI6kiZ7QCkbCMA\nkjpSZjsAKdvI5gFBKKdejiTWBnsQ39F27L3kWqhjV7fePUh8D4kjZbYDkLKNAEjqSJntAKRs\nIwCSOlJmOwAp2wiApI6U2Q5AyjYCIKkjZbYDkLKNAEjqSJntAKRsI1sA5HZtYtuah+3gasX4\nHhJHymwHIGUb2QAgo6vbbxf2AohwI2XtACQAkCEfALKTXAs1gPgBcv06iKm5aQPKrQ1cajIF\n5MQ3CuUbKWsXu7pV7UFGD+J7SBwpsx2AlG1kW4C0oycBRLKRsnYAEgAIh1j1A/Kq02sziO4G\nQFyEtFck2uETACLaiLsGkDTdeQHiVHwPiSNltgOQSKfAyQEkdaTMdgAS6RQ4OYCkjpTZDkAi\nnQInB5DUkTLbAUikU+DkmwcEVanXY0m3s14bOJPuVjykiZnPbGfHrjQXe5A03QFIqB2ARDoF\nTg4gqSNltgOQSKfAyQEkdaTMdgAS6RQ4OYCkjpTZDkAinQInB5DUkTLbAUikU+DkAJI6UmY7\nAIl0Cpx8C4D01yb2N20AEOlG3DWApOnOBxAudwcQAPECpLWfAJBacwFImu4CAbG+GcJNG6oV\nl5qklf8ehJ+BHseuNBd7kDTdhQFyAhAAiXUKnBxAUkfKbAcgkU6Bk28KkCyHWN8afWcG8ZGS\n1ABi1QDiIqT/aN62/RMAItqIuwaQNN15AeJUcA/fG/3QDQFkZSPuGkDSdAcgoXYAEukUODmA\nAMi6Rtw1gKTpDkBC7QAk0ilwcgABkHWNuGsASdNdPCDB+mGs03cjletj3+JSk7RiD+I72o7N\nHmRVrWcPEtwDgKRpxF0DSJruACTUDkAinQInBxAAWdeIuwaQNN0BSKgdgEQ6BU4OIACyrhF3\nDSBpuvMCZHTThm6w/mpeAEnTiLsGkDTd+QAyudx98O0QAAGQVfU+AemqIR8Ask9APhl9NgMA\nCQPkeoS16qYNnEkvodgz6Z9HytCgrzZwJn0EyOQoKxhS9iBpGnHX7EHSdLcKkOEQQABkTb1X\nQCagAAiArKl3CkiKW48CSJpG3DWApOnOB5D+pg1tiptXA0iaRtw1gKTpzgsQp4J7AJA0jbhr\nAEnTHYCE2gFIXGOhkwMIgKxrxF0DSJruACTUDkDiGgudHEAAZF0j7hpA0nQXD0iwuNSkhLjU\nJK3Yg/iOtmOzB1lV69mDBPcAIGkacdcAkqY7AAm1A5C4xkIn3yEgvxj9ZgaT8QCSphF3DSBp\nugOQUDsAiWssdHIAAZB1jbhrAEnTnRcgczdtABDpRtw1gKTpzgeQ0N8oBHzyHLkAAAOFSURB\nVJAijbhrAEnT3f4Bmd9QKgTkC6MXZhBrByBpuosDZNVNGxDangR/Bjo185nt7Nh7ybVQx67u\nWnMt2QFIqB2AyDZS2A5AQu0ARLaRwnYAEmoHILKNFLbzAaS/acPceZCb7I/rC3Xg5JXZVdNI\nYbtqGilrl+T7IHVFApAsdtU0AiB121XTCICUsCv6jUKEticAQcghAEHIIQBByCEAQciheECs\nMyP2qZLJqZPJ6Naq7dEL4yfWg2+xWHOcH3+r7Z96uI2eOfkzk8NZh+Veih2WeyF2WO7Q1X2y\nc8Ss7nEdubrt3POxowGxE5zGi8Su56Z3TW6/evzEuOxOZp76rOM5zo+/1TdOxsNZOuwci7GD\ncwfYL+ReiB2WO3R1zywn5+QBuSNX9yTvfOxYQNqZBbnwHuI96dyrx0+MF9jJ2uBHg1Gr7Uzd\nT9eeRi+f1Uxud5bQ3AEbijv3Quyw3MGre5w7cnWP6sjVbed+LnbyQ6yZZ8YRLVzsDWfhiGz8\nzEw5fG48mD6wanuDauc6fKaxmSfsYKNyKbczdmDuhdhhuUPfD8d9x61uq45c3Xbu+dgZALEj\nOzcUa/rLxK4tZXrwPTko9Vhi1rCdX2ATO6sTdz3Z4MNyO2MH5l6IHZY7bHXbgJwWYgfljlzd\n84DYPeQHxH6vc04/XS0Lbymt5b5mifWLatzh9K3o+caWc4XldscOy70QOyx30Oqeyx2zuse5\nI1e3nXs+dnpApkt1uCpn9twBG8rc+1o4INMlMQSk7zAIEGfs4NzLscMBeS52WO6g1T2XO3J1\nhwPim7sQIIsRJwskYonNlMtL7NklPPuOM7eOZjoLAnk594JdWO6F2GG5Q1f3YswQQMZ15Oqe\nfQOZdJQakMW/ZE+nd9f23KLPg0zeKpfPg5zmZPexEDss90LsFedBno8dljt0dU+WkyNHYO7I\n1T0LyGSOnElHyCEAQcghAEHIIQBByCEAQcghAEHIIQBByCEAQcghAEHIIQCpUoerpmMEutEs\nlne1YtXUINZCtWLV1CDWQrXqVk13oHU4XYe3p1ABsaCr1aH//3CBohv2T6ECYjlXKwuQfsg6\nKygWdrUCkBrEwq5WAFKDWNjVCkBqEAu7WvEhvQaxnKsVf+atQSzojYgVJSOW+0bEipIRy30j\nYkXJiOWOkEMAgpBDAIKQQwCCkEMAgpBDAIKQQwCCkEP/B1t/cbq0ddpBAAAAAElFTkSuQmCC\n", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "suppressWarnings(library(tidytext))# the package sometimes is not loaded correctly. If this happens, you might have to re-start the kernel \n", "td_theta <- tidytext::tidy(model15Prrateby, matrix = \"theta\")\n", "\n", "selectiontdthteta<-td_theta[td_theta$document%in%c(1:15),]#select the first 30 documents. be careful to select a sensible interval, as attempting to load a very huge corpus might crash the kernel\n", "\n", "thetaplot1<-ggplot(selectiontdthteta, aes(y=gamma, x=as.factor(topic), fill = as.factor(topic))) +\n", " geom_bar(stat=\"identity\",alpha = 0.8, show.legend = FALSE) +\n", " facet_wrap(~ document, ncol = 3) +\n", " labs(title = \"Theta values per document\",\n", " y = expression(theta), x = \"Topic\")\n", "\n", "options(repr.plot.width=8, repr.plot.height=7, repr.plot.res=100)\n", "thetaplot1\n" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "As an example, we see here that document 9 is strongly associated with topic 15 and document 15 with topic 8, whereas documents 10 or 13 are more mixed. \n", "\n", "Next, we want to understand more about each topic - what are they really about. If we go back to the $\\beta$ matrix, we can have a more analytical look at the word frequencies per topic. The matrix stores the log of the word probabilities for each topic, and plotting it can give us a good overall understanding of the distribution of words per topic (the procedure below is mutuated from the second post of Julia Silge ): " ] }, { "cell_type": "code", "execution_count": 10, "metadata": {}, "outputs": [ { "name": "stderr", "output_type": "stream", "text": [ "\n", "Attaching package: 'dplyr'\n", "\n", "The following objects are masked from 'package:stats':\n", "\n", " filter, lag\n", "\n", "The following objects are masked from 'package:base':\n", "\n", " intersect, setdiff, setequal, union\n", "\n" ] }, { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAMgCAMAAAD2t0H9AAAAk1BMVEUAAAAaGhovvPQvxFwv\nxdwvyJMvybszMzMzwPgzyGAzyeAzzJczzb9NTU1oaGh8fHx9rPuBsP+FvS+JwTOMjIyampqn\np6exsy+ysrK1tzO9vb3DmPvHnP/Hx8fQqS/Q0NDUrTPZ2dnh4eHmmy/ohfHp6enqnzPr6+vs\nifXw8PD1jYb5fdb5kYr7gbL9gdr/hbb///+pt7XxAAAACXBIWXMAAA9hAAAPYQGoP6dpAAAg\nAElEQVR4nO2dgbrjNnJmdTeb7WQSdCeZdq/jjeNcZx2PN5MM3v/p9goSwSqgQBRIkPghV312\ni6JE6rB0VIIAXPLmLSwmjdtoAAuLvWHyWkwbJq/FtGHyWkwbJq/FtGHyWkwbJq/FtGHyWkwb\nR+S93cjC7SY+JMUPbs+LtD1lXbfA3f8Pr7y1x1++3G6fG+hkguIBKg7GQh8j5G16C7vKG9Zu\n7dHdbnsES7Yp7sLk7Rrd5C08tLld04u0PUX+LFV3ttMurbwWXaNv5f341v380/Pet5v7dn/w\nt+9ut+9+uy99726ff7g/9tzwp9t3H/++3376+Pfrx7+/3J/5S9jfz+5L2NtX9iJfb1/ow+vT\nl0f8+9fb42Xps+P/j1cOe8yonq8RnpGCeH4c8UX8L1/jqy2H6+MBCnyP9V/Xp1ocia7y/ha+\ndR/3vt4X7u9RWHdvR34Lj/2wyutvLqx+vv2Prd1v9ztfPrwO97+SF/kuf/h5/+tz6afH63+j\n62R5M6rna9wEkEfELdYXeTzxKztcv8hL9/IdYYkbWRyNY/LGeLwv39+++N++PO59+e3jrruv\n+3Y3JFTcXz7KrCPSf3f7+S7Fx6qfPxz59rG1//Iw767Bt7i356t97DJ5eLm/PPL59uN9Xzf+\nbKHNK1A9XyTZcyyR6xbri3z7oH7nhyvvhbLEjSyORld5P3+I4H953Fu+JT+HV7hXGnf77qfn\nds8d/HT7/uN9/HZ79z98tBqeW39etl739tzqZ+nh5f4vj16CX376/ksEeD4qyCtQrWgpSIh1\ni/VFPt9+WzaLjQJxLz8TlriRxdHo2mx4rEiXFr1/+vi+/MzeZP9RnL7dfvuoSV8LW2e/CqWH\nyf0v9LOUixvlFajWF0n3/Hxk2SJ9kQKqnAy2T4tjcaG8H9+1n2/unb59391+c1/9V+cfDcd8\n60Z5v/v47fXTL03yRqr1RSrypi9SQDV5T4+u8tJmw7L+M3uFH/jb99Fu+GhA/vjRcviRf8/e\nH8yaDeHul+Rh1mwIj/ymbjYwqvWQUhD/eDl22L8lzYYsHznfF2s2dI6u8j5/ozB5Q2fCj/cH\n3Efb9mf2gy3Us1/uItzfUPoL5/7Y94/fOeuLhN9v3y8Psx9E8ZH39RcjeXYmr0C1HlIK4h8v\nt2yxvsh93c/pd4G0F8oSN7I4Gl3lpV1ly/rnup+XTqnwFsbh0+/Cz6zP9/eZ9S355T7tKru3\nNdfxXamr7Bv5/Sh0lT1euUC1HlIK4teXW7e4P/TL0n2Wyet80uG2kseNLI5GV3nDIMWPSSm6\n99V/CW3Kb+7m7pb8sMr7U+iLurcdPO/VD/e/8kGKj72zh9kgwNfwoyu81hPguY7K+0Ms/DkV\nOaQUJL7cY4v4Iv7nL48nJvI+DpDshZEvG1kcjRO+vm4t824adjvtN+285ODRNa/31mDohD8j\n5lVgXnLw6JrXZ2vwnK/EeRWYlxw8+ub1h8/nNefmVWBecvCwvFpMGyavxbRh8lpMGyavxbRh\n8lpMGyavxbRh8lpMGyavxbRh8lpMG8dmlcW/RljmyXYZTOr9gdraX/7YrfDArc9RWrXoF4fk\nzW6qe1O93Invr6Sk/KzCM5uO0kQ9NzrIu+dtPf6kfWHyvlJ0kvdG/kDx2ZS4+eTOes+zf9Ln\nP7+d1+9maYf0gdrtur8bp3i+Fud5npvkSRxfaM9Rpk/kMPxYLNqjm7yxJq1OCndYE2P9lz3/\ndvPEpsIO2QP1W7qKLdN6Gv+Nj1Dc9qMUnyjwWeyME+X1wh22SemtvAlY6ROyB3xyK6+XAVOe\njU9J61EWP0nJYVjsiBPkXb5XfXZHLy//QS/skD4Qn0zqaCbJuo+UKefRyKs8yi15baLvwThB\nXvpouRjeln9leek7e0ufkDxAnsy/xZOn3cqAnEdbeetHuS2v6XsscOWV1OG80pOzPearkOQ9\n9gb83qODvElRE2VM39alYErPl36w3dIdSg9s3NKnMpG5+8mhCC/UdJTsieu+i59Gi7Y4JC8b\nYVvfqRv5pU7vhLeQFjP5+U9XhI4qLz+g7CqLr593laXy3m7crJWg6Sitq+zcsORdFJbo/mE5\nvSgs0f3DcnpRWKL7h+XUYtoweS2mDZPXYtoweS2mDZPXYtoweS2mjQPyvl8bHQ52FuBZOEcT\nm7yAwLNwjiY2eQGBZ+EcTWzyAgLPwjma2OQFBJ6FczSxyQsIPAvnaGKTFxB4Fs7RxCYvIPAs\nnKOJTV5A4Fk4RxObvIDAs3COJj5Z3rdHpGs37lWJz0uxHjZ/Vlfgbpyq3HZI7KDMnl95azAa\nWkp8XorVsG+KZ55beXWcutx2SOygzF4l7+MT9fb+tuAteX3Dqbxq2Ld3DHnrnHXKa+XVaFBn\nXl71InmfrHdU+p8SlhGfn+Iq7JuKejwnTLOhgRhY3vcUWQXLiK9LcRH2TUU9nhNW3g1iDfLy\nqibvDtg3FfV4TpP3AHAbtZIYIMVvKurxnDPK20Jsbd4dsG8q6vGcsPKWiTXAOL0NgPLWYcf2\n8+o50eStEkvdwWXia0fY6lx14lNT3Av2GPAsnKOJTd5TYI8Bz8I5mtjmNgACz8I5mtjkBQSe\nhXM0sckLCDwL52hikxcQeBbO0cQmLyDwLJyjiQ/I++s9Hv8mi5WV+7bpkOIuHOqVr8+pID6F\nfQmT9zT21+dUEEPL++f/F+PPwpK4smEbwt4rxf/x70usS/9eXrn/zTjI+W//usS69K/qlbpt\nDnImxP/8v5eQlvhKk3cXsclr8pq8Jm9CbPKavCbvifI6Cgwsr1tRKTGCvG7rQUx5ReS40uTt\nL28SJu8Ly+ucexKFqvW8F27iY+6x4LHkdZQ13jwOZU07kLw8qUvCKSeAvG6hzJAJ+Uo8VF76\njj+QyQ1b6f2nT5/CNn8+N7YMEMhT5JX9Dvwg/o+2UBK0RZLUlZ5w/tsFocuq5IEXMvvPDdEl\njam8XuLLbkIgVd4Ca9LsBaq8JRNWzvGV19GbbeTxlTf9FptI3kdjxuTtKi9rG8DLW+KDl7fE\navIekpdyocubN8FKbZ0VGEZeJyE7IcUmr1berAggy0t+SQYwsbfBx5/vQPLemTJkx3E9nrxp\nwhnneHmT3oYU2WPJmyWY8mXR+mbuEYAsbSRZi9yFQ71yf8zCqSA+hX2Jo/LurrzNB6RIoUre\nauU9ltg8xe0Rtu9fec+Wt155te91ZeUSw+Y2NBJfOLfhWGLzFO/kNHmLK5cweU3eXpk1eYsH\n1CvFJm83zoTY5C0eUK8U48rLf7ujyeuEHxOtvQ3a97qycgmTF0dezgkob3ld2BOavMmMstjN\nF4FR5HWlTukn90o8VF4yip1N14OrvIzQPbrSWaJXGcKewOTlgyt0hO3wrLLN122OZFTQp9wt\ns8r6komYAqtbE3vWrLJm2jSbGS4nvmgu2RpVedclOs5yj/ApAKm84qilPOw6svIyeTNkvMpL\nUynWBUaMV3nDzfpt55KvChR52bSyfHocIR4qr3N8rDUjXzlx5I2EGe4E8krFwYPJy9PNgJHk\nXW5K3xKEE0berNngp5F3+cDN1myAlbfQ5vWpCgDypm//XM2G+HMzkqL3NtBmgzxbC7W3AVBe\n/vbz3oYo9UqMJu9WtL6ZejhxaT9oifhk9kq48kMgnBuEauJT2Jc4f5Ci1wHtB+XEW5W3Q2Lz\nFBeiJm/XyruLs1Xejcrb+F5XVi5h8o6St8Y5Xt5WYpO3eEC9UmzyduNMiE3e4gH1SrHJ240z\nIZ5B3sauskMCkKX9meW/4pHkdcKSx5fXZe3hsCeTt3hAO5KcRtgTkrx5UldObHmlzKLIWzgz\nFfuT0bAjEHkbZmshyUs7TtO/cgaRt+EscDDyiuMpZIRQP6tM8yYejY2RKwJcn1V2BWvCXeQc\nOqGMEtKk0pG2jPi66WTPKFbe+nBr+BRgVF4mr8RMiMEq7zXDw4c4paQmzd6wJ5jK+6QsnANs\nBQaRt2G2lsnbxNlwFjg0ebN7oPIuNxmlyXtM3tJ3L7S8tTavh5O30ObNpACV18HKqz4LHIy8\nr9PbAC4vfm/DsyxwAx7knBhH3vrK1jdTDycuVZK8jS4Sn8y+nxWOkzbC2ohPYV/iqLyblbfr\nAamSvJXgrco7RooSati+V+W9Tl6UyquJsCM8eWvEQPJuckLJqyI2eYvb9EqxyduNMyGGljf5\n7gg7ApPXTdNs2MCcR17M3gYNcdgRnrwbEfZk8jZx6g4i7AlD3rVjJOmEWnpOVmAseR3t2GGd\nfSsxhryOzBuSOcfK23Y9SSh5WZf0oq1f1yon5my/f2cEAWdjFbWJOSNIVx9EzqFzcuTRKSes\nhJuYk4xOOWKuh282pOCqQYohzQZhHhHhHFp5yc+bjLFIDFJ5fe7ArPKS7zZoeTNOqGaDyauG\nE5cqMhAl0sobI+wJVN6Mc/gPtoq1sPJmDkjEYUczyItaeR//51UBQN7EU8duSpkFkZfMwFmm\n5sRcN5wlci+cuFSR4UnuEnlRexvor2Ga55UTodkQZ/OKvQ1ef7qnxve6snKJYrOhHmFHYPIq\niEHkvQcrXinn8GYD5yygUuLp5N0n4p5tVExNxCezVyN+pYFzauXt915XVi5hcxsGVt5Nzk6V\n90zOhLhceVvf68rKJUxek7dXZk3e4ja9UmzyduNMiCHlTbshKbDJW1x5kBNa3rQVHPaEKm8x\nxSZvceVBTmh5nzGHvMs0krbT+u+FE5d02ZSnP1FiCHl5NkVOIHmdwLr0qRNidHljzyTmrLJk\nRGi9hzarjGVT5hw5qSyllcaGc+KrJ5U1tHnZ2NU9wqcAq/IWB+EJMUTlzbKZc0JV3jSZjcPD\nre91ZeUSrfJiDw+npUx9NaBB8i5T0iVONHlXVj+rvGR12BG0vOtKQowkb0ZNONHkZXdnk5f9\nH4Ex5XWCwx5K3uSreILK65OczifvnL0NjBhI3vUXPH7llXob3ATyFiLsCExekuwSMZK8W5xA\n8tYj7Gk6efeJuGebBrJNeY9yqFfuQkTjVEYPDv02S5xYeTsfUK8US5UXTIqw/dHKewFnQlys\nvI1JNHmLxCZvN86E2OQtbtMrxSZvN86EGFte3lALOwKUN2tO8t/ESPI6+V7Y3uQtrlziBSvv\ntPLyzJq8xZVLFK9JwTr1yKwnfT/vfjhxSZvHx1Cr2NEb9jRYXqm79Jlc7MqbTYDL/t4ZRN50\njoBfiZ8uKGaVabPSO1zG/wQuzyq7FE4cqOp/EcH+4DktJ756UtmGvD7JNDH3EeFTgFd5C/JG\n4rGVN5siwIkJJ1jldXQpnSkAVXn9OtvJ5N3LvpVZem2+wsUOMeXl3Jjy+qQwmLzt7DpAjko4\nIeWVaCMxiLzCm8/THYFN3uLKSmbJBfkmkTenxay8+a/1yMuBEeV1En8kRmk2xE9X9icqkPL6\nlBu2t0EVYUeA8laIxzcbdJxo8taJp5N3n4h7tumV4qMc6pWvz6kgPoV9ibMq7yE4calXioXK\niyZF2H535b2OMyEuVd7WJJq8RWKTtxtnQmzyFrfplWKTtxtnQowprxPXhh3By0vZw57Q5HV5\ndsP2uPK6fCnsyeQtbtOe5Iw97AlMXim3YXtceQX4sKfh8pLuZz7dia1YgZHk3WJfiYfKm19b\n1OWJRZKXdZinc+GUV8BsTWIHeaMG6UBmAK7NKttOyTmxwb49q+xCxGyUSkjswVllXXk9I8yQ\nGfHVk8ryZoNb6hUDpkVteWb4FCBV3g12Qjy48tL3XjBh5cSovAzNFVagVF5ZgHSO2QqML6/i\nUlZj5I3plM+phiEvO0OZMIWeEoPKW/604cubEsPIG9ekiQWSl4NmvGjy0q+0cjsnAkPJW2Yn\nxGPlZanEbzZk7fMtF4Dk5ddOfn69+RQYU96cfSXG6G3gjNI51SDkjX8CVmg2sMwCyKuOsCMs\neTXEw5sNSk4MeVsyO528+0Tcs02vFB/lUK+UokHeoZzdMnsK+xKnVF5oecFG2Iqc+yrvpZwJ\nsVB5Td7HUq8Um7zdOBNik7e4Ta8Um7zdOBNiCHnFhpnjfSMeXl6XL4U94crLOYfLu9ERnUXY\nk8lb3KacOTlM3oOcWQInkVecSuRCn5/mr4cvkjc/nxo/tZoX5z4Nl5ehljlHypvk8dml67wn\nJymjKiDJm42ixBX0lFrhuQOnlHHKFS6fB/cEBphVFrhdOcWHZ5X1IczzyFOcqlCcVdYFpxil\nZsMKSY5GGK8aWHmdBJt+2sCGhwlxDgjTbEgzm33MUhWQKu+TLr0+43zySvPgAOUVB95x5S2d\nXQ1K3vTefPLSJ3pgeVnC4eXlh7ESo8lLWjuI8srfZ1LGoeUVOcfKmxaB2ZoN2Wm1nGPEYUc4\nvQ0kq5tzn5Dk5XO94XobmLlrC4xnHExeZbQmSQ8nLqm5XPGRLhzqld0yC8upIDZ5fzV5ITkV\nxNDy4o6wlYjzZkPXxOYp3sm5p9kwVt7pmg0mb3HlQU6Tt7hyCZPX5O2VWZO3uI1AILZu85W1\nrrKuic1TrApGHbZHlzcnNnmL29TyV145g7x5ZtHlzYlHy+uSzlNHensdeTwCD5JXOM8X6ZPm\n+Ejy8oymQwGH+3lPkLeBeLi8fDwlHwRaOqrHzipL+s/ZqFq+cgEuzSo7HZeA8zc/u3dwVtlY\n4tGzyhJVffzOFcYEw6dgTOV16Y0ILI8DDa68hRw7gglWedXEwyvvE6w0GAgiLz/7RS4vn/eE\nJq+EjC2vjhhF3vWeT4kh5GX5q9zAyZulGl5eHfFweSUl8ORl+ZOLAra8Ejm2vAri4fJmU7WE\n01SNl5dMw2K/gNdZWjG32eWdh8vLf7uzuf6g8iqJx8urj9Yk6eHEpQYyJfHJ7IoopBuOcz+x\nyfuryTuWcz/xlfK2RNiR1GzAljdrNvRNbJ7inZxNzYYxnAnx6GZDM7DJW1x5kNPkLa5cwuQ1\neXtlFl5e0uYJO4KWN22ghT0Nkzf2erCOdKkRGbafQV7ej2PyFrc5kltKPEpeR5dcui7nNHmL\nK5fYkJd2T8dZWqSjN+wIT152Oq3YRbkSD5LXrX97HeV18QRgjhRmTHmlE9jVr4AJIG9UeE38\n1qwyZTpOinwQaAEuzCq7iksYmyLDVi7lHD2dLMV3ySH4jHj0rDLOu9RaRsy/KhArryhvJB7Y\nbCjJ6yVOuMqbWYvcbJDlVUxGh5K3PjzcN7F5ilcuKq9wAriJ5BXProYv70ocdgQvL30o7AlE\nXrJuRnm5CoDysqxOLC9k5SXr5pC32OaNxJjy5ucDi8CY8gL2NiwwXF43j7xCb4PH7W2oRWuS\n9HDi0n7QEvHJ7K/F6TYf7cGh32YJk/c09tfifDF5LSzGhslrMW2YvBbThslrMW2YvBbThslr\nMW2YvBbThslrMW0ckPf92uhwsLMAz8I5mtjkBQSehXM0sckLCDwL52hikxcQeBbO0cQmLyDw\nLJyjiU1eQOBZOEcTm7yAwLNwjiY2eQGBZ+EcTWzyAgLPwjma2OQFBJ6FczTxifK+PSJdK9zL\nn7VBfF6K9cDp2s7A3TiFp/XkVBMrqVUevF9VeWssD9g3xTMvqrw64PX2HOBunArKKytvBeet\nlfgKeR8fqLf3t4UuKrCy1qEvSbEWGEPeGqcC8hBnC7GCWo28vOoF8j4Z74j0P85ah74kxUrg\nN02Sx3OqWg1Xy7tFjSvve456TSFrIFYCY8lb5Hx719jQIbF75JWoG78rMOTFrLxF4DdVlsdz\nsoUTOFuIVdQm7xFiHbD0s7kncC9OtnACZwtxG7WOGKHN+6bCviTFOmAVL0KbVwXaIbGd2rx1\nVk48tLeBP0FJfGqKlcAY8uIktk9vg+4L7f0qeXPy/XFZiscDz8K5l/go9fKqJi8g8Cyce4mP\nUi+vanMbAIFn4RxNbPICAs/COZrY5AUEnoVzNLHJCwg8C+doYpMXEHgWztHEdlr/09hfn1NB\njHpa//PgxKUzUwwmxSycCmJoef/4TzH+KCyJK//4T3sOqFeK//avlliX/ipb2eHNOMj5d3+9\nxLr01+WVIzgT4r//X0tIS/qVGw9zYpPX5O2VWZO3KE2vFJu83TgTYmx5+bW4wo7A5FVcLQxC\nXgWnydtXXgHY5N0lhcl7orz8CrN+ufHkcrNY8kbGhD2/9vBoeWVO51NONHkTWiGzIPIm1/Z+\nakuvWP7p06fwzD/uCm3C9LFekDq/LvkC/CD+W1X0J1xAC5wu5fy7tjgNOOWmtJz4788PzlSW\n1yf5ZZcrv0f4FOBU3iS/a8IT4sGV11Eyzsm/08Aqr6NL8nXqQSpvvCK9c/PJ61b4eCSEGEZe\nxjmLvITWOYcpr6emTiYvW0HyjiZvCj6DvBJtJAaRN2835naAySu0JeWKNl5eHSeevDktZuVN\nfgkT1ol6G+i9lRivt2GKyutTWtjeBlWEHeHIqyUeLa+WE03eOvF08jYkaU9iydI2jF7eoxzq\nld0yC8upID6FfYnLKu/J8uqJ65X3UGLzFO/k1FZeHHlrVVQLZ/IWiU3ebpwJsclbPKBeKTZ5\nu3EmxDPIu6+r7Dp5nbBEiDHlzXtNQeRV/ZgweSsH1Mw3lbw5p8lbXLnEtrzO0/7ex03s3gs7\nQpOX9u5yXI8gL52OxTp43fOxlRNG3nzyW2G+Hpq86WBQ7KFunlVWyVGn4CNAtPO/YVbZmXyl\nobWoRPOsshNpCfGC6dI1DbPKurPVKm9mLXazgQxUJSmOxIMrr5RUR9Pr0SqvQCtnFq3yJsiO\nEocdgcobJz/lc5/Gy8vmkc0rb/OsMi3cOfJ6luSwI0x5JSM8jLxV1LA9vLxZZtHkLbZ5Pbq8\nacssEkPIK7Z5uQozyAteeYW/BwPvbVgY48+LRIrh8ubT3iaQlzQZ+RpCDCfvRoQdocm7GWFP\nSP28hfyG7UHkbcjsdPLuE3HPNr1SfJRDvVIRW/Iice7P7CnsS1wwt6HTAfVKMVLl3eLcrryI\n8m5U3iY4k7dIbPJ240yITd7iAfVKscnbjTMhBpJ3s70bgWeQF6irTJffsP0M8qq7yprgTN5i\nik3eNk59ZnHkpVOy8hlFERhM3s1pcAPldVkHKUFLE4sgL+vWXU9Wl+jAM4sjrzCyRsaEWmaV\nVXzrGpvT4MbNKitQFRKrmVXWnzEFTgGz5GbEV04oC6GRN7nXOjx8pCqQJdXhCNYiNBtcCpdh\n5oOtQysvyZxYC5xEDFZ5xdNpzSNvMg0ORN6VClfetNkwo7yyERQYW152GDDyRipgeX3V2hnk\nZc0dfHklKyDklahw5U1QmQRTyOu8Z/OfppB3axrcOHlXKseo8qlaKydCsyE2GMXehjSzQPJW\nI+wITt4qMUo/b41zeLMhy+pGcsOeppN3n4h7tlExKeQ9yqFe2S2zwzmV8vZ7rysrlzix8nY+\noP2gnPgVKq8mXxdwJsTTVV6Tt7jyIKfJW1y5hMlr8vbKLLS8SdMn7GgGecd3lbVA+hnkTVvB\nYU/Q8iZpDjsyeYsrd0L6GeQVM4shL73kJb+Y1fInrxF4rLx75j6Nl5cyx0RnPehA8vIzrJFO\nXkh502G1VeWlY1oxq0yRlYOhGQdaRtgwzlVGsVdj6d++q2aVnU2YAheGB5Ozq2HMKsuHLell\n2HAqr5NwxRtCPL7yPittCrk2HML2UJWXoZYyC1J5/Rzy7pr7hCpvy2R0Tb46cDIf+Ni2ydvj\nB1vF2nnkTTnR5E1TDiuvS+WVXAg7Gt5syJq3tblPAPIWsgovL0OFlXf9m6v4I3P5P/ntjtBs\naJv7hCRvYVpZ2B5MXqm3QX+K0ya4482GerQmaU9iyZIuxZvwXTjUK/fHLJwK4lPYlzB5T2Pf\nH7NwKoivl7cBuNxs6JJYstQrxQjNBg1nsdmgzNcFnAlxsdnQCGfyFolN3m6cCbHJW9ymV4pN\n3m6cCTG0vI43KMOOxsrrCvekJY8kbwmccELLm/6+CHsyeYvbbOSwnmVCDChvGmF7aHnTwwh7\nApJXnJ3lfNK3N0Le5G+a44m+aF+vX08GlsyDQ5A3YrkEnHBiyKubYIgnLx+pYsNXmlll20k5\nEGSQh/6fDK/xZ0HNKvMslXliK7PKLsAjoC6BXVXOMnvxnLLaKU6zYdZsHGhQsyEnypRlTyTE\nCJWXYrkssViVN89yiRip8kqOQMgrXUEyk5dPfyLEUPKy61iZvEr2JSaUVybK5GXrCDGSvBk4\n4TR5iyuXmFNeReXNGhAeU170yuvSLEsqoMqb/9HSaHkjR3riVbHZkP2FAoa8bmk2wFdezQRD\nOHmr0ZokPZy4tB+0RHwy+0twuu2Hq8SnsC9h8p7G/hKcLy1vqdlwCE5c2g/KiavNhmOJzVO8\nk7PUbNDm6wLOhFhuNrTDmbxFYpO3G2dCbPIWt+mVYpO3G2dCPIO8qt6GToklS3tymrTYwp5A\n5HXsRuAEk1cE1fQ2tMOZvFKEPWHJW+acQV5OPFbetlN/hR2hyCtcq9PHyU8sxQjyxglxPnad\nq086os1XD06K7Kkc4kXChsqbDKY5YQRIPatMmZJekaFHeQmwclbZJbTrZDjyMWOcEJPKCHM+\nCpQSXzulzOfyeokvuwkRPgUglVdCTweHcSpvmtOmETZtvjpwbjHTtCNU3sZTf4UdgcgbB4P5\nhOmJ5M0GW6HlxWs2eF+1FlZeT02dUV76eNgeW17Pkxv2BN/m9ZjyCl9q6zJPMZy87P+VE03e\nYps3EiM0G7Sn/go7ApE3P5OWT3E9jrz5hDg/S2/D0tsE2WygtPRGiNYk6eHEJWWSt6ILh3rl\n63MqiE9hX8LkPY399TkVxIPk1QGjNBv0xLVmw8HE5ineyQnWbFAQC80Gk/ex1CvFJm83zoTY\n5C1u0yvFJm83zoQYTV7W15Q0f8OO4OVt7io7mNg8xe0RtseV1+VLYU9o8vqsoz9JMby8WYpN\n3m6ckPKuHZBuOa3WOhrEgWHkpfPJkj5fKHlZh7Tn4/Fs+AdD3hSXDQ8n150+BEcAACAASURB\nVCfBk5ePsqHOKmPDgulY0AKsm1V2DSeFI+xos8ryAbVsoG1zVtm5dHKzgV4oTIIOET4FKJVX\nGHFl0Cvx2MpLfj5EsvQLAqnyMjRXWAFVeWeUNx9xZecBW4khmg0EF1teNhqcNhtMXu0BVZK8\n3ojfcSvx+B9saeUClpd/i2XwkPImEkwir8u48eTdavN6xokib35eOAE57AlRXpdDr8Ao8grX\nknTZlN6wJ4hmA+tt8LQNETkh5CXnhUuSvJwJjhCjyKuJ1iTp4cSl/aAl4pPZX59TQWzy/mry\nQnIqiKHllZsNB+HEpV4prjQbEKQI22M0G1qI82aDyftc6pVik7cbZ0Js8ha36ZVik7cbZ0IM\nKq8ji3F6Q9gRkLyu+oywp6HyOg0msrwF+rAneHmdqqusW2LJ0t68pikeLa8iwvYmb3HlEjV5\n19lDyz+ac5V1SyxZqqaVzHPKp5itxKPlXftH2YnVMs5B8qZne0tIaa9/Sowmb2mUrTKrbHun\nJ0U+EkTGh9Szyq5gdBklS+zIWWUJVIHUi5m9elKZRl52g91sIAOA5F7TCNsVldfFpAojrX5o\n5c2hKjeEGK3y8gFBfHnXSVATyJtdyZNxmrzFlUsofrCJzQaPKa/0DsDKm8EyTpO3uHKJljbv\nBJXXJ6yw8koucM6x8mbv+ITyktlD2SStsCMked2Cu7Jiypuf/i2uWzkRextikueQdyNak6SH\nE5f2g5aIT2afmdOxmwPEJu+vJu/FnL8PecVmA7S8W82GDonNU7yTs9BsUOfrAs6EeLpmg8lb\nXHmQ0+QtrlzC5DV5e2V2tLybjZykIRR2hCAvgXabBxD2BCGv20x12B5b3oQ+7Ala3uQ5YUcI\n8qrxw55Q5K1xYssrEQ+W18VePtbBx/v54OR1S4ckmVjm4kG0zCrrkNg8xRLx0hGdnlmNcKLI\nq7+26PjKuyIWBoHiKbXCBgiTythQEB0iIiNtullllyIzwNjlX5tVdhniSsrTGuXNMjt6Vplb\nwZIbz3Ps0SpvKq/fM8LWoSrk9aGMTABzTpDKS37oREw+0hqJx1deLm964SKTV89eUSKRV3sF\nTHW+unCu773i2qJo8pbSHYFN3uLKTSOkystVQJGX8aHLK3yZZWqswCZvcWVdh1maDUk148le\niYfLm77vwjmqsOWVTlrGUowhbzbtbZbeBobMiUfLu7BpojVJejhxSUnVQHwy++tzKogvllfr\nbrnyYsu7UXl7JDZP8U5OufLq83UBZ0KcVt5GDj37EmfMbTB5WYp3cpq8xZVLmLwmb6/MmrzF\nbXql2OTtxpkQw8tL+kfCjjDldcKSN3n7cYo90/Dy+inkzWFXYpO3AyeivIUzfSWLjgBjykv7\nextmlfVIbJ5iEVA+FRjlBJA3zn17IrLO/vq5yho59OxLMHn5GNXyP198fuS2ZpVtvm2XRHIU\n91WaWWVX8nmW0+VedVbZZYg+fee9W+WVM3vxnLJcXr/msrQ4QbMhHyZeiREqbz7myr6Hw/bj\nK6/07rPr81WGhxs59OxLmLwA8jZcykqfr+OcJu+xxJKlLRmEtM8kL81+5DR5iyuX2GjzFvAn\nk9chy5slnHBCyJtN1MqlWImhehtK8joCDCvvjL0NjHO8vGTuW5xbFpOLJ29TtCZJDycutaA5\neXUXDvXK3ZhInCVELbHJ+2ujvBNIMQMn/cukSvTg0G+zxAF5LSzGhslrMW2YvBbThslrMW2Y\nvBbThslrMW2YvBbThslrMW0ckPf92uhwsLMAz8I5mtjkBQSehXM0sckLCDwL52hikxcQeBbO\n0cQmLyDwLJyjiU1eQOBZOEcTm7yAwLNwjiY2eQGBZ+EcTWzyAgLPwjma2OQFBJ6FczTxyfK+\nPSJdmzylifjcFCuAs7vdgftwCo935jyBWAN8YeWt8LzVn8KJz02xhub0T1sfTh3llZW3QvSm\nhV5e9Sp5Hx+qt/e3hZAa0ER8UYo3gKHkLXLqIA9xjia+SN4n5x2T/scOSkl8TYo3gN8Qmg11\nTm2r4Wp5N4hby8LF8r4nIoTH2oivTbEADClvzvn2/q4D7ZDYTsRvjcQA8kJX3hw4hT8BuAtn\nfMp5nP0za/KenOLzf8V34YxPOY+zd2ZbiYe3eZuJr01xDqzlHd7m1YJ2SOwg4vG9DVj9vApg\nKHkxEjuI+NoRNh3bNvHpKR4PPAvnaGKTFxB4Fs7RxDa3ARB4Fs7RxCYvIPAsnKOJTV5A4Fk4\nRxObvIDAs3COJjZ5AYFn4RxN/JKn9VcSDz+t/+ycCmLU0/qfBycunZliMClm4VQQQ8v7h/8Z\n4w/Ckriy8HDlgHql+G/+xxLrUlzEkCJs/4//sMS69A+KlRdyJsT/8n+WkJaWxTqcyVskNnm7\ncSbEJm/xgHql2OTtxpkQg8orXo4r7AhV3ngZ5ezyrSjyblziLGyPJ2+N2OQtHpA+yYzY5P19\nyrtcbzZegfZ51VkKjCcvvXIyTOXlV3MOl6OO/zwvQZxeI3mwvDuIkeTll8pOrvr+6dOn8KQ/\n9IttJ7XBODnwg/hvtqIPgwTFr+7OV9Cr00fOf9wZ44j/RRV9+EKo5E1unhE+BXCV1y03yact\nEo+ovLEFTnCy1CacYyvvHmKoyvu4cPJk8i5fbA5WXsY2hbxKYih515uZ5PXEWUx5KeEc8uqI\n0eQttXsiMJy8jBNI3q0WpKjCcHmbiZHkXXsbli/ixw0DhpMXuLeBZPK5yvHf9IwTobehjRhK\n3kq0JkkPJy7tBy0Rn8z++pwK4lPYlzB5T2N/fU4FMbS8h5oNQ+RFGWGrceqaDUM5E+Jqs0EJ\nZ/IWiU3ebpwJsclbPKBeKTZ5u3EmxDDyuvrqsKMZ5AXobVCkNs0stLzpMYQ9mbzFA9qVZCHF\nJq+Scyug5SUziMjkstB12rGft5+8ZCDbeYrtHr29hHi0vHlqj8wqO49TIPe8o7d5VpkSrkfl\nlYZX6FSi8DyAeWSeMK6IyyoCPG5WWQqbpFbkvHIOmRJcGmxrmVXWG6guL7nHh1XCpwCj8jJ5\nveAHIR5deeXU7h1hO5GzlOVU3kgMVXnZuDC2vC4btuRz4ggxhLxZaieU1zkHLC9DxpZ3uXEJ\nL6q8WWonlJc+FPaEJi9r6TpoeQtt3kwKFHn5j4g55UWtvI8vhueie65BlXertwFP3jS1M8k7\nRW+DIlqTtCexZKkpxSrik9m7ZRaWU0F8CvsSJu9p7N0yC8upIIaWV9ls6HBAvVK80Wzokdg8\nxTs5a80GAM6EuNZs0MKZvEVik7cbZ0Js8hYPqFeKTd5unAkxmLxi+3FPb8PexJKlBsJSuzfs\nCUXeWtscVd7Y4e/S/hGTt3hADYQm7+nyekx5pUlkLu06jcBD5Y090KTfP+mGpNPgUOQVzvwl\n9JriyVv7u+zx8rIhFHG0KhA3zirTZ6gh2AAV/ZfCEuDqrLJTKCVsmZFzIs0ny7kdU0E3q6w7\nkShvvMmtJR+38CkYWXlTLCeJsR4SSuVdM5wwto2wnc5Z5OZJXonHV17WNphD3mVuFl0Gllc+\n81c2RwtO3upZ4ADk9QRrDnmXe3QZWV723qeMkRNPXsqNKW/asplD3uT/vD25Eg+Xt9i0Aa+8\nqRmA8ia9DfFLbX0IRl5+Ji2fIIL3NiRn/rLehl7NBl20JmlPYsnSPsj86/goh3plt8zCciqI\nT2FfwuQ9jb1bZmE5FcTQ8o4eYWsnLjcbuiQ2T/FOTrxmQ4240mwweY+n2OTtxpkQm7zFA+qV\nYpO3G2dCDCSvKz5CgaHlTQ8h7AlR3gQ0bD+DvE29DSbvvtxSYkR5JU6Tt7hyiaK89VNqhR3h\nyVs7o9ZYeYWMevLX2YQTSV4+b48eACXGkVcYWaMDVgizygrcDDymWDGr7Ao4n2Q06/JHnFUW\nqaWhV/Wssv5cGnmTezgjbCVuSd5IPLTyOsYoDlZ5vMqbyMsPYCUGq7ybp9QKO4KXN5uthdBs\nYCdSm0De5FRw7ABWYjB5mQ5zyksfCnsa/oMtTewE8i43rPJ6fHmXAjaxvECVN2nz+ox15QST\nt9zmjcRI8jq//jaerPJO09tAUmq9DWr2JV59Ys4W8cnsr8+pID6FfQmT9zT21+dUEEPLq2s2\n9DigXimWmw3dEpuneCfndrMBgjMh3mo2tMCZvEVik7cbZ0Js8hYPqFeKTd5unAkxrrwuWwo7\ngpbXJffDngDlFTnR5E07zRl42BOuvDlx2BG0vGmEPZm8+zgzcz2mvOmlL1mfaew4DTsaKy87\n1xfp1o3TtdT9vN0Sm6dYVkHMLeUEkpedJIXNMGSFDELefBgoH1Zpm1WmSNCeIN3mfBRQuHxR\nZVbZSYQ1cl/mhJlTxsbVsgQrZ5WdAqa7Dpu0AqDycgUS0mTINRJDVF7HFh3jh6u8LudsHh5u\ngTvcbCDfZPl5PAgwmrxsAtwUzYbla6PtXGXD5M0SvBJDyMur2ArOlyDlFQsDTzGGvCln/g0B\nKm+W+ZUYRd60fEnfFWFHQPIKTV/p6xhCXgI4RbMha/NyFYDk5b/c82aDI8AYvQ2UOU0xeLOh\nyIkjr9jbED95KzGGvLpoTdKexJIlRY4biU9m75ZZWE4F8SnsS7yKvPT3TnuKwaSYhVNBDC2v\nptnQ54B6pVhsNmBJEbYvNRuAOBPiYrOhEc7kLRKbvN04E2KTt3hAvVJs8nbjTIjh5SUNy7Aj\nMHnFdq+iq2y8vJQ8bD9WXle4Jy15k7d2QK14QoQ9mbwazvqvX2x5WX/eYyFegysCw8krXEsD\nrfLWEjtO3qT3OZ6bzvHMLjPKHCfGlDcZwro/2DKrbMu2zrF5yc6NWWUXItYTuz2r7HywhYiR\nZRP14hhFfVbZWbxbzQa3lATmAq9jcJVXGL1Eq7y1xA5tNmQf/VxZ9kRCjFR55RzvOMXpgcSS\npQ1QlnqWd8hmQy2xQ5sNdXnZNTApMb68ScsMW94kx2FPqPKmnAPkzXFEedk6QgwlL8WfRd5i\nmzcSA8hbSexIeRWVN2tAeGh5+VSihTnsCE3e9VRawM2GSmJHNhuWdoGi2ZC10rHk3Y7WJOnh\nxKX9oCXik9lfn1NBfAr7EqcPD3c7oF4pRqi8Gk6p8mLLW6q8rXAmb5HY5O3GmRCbvMUD6pVi\nk7cbZ0Js8hYPqFeKTd5unAnxDPK2dZUdSyxZUnNVUowjbwpc7yqDkPfezZD+2UrYk8lbPCA1\nVznCnkzeVs6MMs902NNYeflfhsbLM7IeyfWPxcKOcOStX7JznLz0UpfydT7WBzysvEuG3fqX\n2iyzQ+VNxnscu2ErG2aV6XNzNPKRtQR43Kwy+ZQS6WgV5xx9hrIsUtaM+OpJZZm8PjNAugkR\nPgU4lTfB40NEhHhM5U2B8hv4ZoMgb4ywJ6hmw4Tybl6y0+StcdbyiyxvKa/zyFtyhRCbvGXO\nWn6B5U0Sylpm88jLsFHkZUkU5XUp5wzycmKEZkP80hV7G3zjucqOJZYs1ZPrfOGnPEvx0N6G\nNMnrDUksqLxsEjrjhZCXo7IbIVqTpIcTl/RJ1hKfzJ7nEp6zf2ZPYV/iqLzblRdRXqnyIsor\nVF5weQuVtxmug7w6YJO3uPIgp8lbXLmEyWvy9sqsyVs8oF4pNnm7cSbEJm/xgJrYnHgn7AlB\n3kobOGxv8hZXLmHymrwdIuwJTN44XsG6evX9vBfIS6eOZWf+4pfsRJI36zwnicWQV0ws76nW\nDVI0w3WVNx95084q29x5n+Bn1OJjgnTwdXNW2QWcObQ0pLk9q+x6xkJiyTBmfVbZeYiVZgMb\nqfKrCvcInwKAyisBOroes9kgjRFTzvGVV06scA+z8vpl+nQyV2sFhpKXTCaLwCZvB3mTWXrs\n3kqMKW+W8RUYSd7shoCvxCavjnMrsXNU3uQQsCsvAczbvJHY5NVxbiaWtnkjMaS8+VytFRhJ\n3nwyGb9kJ5y86TQ+llkgefM/uCM3KzGmvHK0JkkPJy5VQDXRhUO98vU5E3n7vdeVlUtU27yV\nFA+vvC0R9iRUXjQpwvajK28t2DVHw56kyjtS3mqKTd7iyoOc6PLmxCZv8YB6pdjk7caZEJu8\nxQPqlWKTtxtnQowkrxOWMmBgeR35jxADypvmN2wPJO/WLx9CjCSvChhbXs8TH/Zk8jZzTiXv\no0Nv7YikS02XsrpM3rQjMvanu6w3EkVecuIy0uW7cuLIqz0LHJi8+WDV8i0MM6tsAc4vY8Ob\nDVuzyq7C5MxSfoFmlVHULLWJCuVZZadyyc0GR992AT5E+BRgVN6cLpM3EuNUXlHeyIlTecXU\nCsQYlZeUXce9mEPeONw6kby0zz9sDyav4ixwaPJ6KsAs8orNhkgMKi99KGwPJq+UaEx5RQ2w\n5ZWnPU0lL3TlTVOLL6/Q2wAp7zrRaZlG5kiuceWdo7dBexY4FHk10ZokPZy4VM1wM/HJ7N0y\nC8upIIaWt1x5uySWLNVwtPLmlbdrYvMU78xsVnkb83UBZ0IsVF6T97HUK8UmbzfOhNjkLW7T\nK8UmbzfOhBheXqf+wdYlsWSpiVG+H/YEJa+jS5XehsZ8deWs4Yc9wcvrJ5B3O8Wg8macM8gb\nI+xpsLyFyRfJoiPA4+XNL9BHep5Up3vqmtg8xRKxJ7Nd2CjmygkiLxlRy64nCVV5+XgE6etP\nu/01E3MqSekW/MIv2ZgKAS5NzLmKNCGWULcm5lyN+WBd6JgCNOGbE3POhUvlpbyFRbBmQ5HR\n0QNaiREqbwIojgRiVF4mr09zC1Z5SzbMJi89FQKkvOzUVMDyOj60ynNr8ioPaFOFAiOwvHEx\nTyyUvMtN+nWGKG/+tQAvryswOlkKHHlXQGx5Y7NB9ANFXumUx9JXMgEGkNdHXLm3oXq6p66J\nzVMsCkHOROWc+CHDkHertwFM3qYIO0KQt76GEo+XV5dZEHk1eZ1V3lPgxCV1Sss57sKhXtkt\nsyicNXn7vdeVlUvML+9+YhQppuVUEKPKa2HB4pNyXbeVJq9FrzB5LaYNk9di2jB5LSy0YfJa\nTBsmr8W0cUDe92ujw8HOAjwL5+gweQGBZ+EcHSYvIPAsnCHWv7IiV5VL1z3nAWdPVK58TL/K\nnmnyAgLPwnmPdXIZn3fI1sXTcSVPVK6kE9noU0xeQOBZOO+hknf5Y81ESdFTrbzOmg2QwLNw\n3kNXeQ/KS+dsx9exZgMk8Cyc9zgkr9AYKLQQrPLOAjwL5z26y1veZfZMkxcQeBbOexyRV9uW\noH/CbPKCA8/CeY8D8jp5a2WNPr/Z8PaIdG36jPNzrCWuA78rec+VF4IzhPBHry5b96yfbKVz\n0jPXfl66uRdWXvGDrZ7BS3KsJ67gvGmJX59zdFwl76MMvL2/LTklZUGV4qvlLQK/vUPJO5Jz\ndFwk7zOT98TS/8ibcEWOuwC/aZFfn3N0XCzve2quNsOj5BWAIdq8dc439u12CufoMHlbgd+0\nyIM57+qezDk6xsurSnCfHHcBftMyD+aMTzmPc3SMb/OqEtwnx12A37TMr885Osb3NqgS3CfH\nnYCR2rxDOUfHtSNsumyeluNZgGfhHB0mLyDwLJyjw+Y2AALPwjk6TF5A4Fk4R4fJCwg8C+fo\nMHkBgWfhHB0mLyDwLJyjw+QFBJ6Fc3TYaf1PY399ztFh8p7G/vqco+OovH/6vzH+JCyJK5el\ntjejw8GGPf33fy6xLv1ntnKoFGH7v/zXEuvSf6lX/sXk3QyT1+QdGyavyTttFOWN5+Sj6+Jf\nJ99jGnnjkUDJK+SXcZq81SjJW0otWW/ymrxjoyDv43LJbj1P1PJH81iVl13COZ7Qil/emZws\ndpy8/FLkMblZhgmnyVuNjcobz7UTT4FC5P306XFBoT8diMPw/CwrC6QTVgbgB/F/q+IwWwrq\nMlwpw4TzL8ei7wFgRqXZwE/Ag1Z5V0jRDX4+IT+w8mZnNBIZOadV3mpsyfv4wgWWN202zCHv\nSm3yHgtFs8HjyiuB4stLk2nyHohtecErr6bN60Hk3WrzeonT5K3GdrMBvfKS8xLeucTeBu9R\nehuWjo/l36TZY/K2xgtNzHHsRkF8Mnu3zMJyjg6T9zT2bpmF5RwdV8xtOJBYstThYMOeNpsN\nGFKE7Xc0G0xedYRDN3lPkCJsb/JWw+Q1eaeNHfI29zYcEIAs7YNkEfaEKC/vxjF5lfGqldfk\nPYMTLGR5ybhwNkkLq/IKM9/4VWNoB2rYk8m7nxMsRHnjmEQ+YLXkuGVW2Yn4FCsdYFs+bI8l\n3ayyE1HrR7IkdvessnH0Y6Iur/f5TYjwuR1cefMBVmHwtWF4eNwPNqu87SHL67JxS+fkL+HR\n8koz30ze37W8yw0vuR5QXo5l8p7OiRStbV6PJ29SeZM2L+14CHsyeQ9xIkVzbwOWvPm8rLS3\nweT9vclLwhUfaU3SnsSSJeUB5byJvEc51Cv3xyyco+OovIrKeySxZEl5QBkvWRH2VKi8SFKE\n7dVF1uTdEeHQ4eStEpu83ThHh8lr8k4bJq/JO22k8q4dp46tECIcOrC8LoMPe0KUV+I0eatR\nkNe/hrwSMaK8EqfJWw0ibzIp69FTSgYryMMhwqGDyOs4fHIMjHisvC6Zo7d0puecJm81Vnld\nPkC13CcjbMt3ccOssguOIhldS4/hCbw5q+wCSgIaeaO8GadNIKsGk9cnUwOEwdf4RKzK6wVe\nYgQlHlp5SVuMjGGKnFZ5q6GWd/+ssiOJJUubh8HogOWNJxxhA/Am775oqbweVt7MWlh5PYUy\neY9F1ub1ZXlxKy9vnItt3kg8vNnAE8szTjhN3mrkvQ3M3PjtdmBW2ZHEkqXNw4jdIs9ixho8\n8VlhTwjNBpLNtTQknCZvNV7odE/s21hDfDJ7t8zCco6Os4eH8eSVKi+YFGH7jcqLwjk6Xkpe\nFbHJ241zdJi8Ju+0YfKavNNGq7ykPRkOHU9eR5d48zfsCU1eoYUetjd5q/Hi8vIIezJ593EC\nxoa8tNuXnajsme5w6GDyLlNd1o7erGd6rLz0apf8QlwN/bwXcE4RKnljftevYu2ssvOPIEHm\ncxyU5yq7kJDnMR3M1M0quw4XO7aaDW6ptWxQkw9iYlVeeXJDfXj4ysrLhinZ50s9PHwB5xTR\nLG/jZPQx8sZhbWh5Hb14tksza/JWo73yts1tGFZ5Pby8WbMhRtje5K3GZm+D84VshwiHDitv\n0pRciZHkzU+stnKavNVQyStfqTEcOpa8yTUmseXlVxi13ob2eKlZZY3EJ7O/PufoOHl4GFBe\nofKiSRG2L1VeIM7RYfKavNOGyWvyThsmr8k7bZx8Bczx8tIO1LAnXHl1XWXjOWHC5DV5p42y\nvPxiFOsNrrx0AECaBgcibzWxJq8yNuRN5z6RUSH1rLIrDmEljv9Hhdchwa1ZZZdS1hO7Pavs\nWljo2Kq8co5xK29hMkZ9hO3qyltJrFVeZdTljXOf9pyrDEBexUlHxshbTKzJqwxV5fXsZjJ5\nUylg5C0m1uRVxks1G/i0lwnktWbDoajKm/0odhPIK0+Dw5K3nFiTVxk2q+w09tfnHB0nDg/3\nSCxZ6nCwYU/DK6+SU668UJyjw+Q1eacNk9fknTZMXpN32jhxYk6PxJKlnQeI11VWzijjNHmr\nYfKavNMGk5efPItd4IFcs3HpjwyHPkZeBkWZk57Txz+Y8rLrigrD2CZvNai8yZiPYzdspWpW\n2YnUDGqVl6PGmwUYZFYZPwYOXZ1VNgQVNVJ5/fbwZcvwcI+qQJZ8QkqhyJSG+ASXLsFVXlHe\nyGmVtxpbzQZ8eZcZWVxe6cwjKzGovMrh4es5gSP9wVaxFkze5R6TlzC6eeSlD4XtTd5qtLZ5\nPZq8yf8MejJ5rfI2htBsiNe9FHsbvIfobVhQHL0bUcmDwL0NSVbX4hu2N3mrsT0l0pNykEVr\nkvYklix1ONguHOqVr885Oo7KCz9IkRGjVN4ap1XeatjcBpN32jB5Td5po0le3oQIhw4jb9rd\nRHgBf7C5jXsmrzZepvJKbXOT9ygndhTkdbx/LJ48ae0og5KXnCBfBKfEIPImHZDOW1dZc8jy\nZsMVUd7l23nsxJwcVz6HEgcGmpiTX0cw47SJOdUoy+sTFbJhzPC5hai84igrV3klBqm8qbw+\n5bTKW43NZgM7FdEU8qaDhOjy0qsdmrytsTlIwQrwHPJ6zysauLwpMeE0eauhavPyVUuOw6GD\nyZs0It0E8iZt3shp8lZD19vg19IA2tsQWwl0bg5ybwPFXVEJp8lbjZfp51UTQ8ibhaN3wvYm\nbzXsXGWnsTdFLi8mJ1ScUXmx5cWsvDmnWHmxOEeHyWvyThsmr8k7bZxxxpzx8jp5ddiTyduN\nc3SYvCbvtFHq55UudJd0m4ZDHyRvOt0toYxTiYT+Uxx5hdwSTpO3GsVBCmmYlQxYbc0qO586\nAXIFSjpyhTWr7HkQW5w2qawaxcpbmCOgGR4+v/LW8LIbQgxTeR1dUs5tsMpLoyJvNjvL5O0m\nxROr6SKCJi+NeuX1Ju+Z8hY5Td5q7G3zegh5xTavdEOIkeRl/CZva7xib8NTh8LXMYy87ORU\nJu+O2Gg21FaGQx/az+vYTT3CnnDk3eY0eatxVN59Iu7ZpgzUJu9RDvXK/TEL5+iwuQ0TVV40\nztFh8pq804bJa/JOG685MYd0ojrc3gaWTRphe5O3Gq8trzd5f2fyZpO0eLdq/SKCY+WllzSa\no/KSFBNOk7cakrx8wEoeYRs7q2wj1pE1+h/irLIYbDBla1bZSEjEECsv7UFdyxjQ3IaNiOTM\nYkIMVnk9SzHhtMpbjQ152Zk8hFN/hUOHk3c9zZqfSl7NRQRNXh5lefOZLXPI64mzE8lLV4Tt\nTd5qbLZ502uq+wnkLbV5IzGuvFZ5G2OztyG+8/yixNbb0FcKkmLCafJWo9Bs0EQ4dDx5a8R4\n8sqcJm81jsq7T8Q923Q42C4c6pWvzzk6bG7DvfCCSRG2t8pbDZPXmZoWSwAAAuVJREFU5J02\nTF6Td9p4MXm32+thT6DyUvKwvclbDZPX5J02JHljfy4boKCdvyHCoaPIS/6ymf3Fc95/Ol5e\n1me+dEjTUYqwvclbjbK8ybAaG3bDm1VG+Lxwszmr7HJWn+aYDKbYrDJ9iM0GV5Qgqw84lTeR\n16/AMcKexlfeZ6VNs2ojbK3xgvK69fKdHrLZIMtrw8PN8YLyshV+vQGX1ybmNMfmFTDF/DpM\neYU2r/Z0T20cPaRwvpTjldPkrcbGVd+la1BP1dsgfx0jyct7dHhmTd5qbMhbCpbifSLu2Wb7\nODaJl+jCoV65P2bhHB2FNm8psj9WMXmLK/fHLJyjwy7fehr763OOjgPyhvh00UrxibviBA79\nyoaYhXNgmLwdOEzeMWHyduAwecfEUXktLIaFyWsxbZi8FtOGyWsxbZi8FtPGPnnXcTby9wrZ\nyucERcUz5c3peB6baHE5sRpY3voFOSFil7zrJJJkpiRbGafGVJ8pb04vWZhOXbmWOF6SvQp8\nlHgWTow4UV7+l1kkQdqVeYp3Z/gYcSZFEfgo8SycGHFm5T0or1RddrcaDhErpXDSx62x1TAJ\nJ0YMkFf4zip8kRVf52piNfBR4lk4MQJEXnmfxSdeTawGPko8CydGXC+vti1BriUwWF7tp81J\nZa6NeBZOjLhcXqffvPzEi4n1wEeJZ+HEiCP9vC4ukf5EsvL5MWcrnXP0k7+5uZefOIZYByy/\nzgtyQoSNsFlMGyavxbRh8lpMGyavxbRh8lpMGyavxbRh8lpMGyavxbRh8lpMGybviLjdLO8d\nwpI4IG7eEt8jLIcDwuTtE5bDAWHy9gnL4YC4eWvz9ghL4oCwytsnLIcD4hb/sTgSlsIBYfL2\nCUvhgLhZu6FLWAoHxM1GKbqE5XBAWNL7hOVxQFjS+4TlcUBY0vuE5dFi2jB5LaYNk9di2jB5\nLaYNk9di2jB5LaYNk9di2jB5LaYNk9di2jB5LaaN/w8TWaTys3UGOQAAAABJRU5ErkJggg==", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "suppressWarnings(library(dplyr))\n", "suppressWarnings(library(drlib))#drlib is available on github and needs devtools to be installed\n", "\n", "td_beta <- tidytext::tidy(model15Prrateby)\n", "\n", "options(repr.plot.width=7, repr.plot.height=8, repr.plot.res=100)\n", "\n", "td_beta %>%\n", " group_by(topic) %>%\n", " top_n(10, beta) %>%\n", " ungroup() %>%\n", " mutate(topic = paste0(\"Topic \", topic),\n", " term = reorder_within(term, beta, topic)) %>%\n", " ggplot(aes(term, beta, fill = as.factor(topic))) +\n", " geom_col(alpha = 0.8, show.legend = FALSE) +\n", " facet_wrap(~ topic, scales = \"free_y\") +\n", " coord_flip() +\n", " scale_x_reordered() +\n", " labs(x = NULL, y = expression(beta),\n", " title = \"Highest word probabilities for each topic\",\n", " subtitle = \"Different words are associated with different topics\")" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "In this case I found pretty helpful to go and have a more detailed look at the word distribution within each topic (the plot above focus only on the top 10 words for each topic):" ] }, { "cell_type": "code", "execution_count": 11, "metadata": { "scrolled": true }, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAA4QAAAPoCAMAAACxpsAoAAAAPFBMVEUAAAAzMzNNTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD1jYb5kYr///9r6nCMAAAA\nCXBIWXMAAA9hAAAPYQGoP6dpAAAgAElEQVR4nO2diYKrRrJt63Emu+3jdl/+/19fDRoYUgSQ\nSbAi2LvbrkFoOchkCQSB6q1XFOXUvJ1dgKJcPZJQUU6OJFSUkyMJFeXkSEJFOTmSUFFOjiRU\nlJMjCRXl5GAl/Pb27/u//3l7e/vn/eu/b99eLPdmr0FpkefvPr67//NnZxD/+f72opK3R7bU\n+Qs7/opfsBvBz7e/3v/9n/eN+j/vX/96+/liuaYSfv52idi9tGyXhL9WVK+kD3Yj+M/bH/3H\nVvrH26/3r398qlhKtYTDn0zY8gJblfr5UlnlSsFuBL/fvvefB6WfX7+//X4/FnzfaH9+HJy+\nvf3uvn8eG/54bvjv3/x4+z58+Ln4/ZH+7x9vb92vydKPf772Y5/Efz+e/HFA3P/RvX378/Hf\n+FxiWkj/LOErhf/052P//Pj6r3+l6/6WhApYwtuh4bd3D28//Pt5LNj9+/HT9/fD08+ffwwk\n/Dl/+Pbzj9t3f30dMP4a/q4s4eeTP979/fp8xp/3/8bHEtNCxiX340p/Dv4zX7//cV/81/Z9\np5Ix3I3gx/vO7/f7Jv7z8+uPDx2+f+wSPzfdj93Jx8//fh9I+P3f6cP3n++PfPs4qv39Zdpz\n6cJ7ws+D4F8f7n2cGPr7rXv8R/p5IY/cayn9pz8e+/W+OuOdnyRUyBL+8a7An+/S/Ofz6x8f\nBv3zcbr025cYj5+fEv4uPXz/+Z+vs5r//PXH9y/dno8WJPzc/fYf6ndvP/96FvW5wLSQ8aOT\nBX4P/jNfZ3xLz1CuHO5G8Pf7buO5N/zrvsE+XBn9u196ePDz9/sJzPGjMwmfZzr/ej+E/PZQ\nbXD69EnpR4+++E8XFu9Lv1GuF+5G8O/7MWD3uc1/fP23iYQ/3779+dc/myR8P3z99tb9PfyP\nSEKlacAbwbe3rzOk77vDz/dk30ZHkIXD0c8fv08eHh2Ofp34XH04es+fY9OnhTxSOhwdFqXD\nUaUU8Ebw8+3H57XCP95+fp6CHJ7u6D9//3nSY3Bi5uM8zR/3h0dnRx6P/H07lzNeeibhr4/n\n/eeD0L0/5ffrEzOjiosnZgb/mQ/qb52YUSYBbwQf3TIf50T+ul0iGJ747+8/Dy9RfLzhe/ad\nlS5R/Hp7vicsXKLoP5//8c3Xkz/Oqnw95Y/Hf6RQyCP3H8fXMJ5F/fO48DF9hnLlgDeC34++\n0U8bxpfAP3/+Mb5Y/8/38cOjK+Y/Pk+uvP/q+9835W6/G0r4513Czyd//3wn+Kt76+4O3tDT\nQsaPjhcYFfX7++33s2coF06ejQC5PSOLUmDJs5Egt3dkUQoseTYS5PaOLEqBJc9GgtzekUUp\nsGgjUZSTIwkV5eRIQkU5OZJQUU6OJFSUkyMJFeXkSEJFOTlYCf9rxV5ibVKTgCURSaeUdN/W\nJWFyErAkIkkSlmKuwf/9r1VSk4AlEUkHlCQJdw1bRhKwJCJJEpYiCWGg3KRsEnYvfv2VxYUH\nP0lCGCg36SISLj5ye1wSNicBSyKS4kj4tSO7/dP1t5++1OkeP832dhMJu+HzuoF7nfaE7UnA\nkoikMBI+7Pv60o2+jH65JOHk6Y9nPy3t/997zGr+T1HIWS/WVgn7mYulL0uA2RO6yQJf0Z4Q\nBspNCrMnnB6OSsIAJGBJRFIcCW37JCGNBCyJSAoj4Zr3hOslXHhPKAnRW1dGUhgJb4ejtxOg\nL86Oji80FCR8fXZUEh5AApZEJMWRsGCUee3PePrL2Gtgr+TKpCYBSyKSgjZwL0jYldJaQuDL\nKZHkVtIx26kXKaiEB8dcA+AGTyRJQl+QJDxk64pNkoS+ILaEauA+hSQJfUFsCXv7faAauNuT\nJKEv6AQJJ83bj6sYL5buR0tPL1GogfsAkiT0BflLWGzerr9YrwbugKnakK6dagmf3w36SpcW\nV9uaK0l7Ql/QKXvCzy/dYy+4dDuhJDyBJAl9QWdJuKpvVBKeQ5KEvqAT3xMO3w+qgZtEkoS+\noBPPjj5Mqjk7KgkPIElCXxD+OuEwauD2IQFLIpLySagG7gNIx28TVyblk7BFzDWIoU470vHb\nxJVJkrAUcw1iqNOOdPw2cWVSNglfHGiqgbuOdPw2cWXSRSRcfOT2uCR8TTp+m7gyKaKE40+W\nmV91WJJQDdy7SMdvE1cmhZRw3LrdT66/L0moBu592TdRSoDs3hOWJOy3SNhPDex77QkXSMe/\nMF+ZFHJPeFNo0LotCSVhXFJkCWc/ScKjSMdvE1cmhZTw0PeEklASOpNCSnjE2VFJuEQ6fpu4\nMimmhGt/uYkwSMuVvTIJWBKRlE9ClwZu4EwSScCSiKSIEh4fcw1iHESuTM1UGhPdCpSbJAlL\nMdcAoE47Us1UGhPdCpSbJAlLMdcAoE47Us1UGhPdCpSblEbCbvRl9qjuonidmqk0JroVKDcp\njYRFr9Y9cntcEu6YSmOiW4Fyk+JJ+Pwjvberfo+fbp/5tCih7qKYp2YqjYluBcpNCihhN2x6\nuevXP3+7JKHuoihkzywoWbJzTzjsVvv6dtTHtvA89Y6WUvN6arzatgLlJgXcE0rCxqSaqTQm\nuhUoN0kSSsKaqTQmuhUoNymghN1UwqmXKyTUXRSD1EylMdGtQLlJASUc3C5xv4/i/o/5V5l0\nF0UhNVNpTHQrUG5SRAnrowZuHxKwJCIpn4T6GPxNqZxKY6JbgXKT4knoEXMNzlanHalyKo2J\nbgXKTZKEpZhrcLY67UiVU2lMdCtQblJ4CbtV7xLVwP0qlVNpTHQrUG5SBgnbLHjRBu7KqTQm\nuhUoNymDhN3z8t+CaWrgLqZyKo2JbgXKTcokYZuL9Rdr4K4bfSV82r0nfPzderWtbUzl66nx\natsKlJuUY0/Y3+8uXHsrkyS8p3IqjYluBcpNSiWhtaAknKdyKo2JbgXKTUoi4eifFRKqgfue\nyqk0JroVKDcpk4RVZ0cl4a6pNCa6FSg3KbyEu6IGbh8SsCQiKZ+EauA203AqnUC5SfkkbBFz\nDSThqgA3eCJJEpZiroEkXBXgBk8k5ZFw8RBTDdzDNJxKJ1BuUh4JraiB+5GGU+kEyk2KKGH5\nL/SOrze8klAN3P+ThDRSQAknXS+Tj+BellAN3B/ZNexKzuyXsJ+4aBnYTyTspwb2o2/NlxHt\nCVcFuNchkgLuCe+HlN34z8FIwtVLNpxKJ1BuUkQJ+6E+knA7qeFUOoFykwJKOBPphVRLEl67\ngbvhVDqBcpMCSjg9O/p0q+bsqCTcNZVOoNykiBLWRw3cPiRgSURSPgldGriBM0kkAUsikvJJ\n2CLmGoQ4HPWYSidQbpIkLMVcA0noC8pNkoSlmGsgCX1BuUnxJbTe330tdMW7KDym0gmUm3QR\nCVcsl+8uCo+pdALlJoWSsOsHl9vvrTKzXyxKeKW7KDym0gmUmxRUwlLny/0XSxJe6i6KjaOr\nXDKbD0e7+75vegvFqInt1XP7yfOy9456vJ46gXKTQu0JyxJO76mQhLd4TKUTKDcpgYTTeyok\n4S0eU+kEyk2KJeHwyHMu04Y94SXuovCYSidQblJQCQe3UEzOji5L2OouCuBMEknAkoikYBI2\nihq4fUjAkoikfBJe9GPwtXXFJeWTsEXMNZCEvqDcJElYirkGktAXlJsUTsLikeTscsNsgfQN\n3Nq64pIuIuGrJw4fl4SP+cGBcpMCSjj8mKfBJYfu8dCShGkbuLV1xSXFk3B2cf551X1xb5i8\ngXvHUCrK/sPRp319P7FppYT91MDxU82XEe0JfUG5SfH2hP29QebRuC0J/ycJI5PCSjj9SRJq\n64pKiizh6J3gNgnzNXBr64pLiirh8+zo08UVEub9GHxtXXFJ4SRsEjVw+5CAJRFJ+SS8YgP3\n1gmw5gcHyk3KJ2GLmGsgCX1BuUmSsBRzDSShLyg36SISJm/g3joB1vzgQLlJF5Gwt98HRm7g\n3joB1vzgQLlJkSQc9253z0+WGV94WJQwZwP31gmw5gcHyk0KJeG4d3vexn3ZBu5t46goz2ze\nE06aZebNaxdtW9v6Kmi9SOJAuUmh9oT9sHd7dBwqCbV1xSVFlHDsTHHfKAlrEnvrikcKJWFX\nUm6XhMkauLdOgDU/OFBuUigJJ2dHH99OPo97QcKkDdxbJ8CaHxwoNymWhK2iBm4fErAkIimf\nhNdr4N4+Adb84EC5SZEk9Iu5BpLQF5SbJAlLMddAEvqCcpNSSbhwViZzA/f2CbDmBwfKTbqI\nhNaDfR+4gXv7BFjzgwPlJkWVcHiV8NHPvXiNwrhEEbiBe/sEWPODA+UmxZdwdv19ScKUDdz7\nR1FRag5Hu/u+b9Qus3DMmbdtbfuroPUiiQPlJkXdE5YlNO8nlISr5gcHyk3KJeE1G7i3T4A1\nPzhQblJYCYenZrZLmKqBe/sEWPODA+UmxZdw0r299+yoJBzMDw6UmxRXwpqogduHBCyJSMon\noUsDN3AmiSRgSURSPglbxFwD0uHojgmw5gcHyk2ShKWYayAJfUG5SZKwFHMNJKEvKDcpsoSl\nKxIv3u1lvotixwRY84MD5SYFl3DV76xHbo9LwuYkYElEUlAJ75f5ns1qX5f+FhrX0t5FsWMC\nrPnBgXKTYko4bXi59F0UewdRUfo6CfuphP0WCfupgX2vPeHzRRIHyk0Kuyd8avT8VHxJ2Cax\nt654pAQSPn8lCdsk9tYVjxRWwtl7wk0SZrqLYscEWPODA+UmxZSweHb0odeChBnvotgxAdb8\n4EC5SUElrIwauH1IwJKIpHwSXudj8PdPgDU/OFBuUj4JW8RcA0noC8pNkoSlmGsgCX1BuUnZ\nJLxSA/f+CbDmBwfKTbqIhIuP3B6XhM1JwJKIpKASjv9o7/OLKWGmBu79E2DNDw6UmxRVwhcX\n6hc+/TdfA/fu0VOUR2r2hC+6Za7Utrb/VdB6kcSBcpOi7gn7UfP2qIdbEtYm9tYVjxRcwpE+\nkrBRYm9d8UjxJdx1OJqigXv/BFjzgwPlJsWWcHZ21Doxk6qBe/8EWPODA+UmBZWwMmrg9iEB\nSyKS8kl4iQbuygmw5gcHyk3KJ2GLmGsgCX1BuUmSsBRzDSShLyg3KaSEXeGAcny1YvZosgbu\nygmw5gcHyk2KKuGr312kgbtyAqz5wYFyk+JJ2D3/Uv3w+sTgqsOShEkauCsnwJofHCg3KZyE\no0vtwy+zDpiShFkauHcMnKKUslPCYsfZuJHtxRPTtK1VvgpaL5I4UG5SxD3h/HBUEm6bAGt+\ncKDcpMgSToWShI0Se+uKRwos4eC7lu8JJWHwrSseKZyEw6PP4Yda1J4dlYQHkIAlEUnxJGwR\nNXD7kIAlEUn5JMzcwN1qAozE3rrikfJJ2CLmGkhCX1BukiQsxVwDSegLyk0KKqF1PDlbPkcD\nd6sJMBJ764pHuoiEK54SoYG71QQYib11xSMFlnDav32/8LAoYewG7lYTYCT21hWPFFfCQv92\n+gbu3eOlKC/SQsLJT7nb1lq9ChqJ/RIfjxR4T3g70zL+9G1J2CCxt654pMASPtWRhBsnwEjs\nrSseKbaEg/7tbRIGbeBuNQFGYm9d8UhxJZz2b6+SMHgDd6sJMBJ764pHCiphZdTA7UMClkQk\n5ZPQpYEbOJNEErAkIimfhC1irsEph6PtJsCLBCyJSJKEpZhrIAl9QblJkrAUcw0koS8oNymN\nhMtv81LcRdFuArxIwJKIpItIuGIB/l0U7SbAiwQsiUiKLWF361/rR1cOXy3b9wvXCQPcRdFu\nArxIwJKIpOASzlrQMt9FUTdWilJKgz3hTgn7qYHjp5ovI9oT+oJyk4LvCccSFs69SMIdib11\nxSOlktBcVhKuSuytKx4pm4SZ76JoNwFeJGBJRFJ8CRudHZWEB5CAJRFJsSXcGzVw+5CAJRFJ\n+STM+TH4bSfAiwQsiUjKJ2GLmGsgCX1BuUmSsBRzDSShLyg3KZOES2dlojdwt50ALxKwJCIp\nk4TLid3A3XYCvEjAkoikgBIOurbHn/LUTdqwSxJGbeBuOwFeJGBJRFJECcfazX5akjBsA/eu\nkVIUM3v3hIX2M7tzLXbbWttXQS8SsCQiKeKesH/0akvCfRPgRQKWRCRFlXD0rSTcOAFeJGBJ\nRFJgCYvvCVdKGK6Bu+0EeJGAJRFJQSUcnx19/mWmtA3cbSfAiwQsiUgKKGFRrrbPabmyVyYB\nSyKS8kmYsYG79QR4kYAlEUnxJTwi5hpIQl9QbpIkLMVcA0noC8pNyiFhV/huvEDsBu7WE+BF\nApZEJOWQ8JVX6x65PS4Jm5OAJRFJASV8XJ24X6R4NNGskDBmA3frCfAiAUsikuJJWGp6GXew\nLUgYtIF7zzgpyprslrCfSPf83UoJ+6mB/ehb82VEe0JfUG5SvD3h8CMOhxI+W7olYWVib13x\nSAElnHpU+FkSViX21hWPFE/C1+8JN+wJgzVwt54ALxKwJCIpnoSvz46u2BMGbeBuPQFeJGBJ\nRFJACRtEDdw+JGBJRFI+CV0auIEzSSQBSyKS8knYIuYa+B6ONp8ALxKwJCJJEpZiroEk9AXl\nJknCUsw1kIS+oNykuBJuuqM+9l0UzSfAiwQsiUi6iIQrlgffRdF8ArxIwJKIpMgSDq8XPq7d\nv3Qt8F0UzSfAiwQsiUgKLOHs7oluvDsrSRjzLoqaYVKUxVQfjs4lXF4+aO9o81dBLxKwJCIp\n8J5QEu6eAC8SsCQiSRJKwuNIwJKIpItKGOsuiuYT4EUClkQkhZdwcFPFCglj3kXRfAK8SMCS\niKS4EtZEDdw+JGBJRFI+CZN9DP4hE+BFApZEJOWTsEXMNZCEvqDcJElYirkGktAXlJuUSsLX\nZ2biNnAfMgFeJGBJRFIqCWderXvk9rgkbE4ClkQkRZVw3L49uPKQrYH7kAnwIgFLIpLCSlhs\n3zb3hPEauPcPkaKsSNWesNAos17CviCt9oTNScCSiKSwe8KRTc+bCiVhg8TeuuKRkkhYkkoS\n7k3srSseKayEh70nlITBt654pLASls+OLtxaH7SB+5AJ8CIBSyKS4kpYEzVw+5CAJRFJ+STM\n1MB91AR4kYAlEUlRJTw25hpIQl9QbpIkLMVcA0noC8pNyiFhV/huvEDMBu6jJsCLBCyJSMoh\n4Suv1j1ye1wSNicBSyKS4kk4/UO9o6aZZA3cR02AFwlYEpEUTsJ50+jssv2ChMEauHeMj6Js\nyt7D0VHLdvEX5SeFa1s76lXQiwQsiUgKtye8fbbhi8NRSdgisbeueKRwEo5btvt+shuUhA0S\ne+uKR4ooYde9sCldA/dRE+BFApZEJIWT8EOgpcPRVA3cR02AFwlYEpEUT8IWUQO3DwlYEpGU\nT8IcDdzHToAXCVgSkZRPwhYx10AS+oJykyRhKeYaSEJfUG4SXMKXLdbrnvD8dbQG7mMnwIsE\nLIlIgku4yrB1i8Rq4D52ArxIwJKIJLiE3eNywvjSxPgjZiaLLEkYpYH72AnwIgFLIpICSPi8\nqj64Jj++Qj9aZEnCMA3cZgWK0iQr94Qbv7xGBWpbO/ZV0IsELIlICrAnHH95/m36+U+SsE1i\nb13xSOEkfApT/EkSNkjsrSseKaKE8/eEmyVceE8oCYNvXfFIYSQc30c4PTs6WmRBwjAN3MdO\ngBcJWBKRBJdw2ajDnt5yZa9MApZEJOWT0KWBGziTRBKwJCIpqIQHx1yDIw9HHSbAiwQsiUiS\nhKWYayAJfUG5SZKwFHMNJKEvKDcpmoTD63obzs5EuovCYQK8SMCSiKRoEr4yqH55zF0UDhPg\nRQKWRCRFk7C7X+QbfOp99/W/bnnnaFwn5NxF4TABXiRgSURSRAlHvS73XzwfWJJwRcfM6XdR\nbB8URdmdvXvCqYT9+J+Xz4zRO+rwKuhFApZEJEXcE0rC2gnwIgFLIpIkoSQ8jgQsiUi6qIQL\n7wklYfCtKx4ptITTmyhsCSPcReEwAV4kYElEUjQJ20QN3D4kYElEUj4Jo38MvscEeJGAJRFJ\n+SRsEXMNJKEvKDdJEpZiroEk9AXlJl1EwkAN3B4T4EUClkQkXUTC3n4fSGng9pgALxKwJCIp\nvISzD8R/veBoMWwDt8cEeJGAJRFJ8SWc9XIvSRiggbtyPBRlU9rsCadX8BcWjNC25vEq6EUC\nlkQkxd8T3nx6fiC+JKxN7K0rHimNhDORJOH5JGBJRFJ8CWe93GskBDdwe0yAFwlYEpEUX8LZ\nB+IvSRiggdtjArxIwJKIpAQSHvCklit7ZRKwJCIpn4Rq4K5O7K0rHim8hIfEXANJ6AvKTZKE\npZhrIAl9QblJF5FQDdynkIAlEUkXkbC33weqgbs9CVgSkRRdwtEVisWLFGrg9icBSyKSwks4\nvFZvS6gGbkUZpcmecNiytnAnk9rWTiABSyKSwu8J7//cjkclYYPE3rrikZJI+PgiCRsk9tYV\njxRewudbuzW9o2rgdiUBSyKSwkv4ODu6fFpGDdxnkIAlEUnxJVz6ceWzZmm5slcmAUsiknJJ\neD9Fc3gDN3AmiSRgSURSdAmPibkGxx2OukyAFwlYEpEkCUsx10AS+oJykyRhKeYaSEJfUG7S\nRSSMcxeFywR4kYAlEUkXkbC3T8ZA7qJwmQAvErAkIim6hJPPwN9/nZByF4XLBHiRgCURScEl\nHN5Dce+DWZKQfxdF5YAoyrY0kfD53XLLTJDeUZdXQS8SsCQiKf6e8POLfU+vJDyBBCyJSEoh\n4VgtSVib2FtXPFJ8CZ/3UGyQkHsXhcsEeJGAJRFJwSUc3UOxQsJWd1EAZ5JIApZEJEWXcF/U\nwO1DApZEJOWTMPTH4FeMv7ausKR8EraIuQaS0BeUmyQJSzHXQBL6gnKTAkq48u758XOCNHBX\njL+2rrCki0i44mmIBu6K8dfWFZYUUsJ51/bwN4sSwhu4K8ZfW1dYUkQJ513bo98sSUhv4N41\nIIqyP/sPR7vplyRtaxUvgnqJD0uKuCd8KWHh3IskPJMELIlISiWh+TRJ6EsClkQkZZMweAN3\nxfhr6wpLiivh40Tn9DdLEtI/Br9i/LV1hSUFlLBB1MDtQwKWRCTlkzBqA3fF0N9GtZrQnAQs\niUjKJ2GLmGsgCX1BuUmSsBRzDSShLyg3KaiEW/tHAzRwVwz9bVSrCc1JwJKIpItIuOIpZzdw\nVwz9bVSrCc1JwJKIpJgSfn3C4as+7iUJuQ3cFUN/G9VqQnMSsCQiKaaE84v1gz7uJQnBDdy7\nx0JRKtJCwslPcXtHK17/bi9t1YTmJGBJRFLgPeHtTMv407clYYPE3rrikQJL+FRHEn6OajWh\nOQlYEpEUW8Ju+A4veAN3xdDfRrWa0JwELIlIiirh8Ozohj0huIG7Yuhvo1pNaE4ClkQkBZWw\nMmrg9iEBSyKS8kkYtIG7YuTvo1qPaE0ClkQk5ZOwRcw1kIS+oNwkSViKuQaS0BeUm5RGwm70\nZfYovoG7YuTvo1qPaE0ClkQkpZGw6NW6R26PS8LmJGBJRFJgCaefxH2/WvFy8eHCuAbuipG/\nj2o9ojUJWBKRFFnC57X254X3sA3cVUOhKHtTuyecdHCHblurePm7v7TVI1qTgCURSZH3hPd/\nuk4S/ldbV1xSfAnHQknCBom9dcUjRZZw9E5wm4S8Bu6Kkb+Paj2iNQlYEpEUWcJ+1sFt/kEY\nbgN3xcjfR7Ue0ZoELIlICi3hYU9tubJXJgFLIpLySejSwA2cSSIJWBKRFFjCA2OuQePD0Yph\nH4xqE0pTErAkIkkSlmKugST0BeUmScJSzDWQhL6g3KTAEnYbzs3A76KoGPbBqDahNCUBSyKS\nYkvYcvEz76KoGPbBqDahNCUBSyKS4krY3a8PPj//vuYv9Z56F0XFsA9GtQmlKQlYEpEUV8Jh\nt0zLjpkz7qKoGgdFqUgTCftpR+jrxbG9oxWvfYOXtiaUpiRgSURS/D3hQC27bU0SupKAJRFJ\nqSS0FpeEziRgSURSNglj3kVRMeyDUW1CaUoClkQkRZZw9vn3NWdHJeEBJGBJRFJgCSuiBm4f\nErAkIimfhAE/Br9i1Iej2gbTkgQsiUjKJ2GLmGsgCX1BuUmSsBRzDSShLyg3KaSEs+PL5znO\n5Tt9p7999ZO5BpLQF5SbFFHC4iXBZQkXH7k9Lgmbk4AlEUkBJbx1bvf3jxvtB43cpoTIBu6K\nUR+OahtMSxKwJCIpoITjq/T3i4WDJu4FCZkN3PuGQVEapKmE/RYJ+6mB/ehb82VEe0JfUG5S\n4D1hN/hzTJJQW1dcUmAJ7z9oT3gb1TaYliRgSURSbAmPeE8oCYNvXfFIcSVsfHZUEh5AApZE\nJEWUsD5q4PYhAUsikvJJGK+Bu2LQR6PaiBN964pHyidhi5hrIAl9QblJkrAUcw0koS8oNyme\nhKu7sEe/JjdwVwz6aFQbcaJvXfFI8SSc+bXw07pHbo9LwuYkYElEUjwJn5cjHtcZBpcbIjZw\nVwz6aFQbcaJvXfFIMSWcXGsfNMBEbODeMwqK0ib794QDe8Y/R2xbq3jlG720NeJEf4mPR4q5\nJ5SEpVFtxIm+dcUjSUJJeBwJWBKRFFzC6XvCkA3cFYM+GtVGnOhbVzxSZAmHpzi7wZcFCZEN\n3BWDPhrVRpzoW1c8UjwJW0QN3D4kYElEUj4JozVwVwz5ZFR5JGBJRFI+CVvEXANJ6AvKTZKE\npZhrIAl9QblJgSVc2zT6+Si3gbtiyCejyiMBSyKS0khYvfhZDdwVQz4ZVR4JWBKRFFfCrw/i\n7p5XHR593UsS8hq4K4Z8Mqo8ErAkIimuhIOL7oPu7XgN3FVjoCiVafE36wffxmxbq3jdm7y0\n8UjAkoik4HvCz69dJwn/q60rLim+hGOhJCGJBCyJSEoh4fY9IaiBu2LIJ6PKIwFLIpIiS9jd\nD0fX7wmBDdwVQz4ZVR4JWBKRFFjCiqiB24cELIlIyiehSwM3cCaJJGBJRFI+CVvEXAMdjvqC\ncpMkYSnmGkhCX0cAjyIAACAASURBVFBukiQsxVwDSegLyk0KI+HsjofJlQXdRaGtKyopjIRL\n+pR/s3EB3UXRngQsiUgKI+HgLon7hcHbFb/BbyquE+ouigNIwJKIpFASPptcxhKO76dYklB3\nUSjKKJv3hLPGz67wwGuAekedScCSiKRQe0JJuDiqPBKwJCJJEkrC40jAkoik0BK++M0KCRfe\nE0rC4FtXPFJACZ938U5+E/Nj8CuGfDKqPBKwJCIJJOHHT28+TTSvVf1Ky5W9MglYEpHEkfDt\n659qC/Ux+BwSsCQiKZ+ELWKugST0BeUmoSR8m/7urJhrIAl9QblJkSUcndxcPsJUA/cpJGBJ\nRBJHwq+TMht3hJ39/q5sXOFxSdicBCyJSAJJuEGme9fo7aPwH9cJ9TH4LBKwJCIptoSTC++L\n+8W1F+vVwK1cKdPD0c+Yz+r6ru/GDo2+e/m0Xm1rziRgSUQSZ0+4ercoCV+MKo8ELIlIkoSS\n8DgSsCQiKaCEk9btXRKqgduFBCyJSOJIuGVXOLRpk4Rq4HYlAUsikkgSrjwx0yBq4PYhAUsi\nkjgStrIvUAP3xmGzRpVHApZEJOWTsEXMNZCEvqDcJElYirkGktAXlJvEkXC/hd393687ZpgN\n3BuHzRpVHglYEpHEkfBt94mZ4flN6+zoAkUSNicBSyKSOBLuSfe80rC8J+yRDdwbh80aVR4J\nWBKRxJFw5y6wm/1/SUJWA/f2NVaUxmkhYX/fiW2SsLS89oTNScCSiCTOnnCXhfdPOpSESBKw\nJCKJI+HOEzP7DkcloQsJWBKRxJFwRw55TygJg29d8UihJWx5dlQSHkAClkQkgST8PBTVJ3Bn\nIgFLIpI4Erb63FGXBm7gTBJJwJKIpHwStoi5Bk0OR7cOmzWqPBKwJCJJEpZiroEk9AXlJknC\nUsw1kIS+oNwkjoT97hvru8FFhkh3UWwdNmtUeSRgSUQSSMK96YbfRbqLYuuwWaPKIwFLIpIg\nElbo2M0+7OnFco+lKXdRbB02a1R5JGBJRFJ8CV+2oZUkRN1FUbHOitIo50lYWl57wuYkYElE\n0kX3hJLQhQQsiUiiSPiMJNwZIAlYEpFEkXCzenUSIu6i2Dps1qjySMCSiKQcEvZfFwGD3UWx\nddisUeWRgCURSQkk3BE1cPuQgCURSfkkDPMx+JuHzRpVHglYEpEEkRAWcw0koS8oN0kSlmKu\ngST0BeUmRZawe5xamR1vzhYFNnBvHjZrVHkkYElEUnAJe+OU6EvjCo9LwuYkYElEUlgJu9tH\nO913cY9rD8sSghq4Nw+bNao8ErAkIimqhKUr7l2/dFyKa+Dev/KK0ix1EvYlCZefgWpb2/za\nZb208UjAkoikwHvCsYSPnhlJyCEBSyKS0kg4E0kSnk8ClkQkZZJww56Q0MC9edisUeWRgCUR\nSVElHLVs31q4e1tCUgP35mGzRpVHApZEJIWVsCpq4PYhAUsikvJJGKSBe8ewWaPKIwFLIpLy\nSdgi5hpIQl9QbpIkLMVcA0noC8pNuoiEvAbuHcNmjSqPBCyJSLqIhL39PtC5gXvHsFmjyiMB\nSyKS4kr4vMbwdQUwWAP3jmGzRpVHApZEJIWXcPIlTAN3zaorSrO0knD206vlQW1rO167rJc2\nHglYEpEUfk94P8CM1sC9Y9isUeWRgCURSfEl7Kc7REmIIQFLIpLCSzj/skbC8xu4dwybNao8\nErAkIimuhLcW7unZ0WUJOQ3cO4bNGlUeCVgSkRRYwoqogduHBCyJSMonoRq4OSRgSURSPglb\nxFwDSegLyk2ShKWYayAJfUG5SUkkXD4xqgbuk0jAkoikPBLWLqIG7vYkYElEUkAJJ1cZ7hcb\nxtcbXkmoBm5PErAkIimehJPr7ZPL7mrgVpQt2X04WuqUMd8W3v+ltjU3ErAkIinenvD5YYeS\ncDyqPBKwJCIpnoSvekYlIY8ELIlICilhd+R7QkkYfOuKR4on4eAvE/YNz45KwgNIwJKIpIAS\njpRZcYHw9ZNfpuXKXpkELIlIyiehSwM3cCaJJGBJRFJYCQ+NuQY6HPUF5SZJwlLMNZCEvqDc\nJElYirkGktAXlJsUWcLZO7uF6xO6i+IMErAkIukiEloP9rqL4ggSsCQiKbqEs495euma7qLw\nJwFLIpKCS7jUhlaSUHdRKMoo7SW0OmbUO+pKApZEJOXaE5pta5LQlQQsiUjKJeHqw1FJ6EIC\nlkQkXVRC3UXhQgKWRCQFl7Dd2VFJeAAJWBKRFFnC/VEDtw8JWBKRlE/CGB+Dv2fYrFHlkYAl\nEUn5JGwRcw0koS8oN0kSlmKugST0BeUmZZBwxd31uAbuPcNmjSqPBCyJSLqIhCuW8m3g3jNs\n1qjySMCSiKTwEn597FM//CzSFwveFmc0cO8ZNmtUeSRgSURSdAmfV95vGi1LiGngrlxtRWmU\nNhIOPvNpqYOb1ba257XLemnjkYAlEUkJ9oT3w1FJiCMBSyKSkki44l4mSehPApZEJOWR8HGq\nZY2Epzdw7xk2a1R5JGBJRFJ0CW/HoY+TpIaEmAbuPcNmjSqPBCyJSAovYcm06sVaruyVScCS\niKRcEt5P0eAbuHcNmzWqPBKwJCIpl4StYq6BJPQF5SZJwlLMNZCEvqDcpPgSdoXv5gvBGrh3\nDZs1qjwSsCQiKb6Er5za9qhzA/euYbNGlUcClkQkxZfw+UkzXc1f6vVt4N41bNao8kjAkoik\nFBKOL8EvSUhp4K5cZ0VpldYS9qsl7KcGjp9qvoxoT+gLyk1KtSeUhDASsCQiSRJKwuNIwJKI\npFQSNnlPKAmDb13xSCkkbHF2VBIeQAKWRCTlkLD1c1qu7JVJwJKIpPASznxyaeAGziSRBCyJ\nSAov4SEx16DucHTnsFmjyiMBSyKSJGEp5hpIQl9QbpIkLMVcA0noC8pNSiBhNz3NWVoGdRfF\nzmGzRpVHApZEJOWQcCbUy8UWHpeEzUnAkoikHBJ2t4/BD3IXxc5hs0aVRwKWRCRlkXBj29q5\nd1FUrrCitMt5EvZTA8dPNV9GtCf0BeUmpdoTFs69SMIzScCSiKRUElqLSUJnErAkIimbhCHu\notg5bNao8kjAkoikTBJWnR3dJiFwJokkYElEUgIJd0QN3D4kYElEUj4J+R+Dv3fYrFHlkYAl\nEUn5JGwRcw0koS8oN0kSlmKugST0BeUmxZfQvDbxuRCpgXvvsFmjyiMBSyKSLiLhzLjC45Kw\nOQlYEpEUXMKvP9B7/4SnIA3ce4fNGlUeCVgSkRRbwvt191gN3JUrrSgN00LCcReasSyjbW3v\na5f10sYjAUsiksLvCYe7QPtwVBK6koAlEUmpJOyX9oaS0J8ELIlIyiFhrAbuvcNmjSqPBCyJ\nSIotYf918a/F2VFJeAAJWBKRFFzCnVEDtw8JWBKRlE9CNXBzSMCSiKR8EraIuQaS0BeUmyQJ\nSzHXQBL6gnKT4ku4rnFUDdxnkIAlEUnxJVwbNXD7k4AlEUkxJJxcgxh96frJhYdFCdXA7UkC\nlkQkBZFwdDW+2PbyvAS/JKEauBVllA17wmFf2rhDbWblAkNta74kYElEUpA94f2f29Hk5HBU\nEkJJwJKIpFASzhu1S4epkhBDApZEJAWR8PkGbuk94XoJF94TSsLgW1c8UhAJH2dHBydDC2dH\nTQnVwO1KApZEJEWRsG0sXsuVvTIJWBKRlE9CfAP37mGzRpVHApZEJMWQ0DvmGkhCX1BukiQs\nxVwDSegLyk1KJeHCWRlQA/fuYbNGlUcClkQkXURC68G+92vg3j1s1qjySMCSiKSQEg6uR8yv\nVixLCGjg3j1s1qjySMCSiKTgEi51wJQkXHGx/vAG7p0rrShHZPfhaHf730zChWNOTNva7tcu\n66WNRwKWRCSF3BMOJLx95uHjiyQkkYAlEUnRJRz5s/5wVBK6kIAlEUkxJRyemmn9nlASBt+6\n4pGCS9ju7KgkPIAELIlICiphZdTA7UMClkQk5ZPQpYEbOJNEErAkIimfhC1irkHF4ej+YbNG\nlUcClkQkScJSzDWQhL6g3CRJWIq5BpLQF5SblE3CF+/2QHdR7B82a1R5JGBJRNJFJFx85Pa4\nJGxOApZEJEWVcHYjxdelv4XGNcpdFPuHzRpVHglYEpEUX8JZE8yShIC7KPavs6K0T83h6KN9\n9OuHYQPbqyf0iN7R/a9d1ksbjwQsiUiKuiccSHi7g0IS8kjAkoik+BLOvJKEGBKwJCIprITj\nUzNbJTzxLor9w2aNKo8ELIlIii/h7bPxB3otSAi4i2L/sFmjyiMBSyKS4kpYEzVw+5CAJRFJ\n+SRkfwx+zbBZo8ojAUsikvJJ2CLmGkhCX1BukiQsxVwDSegLyk26iISYBu6aYbNGlUcClkQk\nXUTC3n4f6NPAXTNs1qjySMCSiKSIEo4uM4w/42nh438ZDdw1w2aNKo8ELIlICijhvGN7zWVC\nSAP3rjVWlMNSJ2E/VMhsmIG0rdW8dlkvbTwSsCQiKeKecNSxPT0clYQgErAkIimihM8vz28l\nIZEELIlICiph8e6JDRKe1sBdM2zWqPJIwJKIpIASTj7z/vlB+CskPL2Bu2bYrFHlkYAlEUkR\nJayPGrh9SMCSiKR8EqqBm0MClkQk5ZOwRcw1kIS+oNwkSViKuQaS0BeUm5RNwhcHmmrgPoUE\nLIlIyibh66iB258ELIlICijhoF9m2sS90L+tBu4TSMCSiKR4Eg7vl5g0cS9eKFQDt6LMUy9h\n38+/LDxPbWu+JGBJRFLAPWE36ZiZtXRLQgoJWBKRFFDC+5dZx6gkpJGAJRFJMSV88Z5wvYRq\n4HYhAUsikuJJuHR21JRQDdyuJGBJRFJACWditX9ey5W9MglYEpGUT0JyA3fdsFmjyiMBSyKS\nYkt4VMw1kIS+oNwkSViKuQaS0BeUm5RHwtklh9GDjAbuumGzRpVHApZEJOWRcCbVlgd7nwbu\numGzRpVHApZEJHElnLRm367ujb+9XzG8P0Bv4K4bNmtUeSRgSUQSVsJ5a3Y3+3bwoHE4epdw\nxcX6Ixu4Ta6iOMeQsJ/1whS/HfWgsdvW6l67rJc2HglYEpFE3hNKwk0BkoAlEUmSUBIeRwKW\nRCSRJZx51k7ChfeEkjD41hWPhJWw2Jo9lnDwqdvd3S1DwpMbuOuGzRpVHglYEpHElfDIvFb1\nKy1X9sokYElEUj4JXRq4gTNJJAFLIpLySdgi5hrocNQXlJskCUsx10AS+oJykyRhKeYaSEJf\nUG5SFgkXr070uoviHBKwJCIpkYSVS+guivYkYElEUmQJH3+jt7/dQHG/9rcgoe6i8CQBSyKS\nAks47ZRZI+GKjhndRaFcKfWHow+Hhh6+XFS9o84kYElEUuA94aBrTRIyScCSiKTAEg6EkoRM\nErAkIim2hLP3dgunQHUXhT8JWBKRFFjC+00TXTf43pBQd1G4koAlEUmRJdwfNXD7kIAlEUn5\nJAR/DH7lsFmjyiMBSyKS8knYIuYaSEJfUG6SJCzFXANJ6AvKTYokYfkg0u4a7SkN3JXDZo0q\njwQsiUi6iIQrlnNo4K4cNmtUeSRgSURSGAkf1yMG19oH1xkGFx4WJTy1gbty2KxR5ZGAJRFJ\nUSR8XmF/NGqP214GCyxIeG4D9/rVVRSnbJNw1G826z0zW2YAbWuVr13WSxuPBCyJSAq0J7wd\ngXYPCR8N3JIQSgKWRCRFk/D+0/B7SUglAUsikgJKOPmn9XtCSRh864pHiiLh7ebBx0da9I/v\nG50dlYQHkIAlEUlhJFyRtVcM7SVbruyVScCSiKR8EqqBm0MClkQkZZKwXcw1kIS+oNwkSViK\nuQaS0BeUmxRYwm7hp9myauA+gwQsiUi6iIQrFlADd3sSsCQiKbSEkz/mqwZuGglYEpEUWcJp\nz5oauBVla5p97uhIx4XF1bbmSwKWRCRF3hP2455uSYgjAUsikhJI+PhJEtJIwJKIpBwStnxP\nKAmDb13xSPElbHR2VBIeQAKWRCQFlvCFZi2WbLmyVyYBSyKS8kno0sANnEkiCVgSkZRJwnYx\n12DX4WjtsFmjyiMBSyKSJGEp5hpIQl9QbpIkLMVcA0noC8pNoku4/mTL4vKIuyhqh80aVR4J\nWBKRdBEJV5COv4uidtisUeWRgCURSVgJR5fyuqclwwt9pd+8dO38uyhqh80aVR4JWBKRxJVw\n1NEy+2HU9jJuglmS8NS7KEyqorhneU9Y6Ayd9qqNHd0gYT81sB99a76MaE/oC8pN4u4JB7p0\nz67Q5z0T87soJCGNBCyJSAog4UivbvToeF8pCWkkYElEElfC0du2whvEqsPRhfeEkjD41hWP\nxJVwdALzeR5z8Nn3j4dHB6eLEp56F0XtsFmjyiMBSyKSwBIeGAvecmWvTAKWRCTlkxD7MfjV\nw2aNKo8ELIlIwkp4asw1kIS+oNwkSViKuQaS0BeUm3QRCQkN3NXDZo0qjwQsiUi6iIS9/T7w\n8Abu6mGzRpVHApZEJIWQcHJZouv78QWLyZclCU9s4K4eNmtUeSRgSURSBAlLbS6lS/d3rxYk\nXHGx/rAG7nUrqyiu2SBhX2xfm3euGZQz29aqX7uslzYeCVgSkRRhTzjpiRlKeDvbsvpwVBK6\nkoAlEUkhJJya04//Pfx25eGoJHQhAUsikiJI6PueUBIG37rikSJIODjaPO7sqCQ8gAQsiUgK\nIWHzVPeOAmeSSAKWRCTlk1AN3BwSsCQiKZ+ELWKugST0BeUmScJSzDWQhL6g3KSLSKgG7lNI\nwJKIpItI2NvvA9XA3Z4ELIlICi7h6IqDGrhpJGBJRFJsCWfX3tXArSib0kzCfquE/dTA8VPN\nlxHtCX1BuUk59oS3L4VzL5LwTBKwJCIplYTmspLQlwQsiUjKJqEauEkkYElEUmwJZx98oQZu\nFAlYEpEUXMKdUQO3DwlYEpGUT0JqA3f9sFmjyiMBSyKS8knYIuYaSEJfUG6SJCzFXANJ6AvK\nTbqIhIAG7vphs0aVRwKWRCRdRMLefh94dAN3/bBZo8ojAUsiksJJOP5Tod3k82W6166d3cBd\nP2zWqPJIwJKIpGgSjlq1u9mF+rVtayc0cG9fV0U5PvskfH43uFBvd66d3bZW/9plvbTxSMCS\niKSAe8LPL91jL3j79vkbSYghAUsikmJKOG8WHX+RhAwSsCQiKaCE3fT94I7D0RMauOuHzRpV\nHglYEpEUTcLn52/f9ZmcHV2W8MQG7vphs0aVRwKWRCSFk7BJ1MDtQwKWRCTlk9ClgRs4k0QS\nsCQiKZ+ELWKugQ5HfUG5SZKwFHMNJKEvKDdJEpZiroEk9AXlJiWRcHa9Yfq47qI4gwQsiUjK\nI+FMqkXjCo9LwuYkYElEUkAJn9cIb21r/W0f2HULN1HoLooTSMCSiKR4EpbvnjAOR+8S6i4K\nRRllr4TzvtGtEvaF5bUnbE4ClkQkhdwTTg5HJSGVBCyJSIou4c7DUUnoQgKWRCSFlHD8nnDP\nnlB3UbiQgCURSfEkvJ0dvR2HPs+Vdo9HFiTUXRSuJGBJRFJACful/V2b57dc2SuTgCURSfkk\nhH4MfoNhs0aVRwKWRCTFlPDomGsgCX1BuUmSsBRzDSShLyg3KZWE5AbuBsNmjSqPBCyJSMom\n4c4H+8MbuBsMmzWqPBKwJCIprISTaw3PNu5lCU9r4G4wbNao8kjAkoikqBJOrrrzG7j3r6qi\nHJjKw9EXzWuvlz6zba3Ba5f10sYjAUsikqLuCYcfhC8JqSRgSURSVAkX2rglIYYELIlICixh\nd8x7QkkYfOuKR4oq4aNxu9XZUUl4AAlYEpEUVsKROFsbutXA7UMClkQk5ZNQDdwcErAkIim4\nhAfFXANJ6AvKTZKEpZhrIAl9QblJF5FQDdynkIAlEUkXkbC33weqgbs9CVgSkRRZwu5xqfB2\n6eF+2WFBQjVwe5KAJRFJoSUcXXa/abQsoRq4FWWU+gbuoXfdZHdWWFpta74kYElEUug94fCf\n2/GoJCSRgCURSUkkfHyRhCQSsCQiKY+Ej1MtayRUA7cLCVgSkZREwsfHchsSqoHblQQsiUiK\nLOFL06oXa7myVyYBSyKSckl4P0VzeAM3cCaJJGBJRFIuCVvFXAMdjvqCcpMkYSnmGkhCX1Bu\nUnwJV70NVAP3KSRgSUTSRSRcsZwauNuTgCURSQEkLH3W9uCXz4sTXT/b180kVAO3JwlYEpHE\nl3ByfX3YsF3+aUlCNXAryiibJFz9ZYGjtjVfErAkIinOnlASWqPKIwFLIpIkoSQ8jgQsiUiK\nI2HxPeFeCRfeE0rC4FtXPBJfwuWzozeh7E+3sM6OSsIDSMCSiKQAEo4UeS3ZlliUlit7ZRKw\nJCIpn4Rq4OaQgCURSWEkdI25BlsPR5sMmzWqPBKwJCJJEpZiroEk9AXlJknCUsw1kIS+oNyk\nbBK+eLd39l0UTYbNGlUeCVgSkXQRCRcfuT0uCZuTgCURSbEkfF7d+7zW13/9td7Bpb/53m4i\n4Ul3UTQZNmtUeSRgSURSKAnH3TLPzpdJK82ChCs6Zg65i2LjiiqKV3ZI2M+a1OatawtPPqt3\ntMlrl/XSxiMBSyKSou0JCxKOetYkIYkELIlISiBhP/2tJKSQgCURSdEk7IoSbt4TLrwnlITB\nt654pFASPu+gGEg4vKFifKGhIOFZd1E0GTZrVHkkYElEUiwJW0UN3D4kYElEUj4JXe6i0J7Q\nF5SblE/CFjHXQBL6gnKTJGEp5hpIQl9QblICCbvlD/29LaMG7hNIwJKIpPgSLl6XeGlc4XFJ\n2JwELIlIiixhd/+Mp2fr9sIfrVcDtz8JWBKRFFjCUduLeZlQDdyKUsgBEi4vrrY1XxKwJCIp\nzZ7w2UYjCTEkYElEUhoJZyJJwvNJwJKIpEwSbtgTqoHbhQQsiUgKLOGzc7sb/rAooRq4XUnA\nkoikyBLujxq4fUjAkoikfBISG7jbDJs1qjwSsCQiKZ+ELWKugST0BeUmScJSzDWQhL6g3KSL\nSHhyA3ebYbNGlUcClkQkXUTC3n4feGQDd5ths0aVRwKWRCRFlnD0V3sHnzPzaunHsu4N3G2G\nzRpVHglYEpEUWsLhdfp1Ep7UwF23nopyXKr3hONmmW7pTqZT29bavHZZL208ErAkIin0nrAf\n925LQhoJWBKRlEHC+0+SkEYClkQkJZHQfEd4bgN3m2GzRpVHApZEJCWQ8P5HCcEN3G2GzRpV\nHglYEpEUWcL9UQO3DwlYEpGUT0KXBm7gTBJJwJKIpHwStoi5Bjoc9QXlJknCUsw1kIS+oNwk\nSViKuQaS0BeUm5RAwu75Zf7u776M7qI4gwQsiUjKI2E/vfi+aFzhcUnYnAQsiUgKLeHkol9x\nbzeRUHdReJKAJRFJkSVcan95IaHuolCUURpI2E8aQdU7SiIBSyKSIu8JB581KgmRJGBJRFJo\nCQtGSUISCVgSkRRZwpJR9e8JJWHwrSseKbKExcPRvWdHJeEBJGBJRFJoCXdHDdw+JGBJRFI+\nCfUx+BwSsCQiKZ+ELWKugST0BeUmScJSzDWQhL6g3KSLSKgG7lNIwJKIpItI2NvvA9XA3Z4E\nLIlIiiTh/QOdRv8ufFmSUA3cniRgSURSIAmnF+VH1+kHX5YkVAO3ooyy/XD04czz30+Nlg84\n1bbmTwKWRCQF2hP294+7H0h4O9uy+nBUErqSgCURSYEkHO32hv8efqsGbhIJWBKRFEvC6Xu5\nI94TSsLgW1c8UiAJP9R5ns9sfXZUEh5AApZEJEWSsF3UwO1DApZEJOWTENjA3WjYrFHlkYAl\nEUn5JGwRcw0koS8oN0kSlmKugST0BeUmRZdwdqHhxWKnNnA3GjZrVHkkYElEUgIJZzYtLbnw\nuCRsTgKWRCQlkHBwoRDawN1o2KxR5ZGAJRFJaSQkN3BXrqOiHJeGEj52bEtLntW21ui1y3pp\n45GAJRFJSfaE9zbuheNRSehPApZEJCWRcMU5UknoTwKWRCRlkxDZwN1o2KxR5ZGAJRFJaSSs\nPTsqCQ8gAUsikqJLuC9q4PYhAUsikvJJyGvgbjVsRoAkYElEUj4JW8RcA0noC8pNkoSlmGsg\nCX1BuUmBJVzTMPpY9swG7lbDZgRIApZEJF1EwhWLH9fA3WrYjABJwJKIpIgSji4wtPqMmQMb\nuFsNmxEgCVgSkRRSwunl+fGXJQlPaeDet5aK4pHde8JCjwy4ba3Va5cRIAlYEpEUck/4VOj5\nCdyDg1NJSCEBSyKSgks4+sXEJEl4OglYEpEUUsLCe8KuG7loSejawN1q2IwAScCSiKSQEhbO\njg5/WpDwlAbuVsNmBEgClkQkxZSwNmrg9iEBSyKS8kno0sANnEkiCVgSkRRRwuNjroEOR31B\nuUmSsBRzDSShLyg3SRKWYq6BJPQF5SalkvB114zuojiFBCyJSMom4c4He91FcQQJWBKRFEjC\n4h0Tw+t+XddZF+t1F4UrCVgSkRRHwuIdE6UOmCUJdReFooyyV8J+2jVa7AUtPF+9o74kYElE\nUqA94fhWidEn30tCJglYEpEUSMLZt7PbKCQhjAQsiUiKJeHL94RbJdRdFC4kYElEUhwJl8+O\n3t3afXZUEh5AApZEJAWSsGHUwO1DApZEJOWTUHdRcEjAkoikfBK6xL6S6B9gTcCSiDWdWpIk\nbBlgTcCSiDVJwl0BziSxJmBJxJokoaJcOZJQUU6OJFSUkyMJFeXkSEJFOTmSUFFOTjQJn603\na/4gok9mNTX4bOTKhBim82uaz9wpUxdMwnvP9/TmjTMzq6k/f+PqAwzT+TXNZ+6cqZOE1SnU\nhJOw73nD1Pdn1yQJdyWEhKdXRNzgiTUVjmF0OGpHEq5KaYMH1nT2Ybsk3BVJuCpBJDy7qNLW\nJAnNSMJVAZYUQ8LCja8OkYTVAW7xpeOsswOcOsoBQzAJhx9oQ7nYNK/p/E1+WtJJL/GLNQGm\nbj5zklBRyyH4jgAAAMFJREFUrhhJqCgnRxIqysmRhIpyciShopwcSagoJ0cSKsrJkYTKZ97e\ntCmcFY288pG3XtvCadHAKx+RhCdGA698RBKeGA288pG3Xu8JT4tGXvmI9oQnRgOvfOTt8S/F\nPRp35SOS8MRo3JWPvOl49Lxo3JWPvOlq/XnRwCsf0XZwYjT4yke0HZwYDb7yEW0HJ0aDrygn\nRxIqysmRhIpyciShopwcSagoJ0cSKsrJkYSKcnIkoaKcHEmoKCdHEirKyfn/HYSBbsUNOY0A\nAAAASUVORK5CYII=", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "betaT1<-td_beta %>%\n", " mutate(topic = paste0(\"Topic \", topic),\n", " term = reorder_within(term, beta, topic)) %>%filter(topic==\"Topic 1\")#beta values for topic 1\n", "\n", "betaplotT1<-ggplot(betaT1[betaT1$beta>0.003,], aes(term, beta, fill = as.factor(topic))) +\n", " geom_bar(alpha = 0.8, show.legend = FALSE, stat = \"Identity\")+coord_flip()+labs(x =\"Terms\", y = expression(beta),\n", " title = \"Word probabilities for Topic 1\")#plot word probabilities higher than 0.003 for topic 1\n", "\n", "options(repr.plot.width=9, repr.plot.height=10, repr.plot.res=100)\n", "betaplotT1" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Also for topic exploration the stm package offers some nice built-in functions that make analysis easier. In order to identify the content of each topic, we can use again plot.STM, this time with argument \"summary\" to visualize the topic distribution (which topics are overall more common), with most common words for each topic (as we will see later there are several options for the words to be visualized, but here we will leave the default). " ] }, { "cell_type": "code", "execution_count": 12, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAK8CAMAAAA6ZJxxAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAAA9hAAAP\nYQGoP6dpAAAgAElEQVR4nO2diZbjNq5AkXXmJZPo///2ddslkVhI7QvK955TZS0gCErXLI17\nzMgAkBS5uwCArSAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJa\nkBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJa\nkBfSgryQFuTdgRQOCV2QByq4WjtA3nvhau3gaHlhHVzKnaywEXEPhsu5k8rIv38T+e3vr4P/\n/CHy58rQr4C/fhf543+vsB9bX5vgQd6dFCP/fD8V/Od98Jef27+tC30HfJ38oez/fT1o/H3Z\naHKBvDuZjPzfDwH//fe3l3U/Zfx3+LH9f6tCXwF/vQ78+dPmH1b/M/wt8uvVg0oC8u5kMvKP\n1wz5Q7U/Xgff27+vCn0F/P5y+t/f32L/9+rxZAJ5dzIZ+ct748dTwHTQ/C+02dDy683vr+eJ\nv84fRFKQdyeTa87CtrytUCvv8N9f/ZMzTCDvTs6ceX/wz39+MQ8fMIG8Oznjmffvr2feF//w\n8XALrstOJrX+Xv5pQytUfdrw6zD8+tPj//FpQwvk3Yn78PbP98HgaXU2VH3O+/frIzU+5+2A\nvDup/qj/9dv42cDPg3/IL+1/YYtDx39h+238Z7V//viFf2Frg7xnwP/h4RK4cmeAvJfAlTsD\n5L0ErtwZIO8lcOUgLcgLaUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9KC\nvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaTlYXgHYzV3yHpsO\nPhHkhbQgL6QFeSEtyAtpQV5IC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtpQd4s9P6vVPHVlMbp\nE669NPeCzg7rH3kzseqqTZpb3y+99sgLb9ZcNRmj5YKZt1fGkkOH5d4ZeEu6D6HMpfLenTaq\no1OouI3x1PT0odtXGUue1/4YUJ1XNQSPDbbGOqOEPbpHoqruOkj0GBaAvA9AysvrR6qdsmGi\n/TOvCq/ddE8YNkpcb7X9YSNXVtBjXH8lrwrSzZaAvA9A9G+1YabXers1obU2og7FOOc2dKve\n+cWJ5gp9lryXfPEpDa2r1pM3vMYPlDeY9ONE/o35ujIPlBf6XC9veRuJbjqeOE7e4B07BU3n\nxj6RNx03zbzvrWCeNCVVx5bIK3FGk0iNTUcjbybm5RUXPbiLvVred/r4j/xWeb8S9hO1g5A3\nHVJe3n9Dqx0//c7Kq/92l4cAE1v9BJ82BD2oRv6vgpa3XX8JahSKvJkYr5qYz1ClPuqirWDV\n7tjk9URZ5K3yyOznvCWZ6sDWWJ3WLW3G8K9HWCjyJua0i9hM3O2xNdM3jobPCfbQsg7nQN7n\nkVpeP8kHgf0RIm9irr+IS3pc9K+25f81tCMT8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL\n8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakPd4OkvehOOOI+PUG6pZdPbrW5Yr8ze/\n77PsW2x7Qd5zWDG+lzcL40+T92v7KHm3lLIe5D2H5eNrfol2X9qFTZD3zH6TMv05nl1hIdry\niyJ8LQxWLdg1JfXLNZiowceUVGOTIZJXxwyNRRuCqkXvq+qPA3nPQcrL9FgwiVCMGCqvTWul\njZjXKqlKNoxHdA4X4xKG8kYpxJ4Iw32dG+b1WZD3HET/Vhv6QaGzHpLdaBht5XU5dIe6d/3T\nSNRfqCyoekH4ATxL3s1L2d5Ma3w9eaNIe3EukbeeJRfIG5Xlqv5Eeb8PB8tbP6JukDd4i00J\n1SL/YkPELc5bn+jLq6OQNw1Hy+uar595wyKlStq0MZ55e1UvmKgPAHnPYV5eCSLtoUPl9Ze8\nytGW92t+bo4mrHpB+AEg7zlIeXn/Ca12zPTrJ+NBRxvHBpcrnAEl+DFBM/KGKXwFUXgQhbxp\nmGbLBSvpSvXhlj0kX//NsvER1X+CO/6aWruuwy6qh+hqZjVG6piqbhHfb31UbNT7KJ/zZuSC\n4S7qYknQylpvvJPIewnIewbIewkfNtyLQF5IC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtpQV5I\nC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtpQV5IC/JuoLNSTmNg5euUje8gHnY91iXa161vHeQ7\n8U4j70ZWDcB/PXhXuuO4QN4TQd6NrBmADMh7Bsi7kXEACxZmGNcxENe4bl+3qhYS6y+++96Q\nobw7pAqKexlXYJBBrwYxxOv9ivqlQt1b8muZiSmrDFVBx99y5N2IlJf3nap2yoaKjp54JfiZ\nfgUrOJvFd6e+tby9XtSbSVUbr/erK6pD7VtSndNNfOQRIO9GRP82M185V0UHd7BuFueK3gW9\nUPe+6YQ3jPZdSrPEYDxBicFAjuBZ8i5eEPdqWgNYJo86ErhoUnxdiaPl9e0OkNd0pXufBvER\n8ibiBHmn98l409vyjqFb5V233q+Mv1139m1d9V4PAnmfxVkzb5g07nZx/4G8LnqTvG7qtaYi\n7yOZl1dsdM/F5izakXflzOsS7pc3LA95H4+Ul9ePVDveIBnCw1V78zN0n3lNT2LauIsbZxZT\nbUNea6r4Q66jsCDkfQrT9LVgAd7iXHMlXlGnxXx4WxqYbofp89a6jejYIPOa9X71VGo/MK4m\n4qqasCDkfSgnj6efvnF2X01rWt90N5H3GJD3BpD3GG4dz3e7mEtBXkgL8kJakBfSgryQFuSF\ntCAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakHc9nUWgGuPa\nPdpTL9e2b6uJOXzDHUXebayqf//qno+Rt9HqntuJvNtYN1sh7ykg7zbG+hesOTL9Sa3+5JZl\n7r7O2zw6s3tGqaOkaueeZXzCVs22gU45llrGFzw2lGHGz1RHg7zbkPLyvlnVTtkw0Wq3vtni\n8ujMUQJRmUQfL5G+qLhm10CnVPJWp0tBajy+5DNA3m2I/h3cNnHRbjdu3tiIOg+jgrfNki6a\nDdTA4vHVZxo1n8Gz5N28+PPJtOrvydsZ7THylmuGvEcF3pLucnbJGzzzzm+E6UZzZUor7u/5\nV57x3BXytt7yB4O829gnb9Rqi7zdqCiiWXOrQfk9LtPbk7cKugLk3ca8vOKiXYZ98raiZly8\nTF5m3qci5eX1o26sm33MaMeg96sM3U8bWglKpLhyqkhfVFyza+BSivoVfdqgQi+4w8i7jbF+\nWbG2dDk2PhG+XkU1n5r6hFXOMaokMMdLzzZhXLNvYFMOphzTSo/xiide5D2IncMRt7GzkyUJ\n478Nq0Zy811E3kNA3jtA3kO4RN5dmZeeynRjkBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJa\nkBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakBfSgryr6KyhEw1pzeIbS8I2XbUjLvXSHNfe\nVuRdzZavkh0Ue5u8T+wLeTeAvM/oC3k3YBY06CzZEG2Z6PcBGX+bpHbhMRVT9sPgbuJgYYXp\nAaeOHKv0Y/ONZBzVNYs2DAPyrkfKy1uDaqdsvHaCJ14V/fO3mNcqqUo2da36erXsB/vEpkyf\n2iSUYGxxPRKGnQXyrkb0b7VRn6sV843NRsPowMdGhji43agXbSLDsTUbBWFn8Sx5l62Weymt\n0nvydoYqemOPvF8X7GJ5m0MbS/lYeVNwsLz14+Iieac3ldIlmuVbiVv/mQuVfom89aJr08zb\netMfD/Ku5mh5XfMlM++C4Hbi5tUXl36wK5t2GolOcD7Iu5p5ed2f4KDxTnltx1vkbUbXEnaX\n5Y0a9d8eh4K8q5Hy8v47W+2YKSqYsHR0pZ74s4NtHsT0TY8TR4W5KLEnOo1UKb1Z+liQdzXT\nXV2wNK9UH03ZQzIucls9wapc3hgVoxfnjd46rcRhYVKlVZF+bL6RLoXPebNwwUhWdbGunk3V\nP+XmIe9ekPc2kHcv32ck6UBeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9KC\nvJAW5IW0IC+kBXkhLcgLaUFeSAvyduksnNMYgvRP7/hOz+pLtvcad9vbk9LaOfFOI+8s62wT\nu7Ev3daGmxqsaX+XOE+o4ZvKOy4GWjZ2pUPeY1Ij74J1GmSw8lZPEWpJBrPE7hA8mozrOoTr\n7NZ91skG16DOJ6VsVZHNIL3VzKbK1LrAMjWrxjhWIees5YC8s0h5edtT7ZQNHS1uhKqZaj4F\nG1XqRirGKmVrUQ10YVIX6Eakx+hGYCPUusCqma3ipFVIkHcW0b/VhplefVx4PM7Vju/110kW\nyNuJDzfm+3G+6p3o7XYYz5I3WB/3alql9mRy0cGpUN6vMXflVTE3ymtqRd4UrJe33NUgiwzV\nA2Wx0r5vSq9jzBhmIgPjxuSmgvroBnnrOhbI65cHPhzknWWDvDOOiTuoXlf11zIunM6XOhvJ\n24hqy9sv+wiQd5Z5ecVFD26EXt7Itzi+1x/yHhl4S7ozkfLynlarHX9rmvLWzXQK5YFKVE5J\nq79tnzaUDwvaGcL2dZu+vP7E4SDvLNNctmA9XidvtVs3G1u9Hi5k3BjUdVGnZGwztXSJTdbB\n/k/BqYsxX+9z3qHRfqp+fuatqkDeh7Cx8oXN1t+PmRbt08syPPlGIe9akPcxIO9azpX3wsRL\n9X8uyAtpQV5IC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtpQV5IC/JCWpAX0oK8kBbkhbQgL6QF\neSEtyAtpQV5IC/IaOus+NYo2X91d2s/qwvY1X5R5UdbyPeG7Qd6AdRZOX/g+d1DnybsyK/I+\nY/QN1hQ3LmWwtt1qkNeBvAFjcQuWGRH3V7farRYBmfKM83SQS/U1mCVE9JNMvaxIvV8v9xwk\nHTf0knulFHGtggHIuFr07fcQeQOkvLxvdbXjJx5xG9Vu3dQb4yextYs36XlfTDc2qX7E8aX4\nVn4AZutOniVvY83cc2kVN/1WG/U5NRSXSdRrnaedq9Gpv2LSjvVeBRXUNawspRF+A8+S9yHM\ny+ujB3duqbxx12vkfb24pe96SVUNyHtWv3ewVV4rmIwPmFLUWi1vvFS0SqzXfUbe7YG3pDuW\ng+RVzctZmfIsk9emmU5I3Gi5vK4U5L0j3bHMyys2unU3/b1fa4xpXcU17ELe7YG3pDsWKS+v\nH3WH3ZT5PupnUhVdnxZ3tmrk+hl3ZpL75Z6DpGZgrpRY3sBw5H0sk2VrlpMWsXd0+ihD9CdL\nQa6p0dKloqtjY4iT1yc1A3OlmFYlwo4febNwQa3iNmbijky6o4t7Qd55kPehIO88V9Z6Sl+Z\nLvYakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL\n8kJakBfSgryaziJQjZobI6m/bSkbx7u8iPlze6OPb78f5PWs+8rXjLxf24eN9zny3g/yetbU\nJnMz79c28p4A8nqmv/gLlm3wSxiopcWmpRDMeG2MXaxB/HK5XyfFNx9UgbZqVas0on1tKnoM\nlfG4VO3vu5XI65Hy8r571U7ZGGOcIdVhaTzziv4Jlsmp3i26Vd2sLsH9iEtg/gMEalhBbfV7\nox6YGdmN9xJ5PaJ/O0eq6hvyDt7PuAPRSf1G1MoWVO/3Mvhx9YJ6V8Fcjrt4lrzbV4jeTqu2\nJXerMXHVDb+LvK8XCXq/kWfJ+wwWyxv+0aweDcfTTt7ytqlSSHWiL28dZfZXyuvfv0154x7i\nt/9FIK9nubytyfvlRWkQz7zvrWDmNSW4Y3HzoNiFM2+vl84fBVPsDSCvZ15ecdEug+hGDYv2\nPTYEzbfIu2jmRd7T0h2KlJf338tqJ5h+g8Yz8tZT8jhL6+yRvEExymPz4wp144pG4w6Pud7l\nhe9l5H0QY23TY2n9fNpYnrccm555v9oOZtaukpSYKanuavCtRNUQtLJV+xkyiPa1qWgZx+Vm\nXp55n81hpTYTdXvY2L0EW5t7eejdQt5ZPlree58LZkDeWc4v9Ywejsp563PBDMgLaUFeSAvy\nQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeTWch\nnbDmFd8zWBJYfV3zwKzbgg9sexLI61mpztLwc+RdBfJe2+8NLK/NfW18b1rkXQPyeuoVC167\nzXUbirzVeNzSC18LiYleHHc8GHWvD05PMXXbMb0vaphiynGzmESrgUmmNh54x5DXI+XlfZ+r\nHW1qNPOq6MlEMc1FZbYJxOzrrG5Rk+DpRcLKXSrTYLANqo0H3jHk9Yj+rTa0roG8cbPxjDN6\nqbxh5riosiO2gXtjzdctYfQzeJa8C5bTPZxWbT15VWi0RKhvf768fgx1fqlXKEXea/q9gRXy\n+qdBL2/9wLlF3uppWUYFS7pF8hZzv54O/Pu2VDZ14/t7GMjrWSPvYI8F8rrmK+W1B8e51DwF\n+JpEtZRBLRocDiLoBnnPTnco8/K6v+RB45PkLWetvL4ML29YW2e4rehngLweKS/vv7nVjpm4\ngmlMR1tjXK55eV07sSeCMry8EpZgBh0PdboKDwN5PZMc8+vzTk+O+lg5JyWo/t0TT+wxqTKq\n+nxRMrhzUwVqDo0bjJqPb18+570i3ZlcUGrUxaZuVzdKdB88yDsL8j4V5J0lUakfBvJCWpAX\n0oK8kBbkhbQgL6QFeSEtyAtpQV5IC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtpQV5IC/JCWpAX\n0oK8q9eTno422sw2nzs1nu52Po8ceJUXJZJg61SQ98WqcqpvjZ8q76aGGwKPz4W8V7KmnGpZ\n0bmGyHsqyPtiLGfJOiOqeD39+uVB7JHBrhwyqP7GFFKW+TCp3LPKtIxfUHtQvm4zxdnGpl+d\nYoxSy6vUvSHvlUh5ed+Vasc/H0i4aaKnPEOYTDdUp0ftdLwW0vUpKlCqWP94Y9yOGgdDMOX6\ncZV2Hynv3Fq6B9Eqp5qJqg3/fCDBVr0X54k2ug2kk6rfctyIy99QZ6NTXVGjt/N4lry3MS+v\njx7cObFHV8v7eqkXIp2TVzXoyNupE3lP6/caNsprT6mHv2bCnryjiFL2JZKz7nLJzNupc7O8\n05+xKh3yXs82ecNB1H6tltd13Eq1rIeWvDNVrZl5TTrkvZ55ecVFN8awSgrbfUPe9sy7VN7w\nHXiEvNUbGXnvodLx9aPccfNXxwetXQl0yXRCHSLN+Fje90doQe1x+dPhTuNgCHb8blylHfJe\nyTR/zH/OO0w3XewjbmMZaFE5qlNTw/Lx6iuDDNWnpTZV9QSsGsx/zuvrbDe2/apOzdXic95H\ncfXFX91fY9bv51pwplvI4+4Z8kYg77r2N4G8EVdXd0B/298IexvfB/JCWpAX0oK8kBbkhbQg\nL6QFeSEtyAtpQV5IC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtpQV5IC/JCWj5a3s76T2GBjdBl\nfW1teHQfEmyd1epkPlren6wopHxD9tx+NrOyj20lPebOIe+KQuz3x8/qZzvIuzfwlnTbMWsQ\nzKzY4KbfepkDqdq7hn6p3q9Qc7Ru4lYU66yu4B+A1q2i65Lrzhut7gV5y8v7llU70YOCuL3i\nugztJf/9Ur3i+vO5387WuVUjnSvsUSeXup24aHHNlLy+1b0gr/6tNoIHhcAv16zT0IU6Q31X\nnU7CbrsjmxmYH4GoF9fJrTxL3rlVoXfTKqQnb6duM3ch77U8S94bWCevtHZHc2Xcs2+VOXmD\nN5d/5p3f8D1Oiat0yHtNv2ezSl57QPRGw6JOD2bmDZsdMfOadCvkHWRqgbznpNvOvLxiYqPG\nzVs/FypBO9PsCHmlHEPe6/o9Gykv77+t1Y6ZfhvzaYkWl872I66Ny6JbSJ3bFdn1yo5MpRuz\nlGhThMnaaHUvyDu+zn7OWz09DvXB6WSZt6rjuh9RXelft6yiW0WrVNXQTQePuXPIazm6rvX5\n2i2clgf0uCznQ0FeDfImAnk1T63rJ6eK9uSBt0BeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgL\naUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSMvHyttZRCcsLo7stzns9FyMNHc2I43t\nJ/Gx8v5kRRHqm7YbcqWT99yMx4C8yyOR92Eg7zAsWLOhhFfH1OIJMjWL2pblwtS+7tp2146J\nl23odmVWA/bdmNdqu/FwdT/IWx4JZtbmdXddRSp5/UOGuBYqMFhftxPjamw3nH7p1YB9dPSq\njj0Q5C2/1UZ97rUVzsOumd7Q0etbLO1naVeNt0idon61x57Gs+SdXV93D60ievJ2al7qUolW\nhkqwNFNH3hUddrry8rpSkPfydNtYKa9xZHxLLJd3ehON7Xry6rXFmnU25I27CuSdhtB+5n3G\nzQpA3s3yuizLZl7fwlRimu2YeV0jL6/uuHqtMzziZgUgb1deCSLtoc6Gjl7XYkHwnLwuBHmv\n7fdMpLy8/3BWO2YCCyZjHTn5IbZt6UrnF3sk0CqOcTX2Gw6dZ153vn5Vxx4I8v58XfA577gn\n/lBZ7HbcCJbn9f9JtDpQizmUoDAm/Jx3pistr+llKr68qm0+5z0z3SGcUNP6lJuLWNXwiZd/\nPchbQN5kIG/hiTVBB+SFtCAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lB\nXkgL8kJakBfSgryQFuSFtHyovJ1ldBql6W88LuvkjmGK2/u+88SHyru6hOrbwHddsi08oIQT\nQd6Fsfbb5wd3cBIPKOFEkHfJqg1q3QM7/U4LHQSJgly+U7dcwrulbaUDJFi8YVoNQpVWFWdW\ngmgV1DryNJB3NGLJ6rzRzDt5GiWKc5lO68Air71Con/ElRqs8WsGZ1K0A33aR/Lx8lZTXbXh\nLW3JG7cfN+JczUbBAV+t6Kx+w7RSOjYC+6N4Ks+Sd36R3c20SujJ66IjP4ahXuC2KW/cNfLu\n4VnyXspB8o7mrpJ3fENVSrpn3kYTW0qQS1ft5fVv56B4nfaRIO/4e6O8/TmrO/O6hL0JT6qt\n2PKVM2+QPez/AXeqBfKOvwN5xUbvkHemUSNLVC2PDSMfL2+5v+5Gx7c30OO9wG2UKM5lpKoD\nS7qo3DqzK3WxvN2CGmkfCfIuWp23qO6W6X09GYpqL/oTsM7avtVbYjwypYubjC2iD2Sn31K3\n8fJ2C4rTPpIPltewtyJxG0d00WzSzbW0Ix/3vPvSAXlHkHdNy0eAvCMXyHskJ/XyvPvSAXkh\nLcgLaUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkh\nLcgLafkseTuLP4UVxZHrujwt2LZc/K22udh+6wfxWfKu7Ll81fyS7nbKu/j8+l6Q98x0p/Ts\n1jY4t7tdfSHvIYG3pNvQ8/xaI0Xe6phbD6+zWkf0jKLDx2xqCT23hohqbRq0FjgxXZrMEuQX\n9Ut1cMjb+Hg+Vt5Rwd4qT/6xwYhSN3c5wgVndLjYJOan2X1UfTCA0qXJPCtvMIjHufux8lZT\nZ7Vhb6ibxkS92uaNjahzZ4pzKmje76xhfDfWRkq7iue5+zB5VywWvZBWzz15VWgk3yXyNoyR\nQxayXi/vA919mLxXsFze0D73zDu/YZoX/VbLOzbdJm/Vd0NeGX+7Dh75X6ZA3npjXt6o1eqZ\nd9yYlTdcqXLfzFttiyuuKe8zp17krTe0b6fJu2zmdXItlldmG62VN74Qd/Op8k63esenDfGS\n0oNKGPmnIgcZ4k8bWvJuW8jaZI/fl8ZU8YeexcfKu2hN6XFP6iMyvYpq7j/nnXbEpTQzb/A5\nb+nW9B72KnYApss6s5FXv1lNnjjwIXyevIadhYjb2NBJ67STd0Wvy8f1mFuxGuQ9qPkJ8krz\nNPK+QN6Dmu/JE7btfTh1SK/5+Xh5IS/IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lB\nXkgL8kJakBfSgryQFuSFtCAvpAV5IS3fVd7OkjnR12qi2OZXGWSovsS4urCZw2J3drCheapJ\n5bvKu6EP6+6Rudd1jrzLQN5WOPI+nk+Qd8kKDdPRoTSS6kUvpxs+NuhVzBrr9TZavU9WyYcx\neMxj43Td06+gL1HBU3Nb3hCW92g+QN5JCe2GLcJZVf/Sy+mWFxNfq+16ml+vt0o+HazWEImT\n6Dp9mB6krmhwG8h7fbpOH9NvteEmJVeQiooMaU3cEjRVG1ErW1zYKk4iX13GrZb01yzv4TxL\n3k1L8DY/VpiXt1fQeCBekfRQeW34gfKaYSHvpf3u7mOXvGpB3L685S1Ufr3CxhO75O0kWbOs\nblBVr7yHg7ytgvz0uWDmfW8FM+8Q27Fu5o2TrFlWt1VVo7yH89nyiom1rVfLO2nU6HZGphl5\n18+8PrZZFfIe3+/+PkaVup82dORd9sw7iP7Zsl5v/c4aK7aDCJIYU8UfCkL9hZiuURo+QN5l\nK/G6ur7ElTKlRfLW/s9+zlsn0a28vEPdc5TEVKpHFc7XpgY+5z2934d32Uza7e2IUtbkSKXk\ncpD3pKTIez7I+y16+0w+SF74biAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3I\nC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3I\nC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS3IC2lBXkgL8kJakBfSgryQFuSFtCAvpAV5IS23\nyQuwm5vkvaUT0n/b9A/oPPcFJP196R/Qee4LSPr70j+g89wXkPT3pX9A57kvIOnvS/+AzuLK\n4LsAAANQSURBVHNfQNLfl/4Bnee+gKS/L/0DOs99AUl/X/oHdJ77ApL+vvQP7hxgD8gLaUFe\nSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9Jylrz6C8zT3orvNW9Iv+6L04vT\nT1fpnOrH9CdVL9XVOSB5K/1h1a+p5Ly04vf04VPSH4Etc7z7B3XRSX8Eua/92lLOyip276ib\n1Eh/1GBsmVLfnqOrn9KfU322a7+hlnOyXn0Bj5y6qmxj5pPk1en3E5V52rU36S/mW8l71DOj\nSj9tn3f7y0Pj7uS3yXv9E+83k/eY7HfJe0z2qEyJDx+e/mp7v5O8g944KP20fbK8bvOw9FfI\na7cuAXnn0k/baeXNVP2GWs7Jirxr0rvNo9JLfPjY9H77Ar6TvFc8lOZLL61eH5l+Qy2npBW/\npw8nST/UtyZdeokPPzb92lJOyav+2ei0fx6+JH2ZXvKlr9YaT5J+TSVXdwhwFMgLaUFeSAvy\nQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvyQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvy\nQlqQF9KCvJAW5IW0IC+kBXkhLcgLaUFeSAvy1ohUi2/NBjcP9dL4Yyu6rHJw47gGmlVXoy3v\nulRqkdCtPX8kXIeaO+Xd0OLT4TrU2HVnf/4n0vz6qe8NmV7K0UDecQHQsqFyDUpeGVRS37lM\nDxniDw+lqs/gc0a6BCPfT52m50u3ERz18kp9yreqO5UpgWukjwSljHtSJ/z2fMxAF1H/Dy2p\nFJPWhj86pdK/41b1qz3R7NO8fYLzn8JnjXYOUdszfuyVd4qs3zDtRsjr+KzRziFup2gxKqbl\n1Ue3ybus0SJ5eeb9XGZn3sFsmKP3y2tH8a35mIEuYvljg3T1GfoeNl1D3lV8zEAXYTx6PS2M\nh91GcNR5WILjVkGnUSOva+OwmITfm48Z6CLKv+uOOrQ/59UfyQ77P+ftNBp8awkOf41gy8hT\n8jkj3cZR12dTHm5OH65PH+R9MFyfPsj7YLg+kBbkhbQgL6QFeSEtyAtpQV5IC/JCWpAX0oK8\nkBbkhbQgL6QFeSEtyAtpQV5IC/JCWpAX0oK8kBbkhbQgL6QFeSEtyAtp+X+bVpg223cuCAAA\nAABJRU5ErkJggg==", "text/plain": [ "Plot with title \"Top Topics\"" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "options(repr.plot.width=7, repr.plot.height=7, repr.plot.res=100)\n", "plot.STM(model15Prrateby, \"summary\", n=5)# distribution and top 5 words per topic" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "labelTopics (or sageLabels) gives us more detailed insights on the popular words in each topic. As mentioned above, other than the highest probability, we can visualize the FREX words (FREX weights words by frequency and exclusivity to the topic), lift words (frequency divided by frequency in other topics), and score (similar to lift, but with log frequencies). The vignette and the manual of stm offer more details on this aspect. plot.STM can again be used with \"labels\" as argument to plot the words in a more visually appealing way (although I found the final result not always satisfactory).\n", "\n", "This type of analyis can be helpful in particular to make comparisons between topics and understand more which differences there are between them. As an example, topics 5,6,9 seem to have a degree of overlap, as they are all focusing on customer care, so we might want to check them in more detail: " ] }, { "cell_type": "code", "execution_count": 13, "metadata": { "scrolled": true }, "outputs": [ { "data": { "text/plain": [ "Topic 5 Top Words:\n", " \t Highest Prob: custom, team, store, servic, sale, work, product, hour, role, retail \n", " \t FREX: store, retail, sale, love, kitchen, brand, product, great, discount, price \n", " \t Lift: ‘can, afford, ambassador, here, high-street, lowest, merchandis, pub, sister, tv’s \n", " \t Score: store, sale, saver, custom, superdrug, retail, bike, fashion, kitchen, love \n", "Topic 6 Top Words:\n", " \t Highest Prob: custom, role, skill, excel, client, administr, offic, manag, team, experi \n", " \t FREX: order, invoic, purchas, supplier, administr, detail, client, manufactur, tax, verbal \n", " \t Lift: bill, bullet, coleman, courier, expedit, fork, forklift, inventori, law, louis \n", " \t Score: sale, purchas, invoic, custom, manufactur, adecco, stock, ledger, angel, global \n", "Topic 9 Top Words:\n", " \t Highest Prob: custom, ’ll, servic, make, need, role, help, can, ’re, work \n", " \t FREX: ’ll, ’re, just, everyon, thing, don’t, realli, want, legal, get \n", " \t Lift: bag, colour, discrimin, forget, moment, offici, optic, perhap, perk, prejudic \n", " \t Score: ’ll, ’re, custom, realli, don’t, rta, everyon, thing, showroom, addleman " ] }, "metadata": {}, "output_type": "display_data" }, { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAAfQAAAEsCAMAAAACZbH6AAAABlBMVEUAAAD///+l2Z/dAAAA\nCXBIWXMAAA9hAAAPYQGoP6dpAAALlElEQVR4nO2di5KjIBBF2///6a3NROwXRA0a5N5TNUnU\npkGPj4hkV5ZdCJmJndL3hZEnQOmAUDoglA4IpQNC6YBQOiCUDgilA0LpgFA6IJQOCKUDQumA\nUDoglA4IpQNC6YBQOiCUDgilA0LpgFA6IJQOCKUDQumAUDoglA4IpQNC6YBQOiCUDgilA0Lp\ngMwgvfWPaiTzjvwDHHMyg/T/HGjf6KtyPZQOyGzS3ydu2T6ouSZy/HW6jMmky/onamL78JpA\nv6LPJr28mg96mdoNcMGRnsWDQumAUDogONIliQRlLul7vr1XD34cJpO+4z59mxp9nS5jFumO\nhzX3ZigdEEoHZFLppAWlA0LpgFA6ID2kn9ohxE+0s+RL99Ws++JCtbtL9wmrht55VI0h/XOW\nHtJDCUr/EHdy2f5ClH4bX0n/G4PyHoniOkDD8BS7QOxbqKEMb1ERWc4tYZmRR/2vP22r6ahV\nc3y79QpILCyfyiw6VPUDm6T38I30tXPbPNRQ/dpeo1kgPkM8BiWJ8ELKX8meR5kltq2SzrHt\ndmv2t/8kq90os4Ub6fmKXcvX0hfdZrsPZ+fSxE1VuovIc/oclZrj9vVlW6WzNetTxn24h59K\n/2tAS7qO+EZ6OKSzxuwSaNrcS7ovfzEdrump9PgzErdA3lP5kV6ucSoizxmkZ1HxPK6b5FvV\nlh72QTDp7wXVIz3JYFbSC8tTF+nVytcEeZpFn0taR3psZBJ05uwAJT3fEJVCO6VXj3QjPdbs\nxDcd3C4936Uvo/+3922ZxOjkkKtf0yWJiDm96UrNupZYLEu0lk6WJV/AW2VczXq9Kit2LV2u\n6fbetyyzBd2C7RY/Vaqu6duNbZ5zuwdu1vw+EcS26iTJfuNGXtkWbYWbZcJ9esnitsdyC5c/\ncDlUsGtjvtuCZ0qHHfyOSs9UQ+n9SlM6MoNvLUoHhNIBoXRAKB2Qp0rP2nPiRrcZP9o6d2My\n6T3SzA+lAzKs9NLZGccbrf23afiiFprOz0X1nEqexo1yypNMwKjSy5MJ1xu+vkglXMflE0vJ\nGtK4UU6m7O1PRS5kUOnqmMwnpR4u1RyH0vj9REU8nYdJf73F51EN6Wmyo9J9Ex7OQ6SXMVB2\nsFIerkdNZ8nOSY/DsB7LQ6RX5tdnS3fpZ1dlQJ4kfbetNJbX9MKg0v82+GZF1N8Sr+kmXGKB\nvHSUbgJtWXvcP5tRpdvf/yyLuvVef59kGrXrPj0OdbJp/L9JlSd5PsNK31Npp0ZNed1uMah0\ndbx9iupUWcd8wzOo9NjPekult9f4G0aVTi6E0gGhdEAoHRBKB4TSAaF0QCgdEEoHhNIBoXRA\nKB0QSgeE0gGhdEAoHRBKB4TSAdkvXf3GhO8TvO+STqaB0gGhdEAoHRBKB4TSAaF0QCgdEEoH\nhNIBoXRAKB0QSgeE0gGhdEAoHRBKB4TSAaF0QCgdEEoHhNIBoXRAKB2QGaTLSrYsj7+6SWMz\ng/T/HGjf3888LmvJA8CTLgfjJ2Q26bL+1wzlg5prIsdfp8uYTLos6vS9/tn/fkV4TZ9Lenk1\nH+wJXcwuAAmO9CwSFEoHhNIBwZEuSSQoc0nf8+09OfjRmEz6jvv0bWr0dbqMWaQ7Htbcm6F0\nQCgdkEmlkxaUDgilA0LpgPST3opolj67P3XaD+VYJh8rtYl60mrUXd1G90i/hH7SLwk/If1E\nc05B6ZRej/PFTG/n/1dJ5uvSf/94uH7g0egp1TnUw5OtNpXwb47od9NQyXKY9KYFcWSNrkbl\n2DKLqUbWpZLn0ltK7Fvc0JdwTrp5rpE84ogC13kSH4CJzuhaZoWp2lTCLYPaR3Szxefw7ZWY\nNslRlooub1riG5PmslvKt3JY6cZbNpmuq17og3WiaiXt2pJqtzntQqF5O9oRRTlrmcE8V1r8\nSoaSntRYk764SXXlyJr9hXSX/QLppobnSV9/aHKz9G2L7bimJx/Wovmes87dKb11ga5sKV3D\n86Sn0YvbMovsOqntl27np4f73iO90vZD0hurlW+pT1uiOz84vdelf6ikXVsX6ZW2XyQ9Kz6s\n9NI6UZMS54d4vcFscCzlRjyJrW1x22oLiHuOCSmlVRqJaX0KXawtPS7wG8JvKdP+caXbW+gl\nuU+3hVLp+X26KmPuwsXWZhKuAdv9um6o2Byf79OXJEVZu89H+nbvHXPFLaXu6av7XW8ufeBy\nppCED10r3p2+54Y/movS+1ZM6cvF0r/imhq77FNPZ1zp5DIoHRBKB4TSARlAutSyn60zXadm\nsq9uM77K8hPGkN61zhN7EKXncRc2oXOdlP6JX0pvjVdaOyd1C9Qgpa2zMz48NSOQ1gJbX6rp\njF1MLjecq1S8vpoeXJXDNOEB/FC66mkWM213hRJelpUNLCFYL7J92W7HiE1JetPVQtM1Llt7\nfMFH8DvpeluKm16SjZhs3/RDI1kls1u4SFJzXlWrvQPza+nLOemvtziGyRyldhzMR+mlyFHp\nsa7RGUi6Ha/0QXo+hkmd3s1yvaQqXQ1fiksla2DalgcwkHS7oOvpvTo3WxiO9EUqDUyb8AB+\nLX07Rg6d3g9Kz6uwuXdKj0c6pR+pevsTN70kGzFKT8YlmxztcUlZU2qDltI96mPWYRnyPn2d\nG76Jqb3DDKHSc1YJn8Yl6ZUyP0Qq1auW+ga/XmvDuYZngB6531Xczv0Yh4eh9J/U/FuGl076\nQ+mAUDoglA4IpQNC6YBQOiCUDgilA0LpgFA6IJQOCKUDQumAUDoglA4IpQNC6YBQOiD7pYv6\nbSffn/++SzqZBkoHhNIBoXRAKB0QSgeE0gGhdEAoHRBKB4TSAaF0QCgdEEoHhNIBoXRAKB0Q\nSgeE0gGhdEAoHRBKB4TSAZlBuqxky/L4q5s0NjNI/8+B9smx8AnBky4H4ydkNumy/jv85YOa\nqyKhD/fJpK8uRdSENcwjfTLp5dV8sJopHUi6CcX+/g4o/XWFH319LgVR+lKZBwOOdF7TC3NJ\n3/PtHftu7cVk0nfcpy+lw3b0dbqMWaQ7Htbcm6F0QCgdkEmlkxaUDgilA0LpgFA6IH2kvzu5\nxM87lK7/fpU8R99TpJ3nU3G/HU7UdzU/kn68ijOc6HDtIv3b+q6G0nc0gtIbESFo7QIPg471\ng7B3Z3gYwyyybWyVRNTzcFncfHEJZJstNiZ5qF5mJRld7rBiWyXpzr8991njKit9CxdLV8ry\nYNk2SNwv0oek5kHKks/XKXT6LWabitFpRr9D2hVTlTSll/fKSt/D1Ue6f/XBqlRUoGVLKNeY\nr3KEnaYV3MhYaV0sErbDa4ZUUlN6WjSXbg7yn0t/vcln6TpuSUJv4hbp8UdHZpOqi65u2LvQ\nKl1PL2X2b6WXFbPGfaxsryJZHTdz35GeB4ufEStcN5pdIMuidpVfHumubEt6rY6bGeD0npdW\nJ4LM1zp7AOmuCKVvb2GjyVq96Bm2rN9pdCJJ5++U/vcXRdpv734dqium1yVfkxiXrvQ9dJee\nHD1LuZ0150NZ74vddXFxhcoWdjdlLrnbtOuSivSyzFUoacbQurBi77JK+pbY1uoOebfSt9D9\ngUszMGy08/X0yBHPQGer/C6W0r+vaEcOsS/f1/lV7OOl96z0whS/6f8cBD5PB4TSAaF0QCgd\nkBmkt9v2oeUjr9hVUHrHhjwFSu/YkKcwjXQ9cEl1ecaOcNvXCnm/Pov07XHGsqhnrqFj2yw+\n3A07CZNIl08fttDWYhCmlf56C4+wKP0/s0i3g6neV+vWke5GX0Exi3T1eWkcynHuyCt2FVNJ\n5zV9H5NIj9/e37dl/PaeMIv0eJ+uRyap1ocxUbxPr8dd24zO+Nb6DprbGjIms0kvp/g4t74Y\njdmkf+pXhex29UwnnXyG0gGhdEAoHRBKB4TSAaF0QCgdEEoHhNIBoXRAKB0QSgeE0gGhdEAo\nHRBKB4TSAaF0QHZLJxPxD9cwM2woSzSzAAAAAElFTkSuQmCC", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "labelTopics(model15Prrateby, topics=c(5,6,9), n=10)# complete list of top 10 words per topics 5-6-9\n", "\n", "par(mfrow=c(1,1), mar=c(0,2,0,0))\n", "options(repr.plot.width=5, repr.plot.height=3, repr.plot.res=100)\n", "plot.STM(model15Prrateby, \"labels\", topics=c(5,6,9), label=\"frex\", n=10, width=55)#top 10 FREX words per topics 5-6-9" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "We can also have a glimpse at highly representative documents per each topic with findThoughts, and plot them with plotQuote (although this might give best results with shorter documents):" ] }, { "cell_type": "code", "execution_count": 14, "metadata": { "scrolled": true }, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAA+gAAASwCAMAAABfB5DCAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAAA9hAAAP\nYQGoP6dpAAAgAElEQVR4nOy9i4IrK2wlqmQymUkmc/n/v72T0y609OJVD9tY65zuciEhJIoF\nFODdVBKJxPagdzuQSCTuRxI9kfgBJNETiR9AEj2R+AEk0ROJH0ASPZH4ASTRE4kfQBI9kfgB\n3Ed0esER4N3/5yt9MwYjL//5r/Sv//cppx7BaOT/Tv/yv57yKfEPbqWYT2CZ+n/of97pwpsw\nEvl/0X/83/2CH4n83+m//oP+9zP+JP7wBqJL/G/6zztdeBNGIv+fe81jXhiJ/L916N/u9yXB\neILo/+tf6H/9c/ef//I/jtT/l/Zv/0xb/43+ZcNnPhL5v+xM9Gbk/xB9y+g/Fw8Q/X/Tf/wz\nUSP69/+gf/9L/V//PW39h9//Rv/3n9S9MBI5/eu/bdvFtSP/n/R//iuJ/iweIPq//nf//a+v\nfvxf/q5yNPvv1L0wEjnRf224QDH0zP9fD/evSfRH8QDRj4ma/tF6O2Ek8j0nsMPPfLvO/bOR\nI/otGIn8f2xM9IFnvt1c5rPx7Dv6f4r3tf9epfl/zf0n3tGdyP+f9L9+M/L/+d/P/L/e6+ev\n4ZlV9395rcD+sxbztwJLrxXY//tvOx6eGIm8/Dvtx/OxZ/6v9K87bqp+Mh6cOu43TR1FRp54\nN5LoDyAjT7wbSfQHkJEn3o18EInEDyCJnkj8AJLoicQPgLZHRp6RJ/ZfLYmb+5NevAMZeYKR\nRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5\ngpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8W\nGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE\n3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmC\nkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZ\neYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTf\nFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKR\nRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5\ngpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8W\nGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE\n3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFEn7X33+gU6MhbWcjq\nOEnTSKInGN1GW+J6u7c+tfWDYEw0KvJ+yExfMODVfIGTOZLoZ7B9gAvokOSPWqH4TpBzSwU8\nIsL0QTMDghGnCB2qHc8/H14iOu7+udreCFKIc/7ziTCp37P0fB0X7ILtA1zAGNHlYMqJ3MIh\n3TR9bPRFtH/Dh1exYEiMbUh07IXeSnT0kOB/ljqzeXSbRM5CIlsSfR7bB7iAIaJjY9XX4qTb\npl/TX3Q2Ju3wBVrgEDLkQ4iuZGSlDtFVjkY2XQfTvo4LdsH2AS6gRXSCnymiowElVwQvTlYy\nqeiRJvqz7+jjRH8t2sVEV2sNH0R0Mr+jXE4ahZK/dNdML9NkDSTRLd5OdMuHmOjojPjYCWJO\n0MI40THRa6gy0gbRC625epLoZn1mjugzRXfDS6KfR4Po5I5KFxPd3jtcUuXsQHSSOT6K6FDq\nPz+wyKgWFkGsF3D+tA/J8cRwZfJYyqE/+UtJLtrUzFOLFUl0ixbRj983El1fW0TX7H4H0aHk\nv1ap/CP4368TVPaJbmc4byU6egdMLsWI8SGDtg61asruQplRmZPoJxETnR+DtxiHTTxK91h9\nJJnnWGUR0RUrxMfniA4HZupYA6ICUcmdCP0eysOcqj/CyHvRNT2dFqCCIXpxKtwnuvPYMVSR\n7iY2zQ4giW4xRHS1F1Zbo9pei5o+NvraCJwsslXrJnIw7L0HZk5joFit8jjRK8uP+j66tiLv\nfUZGXD0ubaLHr4tJ9DN40xHYuNSr/fkuorsj+JuJrjKS0LOM9Ob8kyO6vq8sH6yJJLpFEv2z\n4B2hWzU1LQCNdaLXSxL9k/BhRL/enS8j+oU4EzlO1eP7caK7i3FYmGcGMyfRTyK/vbYtLiJ6\na1GE4NbZXmMNHNGFZtVR5nRm3d0MeJ9AJNG3xUdFfkmZSfR1JNFPmmczVxgcsSGG1xVbDz9y\n82Z/zlISfQnetyefridd3tGSYafFc2nMzXubOwWfr7B3Rqep9/jzvaZJjRtJoluo2hvtM6/1\noXH/DqI7b4niwrdUXz9hcencd3O9YuQtj+j4Nd5LIt8E2we4gJDoJBuhOJ8sVmfIV+ClFjEs\ne6bUkg4+JyYTrgDB+RufDyYiL/KWAJZ/yFxsKhJdKx4/JTrmKYgeF1NvgehRH7gY+S7YPsAF\nuEQvtWnVceaVJk64IX2NgniVpJamOdstic5ph0Vu/QEf3IhM5B2Bw18/ta/ouWe9x1xCRRVB\nxsBagPti+wAX4Lyjw407pBSh8fefo4CGCTSLpxnYr7dO19HggwgojDwSqKm74i+cxFW+TRDd\nHvM0Echi1MHQog1OBTjJA3Cvb6mhfNKF+9R/As47npgGH20UW5qcRhcyCngcmg1VoutGa7Kz\nK8evkOjolioXtN3Im9XS5K9Umie6vYdOS6hI0x9H9GXb91IxiW7hLuaQ+MEHTUV+kCN68dpe\nbdVUcAaviO5n7xKdRPYoFhfvI7q+OkT3GF385OuJrtYKcY2EXfaXSerqpOnoqwmxDBPJ1JIN\nBdkXA/xFRItxqhGuE52bbmuS72ev3kRE9znmRDQrOBhK8tbwl1u7cMIq/vPRsayJHheOyUUm\nLwTYQC1M+eKH71cItJnQXEOm4w2yLwb4k2gRnQQXZdNCZpKnINo9KU3ZzIOWDN5Ii7KVOXyw\nEXmRRwJndJGpcIuKZLKrsIe+mxsWLpLjeE9FzmJLYZMGlmQK2SJ0Vk10LyCZ7qqsBfiTcBbj\nVJOimo43Vf9I1AoEFlV3gLxobq9JFW4dYt7o8QEDCiOPBLeh0bU8WlyPJmq9xCO66udkiia6\nNcd9diQz6Un0c+jNgj4Qcx4n0WdLI7xGRJcik0LKXmtE98zbPEn0c0iiP4eoxJuewTNE96lP\nytwk0Z1rEv0ckujb4hTRFbXEZ8FnmyLySAXMEBblX73siwH+JL6Q6HNIoo8LDrncShNrJHJR\nxElxt9fktNzbXnOMkcjrZl8M8BeRRN8W3xq5ds9xN4k+jSR6L6vX7jCNvPN4cXHkJ4c+USgZ\nLXFc8HboF3DnhTzf0dfgt1CnNfp6rSbuC0hsqTRdaycHzBm0MkR0t1E5lTHTsJq684PXSkkf\nzAPdnrz90n6v+sEBvg1DI3pEdH/Ik9IZwZDaIMEv8AL2/+GkJp4IRVNU84RHa/ShAUgWd5id\nqiczh0BPRv7l2D7ABYQjOrRl2bZVKxUrJcGZZdUhEJbh0+JPwRPV4r1zM34okwLQIBUelycM\nSKLrTPVy5MSJAisUm01lB8Mj/XMSPcGIiS7bn2m/cLFMUE06JDpVNdWuq2tuk9fiVtM/RfRi\nnWMPFdFNr4BX34wMKMweGB5wf1KwC7YPcAGNEb1IojvphUfXErdFSd/6CZItLUKjwqwmYhDK\npAA1zhD9WMAg02PB0gYreNH+c21Wbtv9ScGsyTNOnM7T0EqiW8wTXS3AuWeVOTPP3TtEl7Tg\n/B5jpPhOohf/C3cu0QsJGUlLfmemei+vKpt/4qjn/pxg1mQS/XuwNqJHyi4jKl8gA6thKxby\nBmO0eGui+9nvIbq3LEKQTiA6Pok1G7Pmwv2VOEEjK8pfdak1RcKPojr8qQB/F6eITlq5Qfgv\nJbo5vTlHdMPUM4txmHIT0fFp4NV6cVzEPdUArfv+cyWIxZZSOwDlh24WwwH+Lk69o0vGOm2x\ntskxoqtW74uCZnHPYtzhII5BeCJUmiLx6/rtNWVmyP0ZgdvLqGuT6JgmcjSJ7pZeMK/X+BpI\noluMER3btp6EYes3bdFhhU/04e01WAC8e3ttGg82sJuJTjB1VkTXK4lgURD9sFBvMFef6GJx\nR/gjzzDMBfi7GJkDXlLOu0rYj+iDw9rpEV3fk6RlaRO9UlSM8YFRK+AfzC5V22EkBLYgeqvp\nP0f0p6pSzKlaatOCC4muSDtLdGJzSfRL8EzrvLuURtN/ckT/LKwQ3aHpa1w2FCxdouPcW2lp\nFV068S0V608SfRqPDUPvQhJ9XFDmttfUmWQ155arNs72mlApthTsHXBlMt/RV5BE3xarU/ep\nHFfCLWWl6O0f7QKS6I5kpE6G6m1Aqc06KzUp8wEm0X8QJ4nu5x6zKRZoWobw9zSu5MG81hk7\ng3W7NdHXmmcS3eKWEX2aKs0G5uzEX+FLWCa+edbjmfols+CxLftCq942hWmRgVeo9OlRkqUI\nv8gauCDybbB9gAuQRG+02P7qDElO2HMVij9M34BbNZsuKTTpLL+v8eDwTawzFSwciH44Ann4\nICjJfNUoVTuvOsNMkJO7kyLtKQOTAW6N7QNcgGgnjRbriIrXLtFOqa1UtFrI7mVwPFKFt02q\nx3yS6F4WFbEolNA3a8HUmK4BW6FQTR7RFwNs41KmtIwF+6Iny0+iWxhaFdPSosbsEB3syFYc\n/IFFcjKIpxQRPTZ5G9H9M5yyZDy26RHdP1iKhTaIDtbVCdWFANt4iuhRAEn0yzFNdNNW6zFm\nu5/aY2UtOyR6ZTm2b2lSNHoyQ8RVRK+pEJo8zaGZaYnuMLlP9EKiBPDjHqIf7/3idDk+3UNL\nSV+u1m8itIxJR7Aq7EKE+93X9tJSEt1ilui2MQYGBogO/46/KhUtKkZBujhuETX6i4iuSekQ\n3a82KMZTHCa6Tm3FvBp5dYS9OLip6t+R/vFdsjkwZh1R0YmA2S4m9WJISEwS3bmuE93P8LlE\nFyuBAQVdoqt8OgMW6hAdaktzAAxcEbkoTHpBvlbQPHRLUsasI6q+TZBOMb0YEgLNxThIApGe\nuivtIp+TSJgn+utWNvimSdNTRJE3BeLM5SuBy5Z7BtUdPtIpqouUDZ1BhwOvQhDQkfnm7TUI\nSa44yJZCQmoWDQzRpTHjiKiSmOhYTC+GhEB7ew1arGxa4ino7TXZGEvBBwf8wUasZUVkhbbe\nNnnJ9toEPrpFnSQ6/2Dfqj963y5TOXxj0iD20Ngh2H6zG8CA/BfRe9051G524z4k0ccFVSgH\n5/NEd4yBFVTg2yT6pUiinzD92bWyTnTexitIZU10+8sjumPMmhGKbaJTaQfQC/BHkUTfFouR\nw44YDrTH+xlrHayGWx6TO8aKMQOKRbz7iR+9crIS4G/iw0el80iijwsG1IfyNpQeqfXtH+0C\nkujbIomeYCTRbzLPGjFRjrMgDXveAthZ16YMzTeQRo6HWtvubXoFUdVHr0LOwmfDQut+QEzy\nc09l2O5YziHMlq9Cmq2lGeRcJsFYJXo7yUs+SfS+hXG7U9ais9bqdLc5hi0ObBexwMS/9b6/\nzqSWoPgs+ZDjs4JdsH2ACwjaDf2tgspG/M9HPLt0HJ5RarKxNr667hzwwq+Vi1ZPqtHzom+7\n9Z8n+mt+fUwpSCaBb/W+modpCMZQ1GflFRUWkFAfWnPuBrg9D7YPcAHNEV014iLTDhXT1uHW\n5tAaYAi1PVYEfGq3/vNEL77DNkm8XnhEL1K+QPRZx+cE0+ZoUBqmUSjh9Hl3k+gW3am7Jjqn\nuW2cpKa2YjUC+4Y1TplOdj+QOYGjd7BanvCWPY86hm09NSd1v4rojUP1kc1LiL7ibBLdYojo\n8CrZIvqhJk81SDVkgyCHsC9YUz8HfHqQ6EGSEkEgshh09luJLl6+6tNWb1kyrZrgQzGiJkNt\nErozviY0hkd0SI+ILtU8okvCaA39WbMi4NPXEV3XiFfapxJd9lGkE/4+qzR4tE6/7rSPUmTy\nvK8JjUeJrjSHiC6zfwDRVZ8VEN7tATDrlxHdo6H3LL1qwmL7RPe0F5xNSJx8Ryeyatj0jxJs\nDp3BEN2yIuDTc0R3jl/b7bWaTyXAa03drtAdQyl6vipLfT/Rg6n7y6Z8FUP9opNr2oj2grMJ\niZDohHM1v/6hvQo1fFNnKkCO5vYaCBQrFNUO/ZuJ/hCi53C5xSWbZNZpkIWiEViOqj68RfRA\ne9bbhTy7Y2GpQ+a/QONWJNGvsEnwOyS6ZnIS/YNwguiD88gk+jpOdcMXRs4khEGb1KfXjEvN\n+oqgbi7GvQtnmtLY1kcS/U24hejhO7pae6iqo9trnjbwfsndBOPs1P3jkUQfF+yC7QNcQBK9\nk3e0fkiqN7LhutaoV5eOa7s/8v0DXEASvZN3on4G1cXCli+8BEn0BKPzvS9PKlZIUKHuwQwM\naz23esJh0yeaO/29VOqNcoKvy/EKEkl1KoWcN04uWCxD8eup/1VAYQ42I++K/MuxfYALWCN6\ncNMZra7CU0Sv68Ryhanw2rEgulbHtSQq6rM2eVjyTtqRkQzNw5LoCUbcZNzx7J+PR2MjkXzI\nCg8+Va2m6pFKn5lxcqoMDcf8MKYFUgUZhy/ilbX8p6GUOpIbS3RGdCVUNR1rd72fE+yC7QNc\nQG9EVwNMKUW2an9EJ62GqSY7DFM2pyZYw7EwijmBVOFhl19LVohOoqMydWGJjrtO7yC6fiqz\nJfl5uqlXkDSJbjEydQ+JXkydEv8WaphqsjutONBoOxZGMSdoFARpk0RX/RR/iIguM7yH6NKN\nyZJm2JZEvx2jRJdHncVQo/PINqmPycv1ugbR+SSGPDsfOxZGMSeQKtcQ3XwuxQbdSHuY6Pgi\ndTwwWIvEG74zQpao9z51iEaFZ/KA4tghrSS6xcyIzumkP2Eek8tp7CNEd0tuORZGMSeQKm4X\npAIhKQqIrr4TwolUpA3u6TBZS4a8nxM4jolwqaj3L3S6aKGtM23CDU9XplY888x/GEn0Vt5j\nI+uv5ePquEt0UNeNEvbEuOA6cB43RRRXr9Lc/dtrKghT38HTMkLnIal6IZMaPFivDbX9Twic\nekcfILrqvXUnL27Jy6kytBwLo5gTfAOeJzq+csmbBtHd164xovtT9yT6KlpEd8az1y0MNXhA\nxiG6fkfvbq+ZnM57XuCYH8W04MMx1tZbOktE90rvEt0WOk506+hIv+7lS5Qm0R/HLa5sR/Sx\n9aiSRE8gPoTow8PUmuUpwS44R/RoMa44N02igxFtokoIyiSTRyom0ZfwIUQfHqbmDU8LdsGJ\nyPlFikmO26n6xE/dXlPCYHsNfJAHIf+Rqnc7oZjba6v4FKLfhiT6uOATseLsVwX4EJLo52zV\nAyXzpuQgZ2ercbax4pLoCUYS/Zwtf9lo1hrphHa2XyL6CrYPcAGdffQpyfWdhjGoxr2BAk82\n9/BUp7RiX0i977ELcU0hviPHUOGQ8cX59si/GNsHuIALiX5D9XomBya4PRNtgdQSi0522Zep\nCEp/C1QqmaRYpJASqR4tiT6H7QNcQO9kHByIMSMb2xBfbXDHMD1SkdTzh7+aoXBDf417Zlxs\nRTEnsFrTRC/q1hVLqz7RayniqzNJ9Da2D3ABbaK/2txBdNXgvSaN9ziG6ZFKjXWwa2uGQzui\nicEQPAmimBRYLYxbrb3xYpw67xkR3fu+liK6d3D004hu+zpznbck0wPBgPkkusUQ0Z2xRj9o\nj+jq6hnFPiMQ/X0c/3dcbBSTAqvlx13lxJqc2qoF0hJJdOvk5xHdMbdI9I7VccGUys+hQ3T4\n9oK+lWfYkZWgJZu4SpfGddL3EN368MVEr72WOhTzcsP5S3ret9Lhcb+y+iuTBS1Ui1WRlCWW\nr0X+wxgY0f8+89CF7bVeyEhtEyd5j3rkmPhcopOSa5/+eFJEBi0WGpboGCgU8BzR3Q7q5TW4\nqyMtNnLwvxolUZB+ycOITY0k0ZfwINHda/kGorunOoUVIQm211jtcJ4U16PttSeJ7nU3iq6q\n5t3n7+T0RL4lLCuS90JISIy9o6tfSLf+gz76Ye+KphptR+s8R/RlvL+xvZ3ouG4pFyyT6I9j\naHutHHXX2l4r7v2hGlyh6eikV1sBXzgtiX7Gg45rMHs7R3RbrFDhgpLo9+OpI7DOU39PwU95\n8P7GlkRPMB4gun48o4/rwtKnBLvgOqJ78yqWGKIr+haRC1U9Iudi3D14YkSXR0zs/b2FTwt2\nwXLkr/HWbmlJovP22itpZnuNC8IuQZUVbq91u6qExoOUew+S6OOCQfmq7nUWk+jTSKJP5HTe\nOiMVX2RSW074svHndTfRr38FG7aYRJ/GLNFP1iEFn+fLHc195Yg+QnTCy6ky30T08RZx/SvY\nRRaT6BZJ9FZO70vkRb5Oqr1FJLo670nyXOffeVJVBptB68e7LyeMECJfWhKM8DtCakO7kNPO\nRJO1p7nsEbGgIWsLJttfIv4jEMaRMMBpASiIs5mC6H/O29nmsViEqjK3SSZp8TAI1oHowkTX\n/8XIvx3bB7iA1hxTN9ZD4An5CHQhZaLfkLUFn2M1yXKGS/UjmRKAgojUpgwSna9u7TmWhFVb\nrUn0NrYPcAGjREdB1AzJVnGnIWumRu1fc9njTBTgtCDy3XcPz3keIooimSc6z90fJjqFNxNG\nRrNdzMwkusUS0YnENBtoKibR8lyzS3QyFoy6PCcrCz0cuW3qLsOP+yGZ6Tqi8w9xAc8T/Tok\n0d+E5REdbjQRrTQkurIaq7N90gmyVDeSKQEovJvoQPjnid5eM3SSMJu3jlOfsjlI01yg0VlG\nfE9onCE6Ci3RhxtyERZ6RNeFCo+jSKYEoKAKOz6pK5pqRDJAdG8N42j5qoDbiX5Eoa/smrv6\nEgUvqxAbAjm5bGEz9E2iWwwQnTd4im2qzsTbaaythlysBZ9j/LhJJWjSm0imBKAAJRJ8Ulcs\nnvBH71zADoINNNqVUK38qe017zk43ZbH3MFsTq7SyT2IJLpFZ3sNJmo13RUiD0B1oCGL3DIJ\nOVYzH2Zv3157B6709r1Eh9UXnQ3WLw3Rg1xqyXPE94TAzKvPV+JriN4etb6O6LEZLF4TnRqF\njuPTHu0nIIn+MWgMWktP6QuJ3ryO4+Me7Qcgib4tThK9Mbjqs02F29HiYpw17t4PYvtHu4Ak\n+rY4O6K31wydJMw2u71mjEvL1dq5yH8YSfRtcWPkjgUKJWfLdKb6EzkSf0iiLxsYy9rOfmft\n30N0Z2A17+iXlWkKS6Kv4mqi91dOSF2vKHJF+hDRbzO+bvtcoc6aISRdPKLPnYg7WdjWuGFE\n34jo8hWRMJ9zWPO4r/rmtIDe9ge9Epo9yiRpve/8mci/GtsHuACnyZiTW9AshZzkeWhuoYQp\nqu3KRRq3jatyZ9d3VDRh5AOV86qgl0tI9OolHd7K+5royGBGj9qR2cj6iPerkX83tg9wAZYf\n2Epr4zoEKv3YZ4GPQA9yG6kyZ9u4KVcXbA022v5ZoqO/iqGuU5g5clyW0KwEPzmJ3sT2AS5g\ngOhCYIYr+xHuWs18sI13OPUQ0XnuHnZLOL2X+oampDtPkY+sqrQweB70QqKTuHTskU2aKuU8\nkugWDxDdO/UMKuNEHzs+7YUzJbBVAT+kRF5Uul4M0eXFSdZpnoUx76cE86Yi5ST6p+GhEV3b\nBZVxoscONp7sFUQHwg8RXVXRFxEdnxuuv/zJ6O/27w4PyXBy4TUaqncFJC+LzrrLX8ENfWNw\nIcCfRRK9gb+Wx1eP6BGZG1P3GvlYJZA0OMz2c0TXAR41rTzSWhC927dZi0GAjv5wV5dEt2gT\nHd46/WfjffSI7hC41cZluZEhWWTweM8QHccZXUa4vQb5zPbaETYsNFIp7igmVQ+DqNN1flrw\nF0+J/mlLt0Nzb2NedtLa+th0WkiiW8Tba7JxHQksj4l+NO/jRy0oHbtmQRs35c5srznRhJG3\nK2Yw0we3qUuJ7nbXA0Qn+4Tlg1LrLqE+qae/FPkPY2hseC8iD8c8T6KPC0pI9N5fOG6O6Fiu\nJrpntqXP1ptBJDSS6DOeTEwY3o9LR/Q6XdPJ7q1L3CBrSHRPX7F+IcBfRRJ9W6xFTsWhqk90\nXIwDu27uwlmURbHc2dTX5c5H/sP4AqKfQxJ9XHAIX9N1deA2/BcANUFx5VK9cvOobbfVuvoy\nw0rkP4wk+ra4P/J3VmESfQ5J9PO2VqpwIs/qE7qV6EPvynciiT6HJtEHD1Vf4UYj0feA54lt\nFx8g+s34SKKPbua/BR/r2BvReloEv9+BFtHFAZal3j0cntW2PxzY9Hb0WUu8QhbIiQJYVBLy\n3vd6eydDL4h8H2wf4ALGiA4nFwrZpsbqJBSc5ukd9XLavSYMln4kShfbQYwLzDk8EZaSsfMg\nqfUh+4silpBJy6nKdcngQClW3OiyZqtkF2wf4AL6RC+1OR2s8jhQsEEqIoCJgo231e7BNQKj\nPtGbAU4K0AO8oqygbEDbUSBH7nQjqhbRS5H9isg9Pepa7xiLxDNcJHEZz5AA9N7R4SZsiaxB\nlZBuGyH50DrtPugjahoZF90YJgVjRD/mNN4YL7VJnfHUAYP8sOVmgTjdk6HnI/f0YtVBIxcS\n/cYMP4AuT/C10WuJ0ASB6III1dIA0VUj17qG6KoQJ4BJwRDRSaR1u4VWwCogCrJYVZF9IsAm\ne/W3GY7/wxcqV0yiTQRfVChHW5KOQRt7ZT90A0emAvxd9JdOSfxotuEHJrokAprpEb1Iub7k\nJ2UAACAASURBVPgs/kajOFnRcX9GMEJ0lfYs0b2iZgLsCIyPVJorEI5YVIK1ybqioYhK4H5A\nuOU5MhPgD2NoMU5RrUt009xNqz1LdOHZtUSPWq1upaK1aomMQWfRAUOLjzmB1UE6+xWRew/H\nRucrjah5D1y5svIl2ZkAfxjDRCfVsBQHCn5WRCg2aajdH1nZLLYeSLiU6N6+gNpywzmqrgpS\nXpqjm9WskMuqs7NbuX9hsl8ROcfD7083Eh0rlj2b/5LsVIC/i95inHolMo1TNsEjURKhOEmd\ndu+9DcoO5XVtLEZJ3VHBBY1kgWF3YM0NktV7G9H19Oz1cf5LsrMB/ij67+g3ln17hlaeW4je\nboFJdHFFlePj/JdkZwP8USTRLygDs7cmGJ9OdDtuWn55i3FKLIgejMUkLtqDEaJ/TD1/B76I\n6Guufsjw+gYsRB5ur5WDXP72mhLPb6/BJKJ4akUO9Lm9No13Ev0RJNHHBefMnjF+6Vxt/0e7\ngCT6trg+8pFX40eInu/o00iinzO5+jrhvZgOZJkp7o7IO6cQOzsg16Fd0u5tegVefZH5LT/5\nhoxh991Mvr91nJlt2iN+9QVTJq8i+mCxbyb6l2D7ABcQEt3+xYI5u69f0dWzaIk/XWzgyJRA\nq5FaUBKjCcF600uFNcVSVMFKQEuk1rDAHtUfOtTGB80keoLhNpujbRVof/V3KV6T1C1+gOia\nNrXBMxewaUOZoC/ZE8TiR96pmUONij67p0ZjODx01BkpkU6GPsyRsj0k+utZTHg+LdgF2we4\ngD7RVXMMmqS+LcXm9kb06J7PhXplluJY9h/vaaLzT0R0FYLnm0kmZSCsIj5BoqtrxPM5QUuJ\n2ulRB3SOcxPd2nWF7omBEf2VosYtp4mbVniG6FECMiSkn4plTmDVDibyGXAvRH0RUajJx0uR\n7X0N0QO9JPqHwx8HD5br5mgbbIvoIU+XiK5Z9gaiOzkHiW5cxfg+lOj+axpJETYRczgmMFNK\nLwFTPKurkf8wBohum/kY0Ql/nSc6Wg0te6FEkUcCq3YT0VHr84iuveJ7sfKAz05lCc1UeZjQ\nsdrzfUjrt9AnusO0IaIT/96J6KokPyTPN2AGsLYzddfFP0h0JwTocVrPUqebpmPsewW2rI74\nnhBoLmEx27BpjhFdPegZoosvRoR8FiR6hOh1cgnFmbDdE91qrkuHjdet3l5De/yDmxKjns8J\njNJfqYQPZIToBFsp/Kvx5mUSOlZHfE8I9ImOzTFqx8U+ouOxtA7MqF1pxQXVtLHMoiyKFuNF\nMiPYBRcR3d53KemYEWOEZ3/K6ojvCYHh4xffiiT6uMAoXUf0Nq89zZbVEd8TAkn0bXGS6DgE\nyysm6TN8dmYndU8Sfeyhbf9oF5BE3xZnR3T/NQ0px9tr7luWNiPH5ehVTHYTvtWu7wmNJPq2\nyMgTjCS6TT1fJZGF18H5kwWcHdd2f+T7B7iAJLpNvY3o1xg/6cQP8GD7ABewQPRGK27ek18a\n2VuvBDp+E973Mdfc40OXuJknLvIFFrYMTWZ6ob7fooHoIKgtAAoSr8nnIt8J2we4gMeIPjqa\nDRJ92O2VEZ2gJOxXqLqnNOpVioPMngFevHItmWQUJ9EVtg9wAQNEZ4qRoYA67kLOOKNGMzOG\n4fjUGFIl0ccf5QrRo5LMfMIQHa4k8nlE1wZCi+2CckTX2D7ABUwQHRqX1850O49HMzOGjXyP\nQRB94kmeIbo4dCmOcA7xzw7TXAD0a3J7WZ04NVN3/3pB5D306t3KeuU05WfImkS3GJm64yMe\nJrrHBdNkA/3QDhY/GuCcwHURBBNE99VcO6I2RJZWAc8TfU5+iuhnkES3mCJ6HWy8MQ9um0Q3\nY1iD6NL8oTy1P3UR0VXaZkSngl87sOuEh5BM8iu/lKlpCJd6BM9yZ00SXhDDN0GoAKcFJ9Et\nhhbjzBfTAyoErVQ38gLiNtGl+VciWhnxfUpgike3OAySGih1gg2I7lWkx+SgAEw/Gbl5PcAi\nAo9VfE748kFx8KDmGOWxxFtxNBXgRZlEt5gguno+byO6yD3g+5QgPHRpt8UKaBAc8KRSx0DI\njPGTMQB8UKNhUACKLyA6/oooZW9bquLT69b+BcW4kcwVNRj5D2Nsew3alehj1SMQz6tFdHxC\nPaJjz8CcGH6Wk0T/RlxFdPlSpd/DRoh+vGrVibgs5CA6W06iP4UJouOool/KShG3wUsVqfsj\nn3iS0ZBaxzaZbcz1GcE3QXSFnmxMYHpUfTtIdGlSTTbkiC5yJNFvx8KBme/C3kSXXaEShXn8\nlOuJLstKor8TSfRtsUR0h9HkJ4Olv8mXa0FxHyZ2kVGf6O6bYBJ9HEn0bTFL9Pb2mn5bk5OA\n5vYazg2kZVuWR3TvTVCsTg5H/sNIom+LiyI/X0+X1PSMke0f7QKS6EMWmsqv3V/WcbTXq3k5\n5zZEF5OHJwrcEUn0IQst5W5HMFXadfgYop9GY8XR17/LkS9GpwbxT+70NNspWu5ZG6JM18qg\nxmhBr7Of6oQMf6YX4JVTvMryAdLC96V16FQeyqEiSp/roE5F/rXYPsAFjBH9aKRnCurcH2kf\nR3Re9MX1ocKf5QqSXjHGjGhIr1aRe0vGyPjYlkRPMIaIXlspNsa64SEGHjj4ySNc1RLna8wY\nGY6daFiMegNzugun7mNEL6qehMQxRK7B0jI27vecYBdsH+ACBs+616sYqaqMBx4i3UKh2Qqa\nBGOkm86GvUFwyPdxgafIYct+iSBIGblzgLQUda+ZLU+Q4tRdZxr1e07wmDo17lbKvDT3nlgm\nulaQLd5qGaIrg1rHS7flP050x4BPdFQaJbo1bnu3jyf6m0w+aP4rcQHRxTcUJNH1RL5IqRkj\nO+nY1tWJ+a7v4wJP8UeIrs7CwOsRrC06B2rUg9bfVT/UjmxcG+LgDOQkPwN5BcwE+Ls4T3Ru\n4w7R5cUluiqnlU7GxFuI7kRA4qPDTW7a2hCZ2JrG7lyMa/rx9/n4kUnqsZO8FWkYg2o6UivK\noAuYCfCHcZrokLAr0Qn2Huz2mgjb2V57OWq218BCf3sNzN9MdPSZbxX3va4MjOikSJ1CaSuD\nV8BggD+MsQGC6u/a9aIonLor2otn5jM3fL5O83qI6JfifKnPEb3IjkwTHZcb9dQdS3FWJYlF\nMjWJfhcGZ4L8wlxfpkAEj0ZTm8QzbW+vhWMnGpaj3hPba5fiVKmd9j1a1DDRi+ytFdG1NZmj\nqIcXcdRndRL9aoy/8n0pdiL6yLmBgaIeJbpD4ST6G5BE3xZrRD/YTPK2yM8eEWOi66l7YzGu\niCQ3A5VcjJtHEn1bLESuNrTg9chfeGS+xe/o+K5HYJxzkdVqZfhHlttrk0iib4uvi3ycup0I\nPjXAdyKJPmSEOlmaxgZK0irUkI3im4jeeOn2REn0aVxFdP0+Z4SNfHFylDEsabiAqdZwf8P5\ndaK3lhkdURJ9GlcSvTQ75evMPUd0cfyzwNsh38vXzMLaandQ3In3THgj/jNVd6jNmZsqH/D9\nu4h+KbYPcAGdNuMca7ZHl49GSPXylxfzHSmQ9c+aKUSebbYyJsNQmz/T3GFpiCMS8ajFI5J5\nuLuSd2jpVQM2XVsy8iHvFyP/bmwf4ALaRHHa2HEKzm/XEQ0E0akYE9rSQQpHhrwaaPNXE93G\nCw45eby7KCZxxbya90n0JrYPcAF9ohfZxmLq+RfdVIOW7Tdkt3Hbtj8QwoRAqcwS/ThE2J+6\nqyseKaVqq9QO08oHvJ8SrGPIH3lodtyar98wlES3OE10eHj2wsIBojsNWZfCbf/dRC/+H56U\nZim8eERXhUItYu19L9Gr2izRQ6Uk+jguGdFlsqKBSNHWHIa4REeHfoXoqtbvJ7ped0E/SvRN\ndHfJpugvqYuSw38tTC1tiubDplgpiT6O7yK64tU7iS5/KT6if86deyZUV4sQePIh72cEakVE\nEZ2qN9UTSNJOysyyZK2MaVibcf2h0kzkP4y5xThI8kWSflJY6RJnxYavDShSPEF0ecrTI/rC\n9lp4JlTsph0DoiAPjQbdDrDJD1HbvIUinj3oOUmN3ojccjCtQXRlKIk+hcntNXiySkTHn74O\naMC1L/7thYAh+vErmS0pjmBasAvWiV5XSwKiy3UZ3RnBOYNo6i6VMa3w4xUyNCXWaaYi/2GM\nnb1w8q3nePYxJNGHBWKkLZ0R3UlSIqcsZ0RXZXuDNYkLFJlEH0cSfVtsSvRAaSTAX8ZTRMeZ\n11qJi0iiDwsEAYHFRd2jXp3NW5HIjiUbpYKfyZOR1Myp+zRWif41SKIPC5idx4oIKCPxB5Zs\nyutGlieJrrfQpOGBxcwk+jiS6NsiI08wkujjdvQAt+aNm3PM3FyhSfQEY4nocnWkp9aVNSZh\nXra3Nff5wofLTaJfie0DXMAnEH3AFOo92dz5NVR9MxbfS0uBZDjJWcTl+Fau+3dhqx11Qkwe\nMJXfArw38m/G9gEuoEt0km1NHmexTRbaKR95oKp+6ODvOitGrnhFF8k1XK9p+D8t0EqVYn9O\nVofx0FxNljwVF31FLRLFVZHJkkQfwfYBLqBHFdPmIE+0pwJXQXSHBKAnSvKKPtK8o9KdAKYE\nSosKLvLq2MAvmUZS1qylCVWoi77rs4JdsH2ACxiaureapWacHqusOpLAIzpI3CLdYlu+TwqU\n1gLRj7kM6T5KdmhwWrTWnukNHyT6UDoF6TKZ2ipD0lGVizJtjj7RZXN0W3edpFtd09L1YWgm\nupCUuEhbbNP9aYHSWhzRuZSI6EWm6xzBdfyvLN5O9Ib6aOVeoXJRps3Rf0cvbpurF01Nq+u2\naJL6uuEb8x7RxwKcFiitHyC6sw4DscK3S8z37Jylm3DNEnJjseJkDAU+iPUYLTKNOIluMfyO\nrq5GFuuGRJek+Uyi1xI7RFd9HOor0eBiHKGqsHQ50Vue6SejZmzu0o2sD61Sa1FWaIGYde00\nmh0Vpwkn0S1GiG6m40HrFo+yRXR43DB1B0nRqiHRu8/0SqIfo5ZDdPE+HmyvHTm722t8ylNv\nr437PRt5RHBFdJU+8Iwia0oT76FA8rUCg73Ifxgj22viSXa211BHrEUpEhyzNnyYSl9P0bAE\nzNDxf1qwgnuaFqnrXFETkfvrMPcQnafubaIfPtUbnDEk0WcxtOp+roS7C1gsPokuEp4juq+J\n9/BzDB3a/ST6JJLo95ZyiVWwPvG8hiNvEvxNRMdcisxJ9BXcTfT7O5KeA9OCXTBFdLH2V/iK\nG57i3rJYrShGKjBAd4gO2qaXcNwbiPyH8XYi3o0kel+g1v70mktze60cjOOlm2DN0myv1YUa\n0ZNI7WrIbq8JlbHIfxhJ9G3xeOQDdp+p9O0f7QKS6Gs25Rz0MpC6XmFrXHCyrLbdAZWrsHub\nXsHQgZki6s7JMdum5ruX5Wd3E9HPGehY/j6ij2x1Du2GXoIkusUo0aeTWoKFB/E80fVRTOcs\ni3pjlcdkVBJx/xD8dSN4ExWHQ19fZCengHsi/3psH+AC+kTnUyt6zaYUXE8x/+aCWkLBMrU6\nNmPODSUgowyzOgHMClgsFoP4Hk5pRhqH60KlEp2EDZ0ZSgcZ6XJvi/z7sX2AC+gSnVsgtrfa\nlIsQ4WqraLjKqFHnZlwgWZZgbA+1+DNEjwLyiY5XG4fK0cns1aXIM4AkeoIxNHX3iaYupNR7\nRNfqmramBI82H0h0dcTz9avO3RXRyTl9ynaEjH+emLqfJAvFd3WwiLMqqaPddC+JbnGS6Dix\nft3WObt/mKEIdTApiK5ONgtSIG0+keg2M/zIO0FsQ/QSWOk739Z5L9F1h+5lbXQTjbQx4Y/i\nLNE5SfJfXa3RJtFtk8anrxg2EMCUQJd7nuhA1Y8nulqUqT5R7X3r6krN4q9XHrJqB4YAolpY\nzS/O4dRCZW5UWoj8h/GRRPc545LiVqL7BI8W41QsL0XMFBBdX0FFdRO6gBsiV4sywLnqT/C0\nTLSOy8r9aF1H/iuYgdJC5D+MSaLrKbPzIAeexwjRbVNxuHYj0c3+V/WrfrVWb6+BxlGEHuM0\naXXmOtSJLQmbZyiApcidLifolHQ2Ty4vlujyV1WQakn0CzBBdGjj2CeDpBQzw1J8la1WtGVS\nVlUJ0nbY4PwApgTXwRbxZBO8gOhyDVGsu+CKoLOgaJ+esgaF2bUXh+hDiz8jAf4oxhZwQf8e\nN+5DEn3OCdGz1x/DzqISGiM+JoUjulTgQiHdlNmOISEwQfSxEfTT8ElEn+1Vry29L6hC0vRs\nEV0TPCC67kEwq1dyEv1SzLQ9PK/2NXgn0d+LRaKrcVURXQ3P9aMierAY50/dVb6Y6Lo3WQrw\nR/GF1J1DEn1c8CcUiyI46JJ64a5Z1JqJs8JybMh5RHfWXuyUPrfXTiKJvi1OTN2nctyF9UK3\nf7QLSKKP5aW+wBhsjDwksi09g+6TS6InGJNEn9K+sL5veOh9k9Ri8YDBOA/JzyvRjbi/ktUR\nvmUwOFNoEt3izoe4C9HruyM5f2kIX0Hll2+PhKM0OL+vzsMQpxX+wZUnc+B0YGE0X1oSjBGi\nwxFnErckNdShZ9WcgSVWXect9WkFpoa3AM4T/S9m+HnRttSPhS+VpTWdtK1Sc4ABYiWH6CSz\njs0CkugJxgBbjnaM7dk2PrLtUjRnYEmgznrVqCSRpz/k/ZxAxa14q5gJnIMKERlUuMWaFeZ4\nFiBJ/RjRadB+YOyWOeKEQyWJ7mGQ6MW0MNP4bLuMWWKvRSU6pm2z/xCi4yT+lVUcHX1diCch\nn070vlJo7DaSJdFPYZ7oeHx5gOgkGn2D6PLAdH1YikRVhQbn7stEJ3Gsukl0KdcML/5fFfpk\noqNDXM3uP3TnLzygUg2MBcpIcT5yLijqcGM18h/GAtGL3/gCooORJtFJ3ihaWKIPBzgtEPIV\notsMX0p0XbR+gPoBo1/mKauWgOnwTgdH47AISD0T+Q/jU4iuWf92orPj/5TdIjrEVX0jnWAq\nzCe6rTTFqAeJLv1XFa8fRJfoqnTdSOxHv5ZHnnwS3WJiMa4UrPDWYpzUNA8xUBcLcaqD8Ik+\n8kDPE12f3TREh3OeL/eJIF/hVMkCZ3tNtWXY2MO0sfZ+lujVSVxZQNeT6F+Eme21Ipp1a3ut\nVIJgWn2IjjqyqeCjYhIZ/aHnudrcPwlrrp4kuv/C4bFRCG8leum/nw8E+JNY3gxZr8xnH1US\nfdacGEA9ouurFUbKkCGJ/iyS6F+AdxP94CYScoboBOkelX2iqx2PJPopfCTRrzxzsQPR13Ce\n6P9c/e01VvG20+BevZNxDu+dDn6wiMORwglrkf8wbjnH9ElIoo8LVg0+iCT6IpLosXSlakhd\nR/Wj+5m8o+Ik+g8iiR5Ln6iaM2X8HtEHW+v7Hf083Et0fOvq6N3FrLXmTn/viPJ1ssBn/331\n9f+xNQUqNnfNKg+DWtOtYq+PfAdsH+ACniH6tarTLswJqlSf7KkXkjK9PKyyUZxbZiXfdKvY\nGyLfANsHuICriS7GQDq+GOKPUzzekxpCr3RoWiB8C4keX12Rn7tnSnrZks0EuD0Ptg9wARcT\nKxjM/LEIiS6G0Ks9mhNUKQ+j8jtZ5DDOI/qRTR991UTvmOSCnyG69xCWbHEnR5Ggl3+tNSTR\nLW4gepHt0eE+q1FlOTLrBo8mBFXqDMmygQ6M6DJbPKI3TKI/X0r0OF8S/SHcM3XHQSqJXiDg\noiphkOjNTmA2wE7kzjqk/sYNJ/3jC6pwJojtpcWRkm9erE66C6I00mKT6BY3LMaptrsJ0RuM\nI3l1Vfzceh3PNR3p3rUYV23bToufJ9SJObGmO71XxyAUdAvRdSmCxLSR5pFEt0iiB1KCxuyP\nVlWGV8lisb1GKrfdXismP9ek3MW7c3vNPAnxQPmJ1TCKzsCZFLP7RHd7SNvj9CNISDy3GIdJ\nQUfwQUS/pozzBZ7w8hqiwyJgQaLzAmVV073hMtHVi59OW4/8h3Hr9trfuNMYi5DoJOaD1zk0\nLbiwjFMFnq2NS4iO3XTRI3rkJ2daH9E9Wd/3CaUfw3uOwD5Y6OcQfd7suVMFVxDd8myA6JAp\nif4peJzod4za3fKmBLvgKqKLGTMpBfGRQGeR6GYxTmVPoi/i+RH95Dg1Xdy0YBcsE12tQ/7D\nL7H8/9KCJPlY1cKkS3Sq2TivXp10FkShb1mI/Ifxnqn7g0iijws+AVc499EBvglJ9GfKG6ln\natxd58nn8uCyt7pPDfCdSKI/Ut7Cq+XvEf2yt7qPDfCNSKLPW1THW/hs5uuK5uUZT/Ma6r2e\n+hkX/JwW7ILtA1xAEn3FIC4Dk7oKouvFYm9hWS84m2WvE47OCXbB9gEuIIm+aNDd9+GlZk+r\nnUvolST6CWwf4AKS6PMW3ZPp1xBdfXc9ib6E7QNcQBJ90WiLsuQTW997RJeXJPoStg9wAUn0\nRaNJ9M/F9gEuIIm+YvAgNBVnMa5H9FyMuxvbB7iAJPq8RbEhZrfXhG1xcpNz9bfXSm6vLWP7\nABeQRL/IPnmJt5bcQxI9wUiiX2R/jOin5uKTSKInGEn0i+yDuVadPvjdvSR6gpFE3xYZeYKR\nRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5\ngpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8W\nGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCkUTfFhl5gpFE3xYZeYKRRN8WGXmCgX8B6O+PB21y\nrQGGkV9Sfx+MjDzByBF9W2TkCUYSfVtk5AlGEn1bZOQJRhJ9W2TkCUYSfVtk5AlGEn1bZOQJ\nRhJ9W/Qjf/cW6ONbqj+MJPq2yMgTjCT6tsjIE4wk+rbIyBOMJPq2yMgTjCT6tsjIE4wk+tvX\nih9fe979ke8f4AKS6NsiI08wkujbIiNPMJLo2yIjTzCS6NsiI08wkujbIiNPMJLo2yIjTzCS\n6NsiI08wkujbIiNPMJLo2yIjTzCS6NsiI08wkujbIiNPMJLo2yIjTzCS6NsiI08wkujbIiNP\nMJLo2yIjTzCS6NsiI08wkujbIiNPMJLo2yIjTzCS6NsiI08wkujbIiNPMJLo2yIjTzCS6Nsi\nI08wkujbIiNPMJLo2yIjTzCS6NsiI08wkujbIiNPMJLo2yIjTzCS6NsiI08wkujbIiNPMNpE\nJ/gdSe+Ctn78rVD+m6FU5P2Qmb5gF2TkCUaHJH/UCsV3gpxbKuAREaYPmhkQ7IKMPMEYI7oc\nTDnxGFpF+j+iKhByOkxZk/9ccQZBoFUcomMvlER3kJEnGENEf7FYcy3ioCCnSn/R2ZgE6gLR\na/fBBkloJNFjZOQJRovoBD9TREcDSq4IXpysZFLRI030fEePkJEnGG8nOvGcvUt0dEZ8zBHd\nQUaeYDSITn+4l+j23hnnVTlJ9CFk5AlGi+jH7xuJrq8tomt2J9HbyMgTjJjoTDhvMY7XyON0\nj9VHEjlZ2kRXvYb4mER3kJEnGENEV3th/9xSKXp7raaDdcwnRnQnixnAMeF4j8gDM6PIyBOM\nNx2B7b0wPFCSEVAkeCU66c0svq4ttt1RdUruFziZtx1SbJOgNx+GPe0oO/TFxpBEt0iicwLh\nZcjMAtHd5PkpyX1Eb9VCz+bkw8N3OpF3usfwnEkgPozo17uzQnTRakmuJ4iDfMeY477cqFse\n0c2Bv5oqChAlq3cdIqU8M+gPE33sRCPYdGvJDNwqkyW65nlY6kqAP4r89hokvBpRUW23co2H\nIOD+P0l4T5gJGn8tFqe47IU8RXz81P9JmtLKTpyLRK+14DqjI5MdVqOW4kwB0cV0PjCwEuCP\nIokOCaKJSyaS32TRFtyQTCZjyCM6fjocsF2MUtD2liKXQkt04YxbAT7RW9eCXJav4yR/NUpd\nCfBHkUTHBIKm6hLdO0JURNOsK0nFqmOuiOic411E51ogzxlbEYfb8QjObxoikyay8U8T3RhY\nCPBHoYl+Yq1z3Qf/XrezXrYx47EAmngR2/lVaIhtiE46hxRDckB04Mr7iQ76HofRFIn8beV1\noo8EMCD/RShWE/x+zofG/XcR3WN08ZMl0UXqzxDdqx/RBpPolyEkOk6SqNQp6bE0zOrkK/Bz\nM9M/bYqL43v2h+o6c03jHdtgldtE5EXuJfCPauUx3WotHlESZhLJKje7QeJDj+hmMc6Pc5no\nrvuvjwHh+0R3M+Hqu0N0r3qFgZUAfxQu0Uut06PSaxUjGwwvUEH1xg1N/dKr12Vq2mFRMACb\notfi14gOUn977YihVpDspzrba1hA1SmgGRK9KojtNTfO00RH+9UZvdGlbTq1ZLfXhKqug/qY\nTdduSl0J8EfhvKPDjaGQblP0+s9RQMMEmsXTDOxzU4F0oSs+niP6hPTNGHNuMfIPxKzDXxfg\nA3BW3kTveRBdrHeKvraQUahLsAUNVaLrpWiTnV05foVEF8uwslzQdiNv10tT+j4Eo3eoOiX4\nVCTRz8NdYpfzNT3bwg9yRC9eQ+RJX8EZvDOi2+xdopPIHsXiotUaPnjTcXxXJImeYESLcUCx\nc0RnWrYm+X726k1EdJX9MqJvgYw8wWgRXS+QSP5zBvIUkHx6SUesvzUW4wKi8zCO2UlqSRte\n5JFgF2TkCUZ4YKYuFFNNx5uqfyRqBQKLqjsgmAM0t9ekCswicHutXlW5woYXeSTYBRl5gvHB\nb6MR5jy+tbk7NhpvEf+k94rV64nrbg5HPlyEr9jNTuLlTuTqFz3i3HJAP4Qk+hnERF8t1LT/\n7ye63/Ul0Z9FEn3ISHDsT710wGoC8SsGvI6QPOdST8tJi8Kufq+ZcHpUEPwlHnZQfjWeX5qi\n7HKDlo6TjSRzmUDJfIHdsd44i9SP/IfxhUSfwxVEry0faXCkOVcS2n+NmS0Ja8VasGG1MAAA\nIABJREFUVGUa01NejwjcE6bCQQjK+mKyO+YghwhUZSNZSOScvk2i95FEnzDEDbBJ9IA3x0Wk\nG3eco4l+hhGHxwReXyXKCzqdkeyW6EcufUYKOgLT80GXqJKFuBv5DyOJPmbFP/bnNuuowR8X\njyuS3upoYi3xtql7FIpVqMGQmZAY5sI9VJ5wIiC6rGKo+GoiOErZifyH4Tcdsre+Xuucli+Q\nPXnTtXayvs5ZmWsNzkhzpBt2kNbuE93UrxzdVIkzTg8JloiuLqDu3Wtxh+iOc1hJTmFjkf8w\nhsaIiOgEvyPpjGBIbZDgV3lRVUeJXi/DRLfkkbmT6LbgJPokwhEdvgHO66b1rqoV9bDUWigO\n3rLdHOrBomoptkRcsmYxQXF+KJMCX1XOE1WL6xLdXYzT5tkwiTI1FSa8HhK4IQgHZVAkfQnX\n8qTbQGQTqEd0x7pzCBLrrh/5DyMmunooZn+lQIWSyqSYERKdSqMxt9Zbpdh92qKwGYGnqw7z\nVR/g1tleYw1RY6iJ5qt1gkRVxIzTowJ0VBf9UrB9amt7TZo7nlN3ew1+fOtYcG6vzaExohdJ\ndCe9PjctlEqCvgWeMTYDzAlqVkRWLIqzoUwKbsEb2t51kX8bcb7N3ycwT3S1AGe2SGRmsfDK\n1lmNlNl4NReGFSH+dKK3vLu93CnBZRnejG/z9wmsjeiRsiE6/+ih2hvRhdwtEW6/huhq8+y5\nYqcFl2V4M77N3ydwiuiklRuE/2GivwkZeYJx6h1dMlYRnOA6SHRI4oxaVInO97UYP5RJwS7I\nyBOMMaITn/cSE1FvifhQEtd4IkDKbG97DRYAH9te+05k5AnGU2+P9xdzD9HNRKQpMDajbnSs\nDJzftE2OFDNgYaD4lyRYdogqQC/hdj05hSS6xRZEv+8dnVosHrA5xoamveWaOz+ih8WHFR4S\nvSm9Gkl0i2eIfncpjXXta4heX00I3hj0ywMfITw8wt/l+Hq3SCycX1ktYA/fYIgt9Xyfjnyg\neDAg/PYrQBJdrri4sRGUr2qOrCPTAf4u3rLx8yQuIfpfk4afv/8r7wp/giOFnM7q1Rq4IJp/\n90giWro68oHipQFSudwK8CN1Y+P69awbR6YD/F0k0XuZPd6SbJ6SGZjbafNdokuJaeBoqev8\nnGCkeGnAcc5WgMho7ZHUliZi3QZ2b9MrSKL3Mg8RHSfxr6zySOAFRKdq8i1Eh+U0oDI7pYkO\nggGiy+oitA8ag3P33dv0Ck4S3c893xADN8j8nsYZolPUji3RpRy1LiN6kdp976cFI8VLA2KE\njSqgBJHCL1VdaFb5pHqCyQB/F7eM6NMNMcrwesLU0ln1ZYTox+9popuGvyPRpVNxBdgcmuhO\n/XpikdhAEt1CEj1cA43+pU/iJLVaCxMspAdaPmT+4jRk1SWFJp1Z3Qmic9OiV02FROdEDuvq\nqbtSGXZ/XDBSPFsInLMVUDOSFohsPtFD3ZXIfxiiyqC5/lGo1rO3PGqbu9dA4JZMdrdFWY9U\n4W2T6jFfQnQ8+RdEXk/tvRyk44/MFrXTJBNrMKSruKA9R2XY/YnIB4qvEsIP/BTMhmRVIytA\n46p+rREcUER9TgT4uzC0KvDUiuF+KfJeNXewIxpMCf7AIjkZxFOKiB6bvJDoT+EmT74g8puw\nfYALmCa6WZ2qnbUaooRBn5U8xqlS0SXgulj4PUyK9TLQkDE5kTfr5Ukk0S/G9gEuYJbo6l4R\nEwwMEB3+/SRVKloUg7pIF//ekTOYlyCpI3gYt21wfnzkt2H7ABcwSXTnuk50P8OvEf02ZOQJ\nRnMxDpJApKfuSrvARz1izxP9dUvyV8uk6SmiyCPBLsjIE4z29hpwXy55Cnbr7TWzrAyMlIu0\nkse4OC2y1t89k9durzWz2S5pKNup5Dkk0ROMwTfE7626u5r7JNHvcWLNdlwohRo0HDGJizIw\n5c0yvre13ockeiurOsdTpzjHtEbMPji15uI5kTMrKspqNW3mUDhh6p3zPhc5RQpXEP0xfG9r\nvQ9J9EZWsQZQCfgipCZ6TYVckuhsoVa7OYjEhYSS0YexFLn7RkTw/ysw0wmpLkyfjlQdoxHA\nO5k8IKmzsG5/YpJg3La58yk4NaLDJ9niBedBG6S1bZPNFmYirzwlGcUpojvOghNOJ2S6sFJ0\npEx0LfCqUQQsT0Am0eeRRO9mtUeE5McriY5T91IHMjyPdO/UXbIwJLoSRpEZohdyFcMaAUO2\nploxJDSiZhNVJalroOYkd2q/Vdjrc09l2O5YThg4QqLXUeoqoruFKJcH2/Fi5DBcdolOPEMn\nJ7KY6OKM4xjRdRlJ9CmsEr2d5CWfJHrfwrjdQWuKsvWaRFe+6So4Ljaq4h19ahNdZSFIWwvw\nNxEQnf6WVdRaSyk1jf6SX43ZWR/mbyvJHKwhb4ntHwKxoEPCQv0uK5bvRzItkBp/hRZ/MU4T\nXQ5rJH9E/3CES8Ux6XULJC4jSKInGM0RXbXQItMcCugm6eTQGkHLl62ajAV47riU4wcyJ1Aa\nqjsjTBJmMJX7MP6BfsNsr9U0844ebK8NtOXLiI59qhGGDxL0lFpD4BFdZkmir6E7dY+fQ+tx\ncwbz5OL2gmnyYVuiF2XtDqIPqdOQ1tnSV3CK6N6OmX1I8faaOR0pH1QoqCJNdJXejCGJbjFE\ndLl0EhJdrg+7RIcFFc5giY4CzkNaIsuPA5kTzKmT+DBidFjxJK6K/CORRJ/E8IgO6a0RndU8\nopMQaQ39GUYOUSZovJvoWH0wSnVMjW+RnUESPcF4lOhKc4joMvv7iP592DjyTkf5/QFej5Pv\n6OooCQ7dlZPk5tAZDNFxEiCJjp1KEj1ERp5ghEQ/llX+iIZLJ0BOufgs14eD7bUCMnd7DQTH\ngo7oJ+RSTRI9REaeYJx9W+xnf3OtL/QAesVPat4XT8cyTHHOmdueB9sHuIATRG+PpFLtfVhq\n7tTVuAMX1+Ui0eek2PVcUF9krHgFDlhJKJwZ0cdWj7+Z6PKlg2UQuHNqUBzf+/tl0p17c5ZQ\nvwsd5xWtoesiP0P0a5BEvwWPbPS8E2eI/mrFcs5s7vgz6/9d6ZXIi4mQHtx7drQbOuNFkYtu\nDXoY6MxIdklH1+N1iG6vZz8eEWFnBhMqXaDtBWci/2Ek0WMZEI2ELBhlkJh41fPbSA/nDE66\nQ/S1AAOB7E+c4jAccR91iLpTOjq8Zt9XAya/QMep4ch/GEn0WCbaezR1x+Ht0Ncn/rixinSt\nFxFdHoC/leiO/QGiszqY1pVShPtBJFIaFZhEn0fnHc+TiueJCp3l6im3esJh0xcRvQQX3SY9\nwuqfJrH1vaDfw0TnjVLRmTWIrjpELXQ/LhKd4rl7Et1ijejBjWDIffgkooeDDcriVt3M936i\nS78wnIjoxb3MEr34f8RH25sM8KcRE12sszhfN9KrJIfsn9/+cjXm8M/MODlVhoZjfhjTAgij\nRiuHGD3gVMdYLPiCDTwiPBLdsZNET6KfQm9EVw+kFHwetr6JjVqG6Eah2zJ5OXVDaTgWRjEn\n4DCEc6LlybXl6pdeaC7sN7EugRlRJ73ttVqYLuCSyGXVO48AwwmIrp/SCNFV39cj+sCDT6Jb\njEzdQ6IXU6eGIaRkwqC1b3OqDC3HwijmBMu4yuJFdqYjH9heM/O42s+ZDtHp9SzRdd9H6IVf\nYG6vLWGU6HI9hh9pj+h6dUat1zWIrleC1JjqOBZGMSdYxrcT/ZNwysdvCPBpzIzonE76E+bx\nh201+A4Q3S255VgYxZxgGUn065BEvxhJ9G3xxZGfPN3x+QE+j1Pv6ANEJ5FPzc31VN3LqTK0\nHAujmBPsgow8wWgRHdZZou21Ig7IeCO6PkHR214zOc32WuiYH8W0YBdk5AnGJx2BvcWV6eY+\n5oV4o3i+Dkn3rZ7OtAA1yL1zJ3B9WL3A4DX4oDb9MfgQondn4Ocszwimif6GGnQWLtpKY4JY\n42qi64Oy1+Iz2vRn4UOI3p2BrxueFJDauCX+qTvC+OogM9S/IKO/66LywytOfQmqpYXvNseF\n9O71JZFDafDyRK87u8lu68qECFdRMp6H8Q8Z1WOUoV5ndSkh8SlEvw1LIzpMMJjotQ0SaskM\n6tBAwd+oIyVMWBK3zdQ7iA42K9dFzOCRDl3kJ3WVRAevo2PDppK1Xqvd7t6mV5BE99Jl4+W/\nk2jbpMpAxhQr6PyCHcZEN/UZoscftR9oxKkqCFhXXli5JIy6lT8Z4O8iie6ljxCdvAzYNPXs\nXxwKFO3efAsASlcHA+V50suJzi7GRCcTGZiUIfpEV5yPiW6OVapKnA/wd7H0phNIru80jEE7\nNEyb6AkGie5/7YKsmXL0CtJp+WcC7VglLyrpNqILdwKiK31SGSPayn/Re4zorKjTk+iTuJDo\nN1SvZ5KC9AkTTcEg0Ytog377/Dmit2iLf35RrVQm0e9H72QciaUjWBo1S616MbZ4fxLYu4//\nndSaof7UfwkVVocv/lKLbrxQ+lEiJjSITuJO6ZgZwZEDbzVV1KU0J7GrRCf4f2ExjlBd+Ku7\nCFMpqhZEJTv10Q4jIdAm+qtaRdOERlD1bGern3LjWR4tg/ysRRKdKSSbYCOKOYHdMqoxqX2w\nWi9KVs1IoisdqQo5+ttrBfWvJPrk9ppTV0cOvb2mi9WNRY8CtcaqnrMNtxDgz2KI6M7wQkLP\nJ7q6ekaxzwhEfx95+kzFOnIl0Z/C7eVfE/mSm6Su65aWMr/70X4iOkSHNU59axdEq0l/6fXo\njck3rpOS6HcVMFpyr2r7RSfRPwYDI/rfZ5wvkb3oEV2nR8O2I3JN7kb0B7Y1z0eOk/KloiH3\nyYCT6CfxINHda/lRoj+AjDzBGHtHV7+QbgHRFaEpuKKpRl+gdZLoA8jIE4yh7bVy1F1re624\n94dqcAUC66R/WKyPYBHnTqJ3kJEnGE8dgdXFPPYsPqe5y3nQK8164fhlso2WNykYNYZ9v16V\nvQlYBd1ykugWTy0KUXz/QOlTghuhGev5EBB9rbA5waCxY3ZXb8jqXA05ZRxQTkg8MaLrxdvl\nxdylwqcFnq45t6dOhOgjfVwCv3SoU301k3caUByTIXWU5r7I5RuSDIwzvj6bDvv0d8s7ZyRZ\nthr5D+NByr0HVxD9aPuvz3iUzxEdHLBEf7GVCxd0AFNMEecy4/WcQDorA5NOi/Bqbl0ZKjKe\n7DvyQ9A4IxkcspsJ8HeRRB+3oRs9qWYX8cLfGhQ+aHrIz6QkU15PCKSz2itB8FJFwckp51pa\neocg6iwK2kmiTyOJPm6jSXR7pG+Y6N5pwGPmSrqwaa8nBOjscUaxnlUknf0VtoomIrrXIeA5\nyEOQRL8Hs0Q/WYcUfJ4vdzT3Q0S399ysO0QPmjbovIPoSpfIJslfPaIHekXJk+j3IIk+bqNB\ndIelo0RvN+mPIbp0ul6T6F+CiOjuwumRbFZkxWKpMQEiHiAGv5Je1KqrdIFsqSaQaYGv6jQ6\nKmatyCG6br4e0d2DgqSzAdlGvZ4TSGd9ok0SXVXKn55HZlV4Ev1iBAwx9YxP1xPCYql+7IoL\n1UpswWSD3N6TbzHgCqI720bVLdmLeW1R9AtyV8rLevRgR0dY9N2w09MCcLaxvSaIjnulTGin\nUprba6pwKqZcWXOtB94J8FcxSnQUiIZM4vloa07fHJknXx27Bm3WeBdFMiWYQWzk/Y3ttsjf\nnb9r4P11/3lYIjrJ7l51xGDbrCZropOxYNTlKCoLPRy5eeoeI4n+hvxJ9AUsj+hwo4lopc0R\nvQgLgTrbJ50gS3UjmRLMICz1A9rafZGfNHB7R/EBlf9xOEN0Z+Jd1OV6outChcdRJFOCXZCR\nJxgDRHfPNGihHWdFVtAOZfxRXzXRSSVo0ptIpgS7ICNPMDrba3Lh9HXvCeuP2F4TQ3Nze01Y\nUKyWmQ+zD26vfScy8gTjE14mb8UNzd3L2ZlXxFa6OVRPy6mDBUwIXqubTnH6PWvImtUzUYxl\ni7L38iQYSfTLTE4aHCS6rzZS1grRWypJ9G9GEl2lynN57nk9PLwhFMXryOAhwdaJwOPlhPgG\n7eGxwvORCwnH8QpUhMoxugFwzWiXveAOG8qMPftosvfDSFQk0W0iFT6Xd1xVulWsydzQ5XCs\nrDEB/BKUGVGu48LpyKVEOkBeqCUKwK0qCFrrvtL1yUit4mSfD/B3kUS3iVFzwybmCIJGDKaN\nlcESZbfhunA68j8J8bBsiS5DHQ3Ac7mgDsh6RA9Mjwf4u0ii28STRPeO680dEtT3NVkcK7+D\n6PAB4rChEk+em1UVuCwqBGQYN/kquvi5AH8XVxO90fBYQ1yvKHJFehvRnTKC0cqUGNxr8TNE\nr58dous8IdF9l72o/EB9oocB9AL8XdwwoifRdRmhFS0L7t9KdML4LiJ6EGQS/T44RHdXT18C\nISdcctarz2YZVfwrp8cVp2BRucF6bAlWgXU0YeRhIpV4Me5QolfdBUTn2+Irx4txzhWsPUx0\nZHm0GOc5rKvKcTmaunv14EXcYHMS3cLyw9S0qmpMP1ZK4SM8RbJ2gifXLjdqAn7D88IZF5hO\nxNs7OvaNFB2a22uym2htr7EOtn+xV1VMjvORCwk78PKHsE44RsdhESy6fMQMFcDba/Cj6oPI\nzd4icxLdYoDoQiDTyfsonlpsr0v0pkOKY2DHC2dKgMJvbjJrke+A7QNcwANE18vJYG6O6J4h\nEiIvwDDySIDCb24ySfQE46ERXdsFlbkR3VdsPNkk+rhgF2wf4AKS6NsiI08w2kQnTThFxGGi\nOwRuEV2WGxmSRQaPN5v7uGAXbB/gAuLtNbl6eiSwPCb6sfp8/KhtM1hG9bbXTLkz22tONGHk\n7Yr5fmTkCcYXHIGNPBzzfLq5U0OGArJJLSccdS8n6aOfLZuLChOPPFC9s9WY2Mn8lp9cEwmF\nJLqXPkjeYTd8dkcsGjP7RqLf3WYcopu/0pxEn0MSXScfB/vE20L5e1M4XhP+hh318uG/WOCb\niDxSY88GomOhC+LVqXVwZDDy6M0IvRWVo96TpEdHzURVUpyPnKtWHBykObpe+yYoqmMo8h/G\nFxD9HNZG9NqUWBHTjoN/ek4OWYy6+Mj31hUyxWkXDoGTeT7ycK0TvCXISPIWxloRelAl7llK\nXWHEttmMrQ95knAk8h9GEt1L1023OGmq1Qt7vppok12iN1y4luituEhoeyG3cjg1R+5Hp6JU\n/+ISXf4aiPyHkUT30nmUgZn5keZd0V58fo/NVBXnTJ8iuuNCNRgfCByPXBekDyCaE/aPE72y\nXFVYrUr/5SeBaH85oPkOeKkbjUTfg0PYc/Ec0bX+ANHb7ddr7a5jLReEwRCzRHfiUI/AYbKp\nrauIXsgWoyoMPRyL/IfRYgm0uLegRXSxCtvsrGYFJ4neUPNESfQk+iMYIzpu7dJxW/S/88k/\nuHBbCxJJeCrmeLqkcla7svQjUbrYDmJC4DXdotIaX9LxxM5inFjmcpjXdEH3HKcid2nqeTlE\n9KWzlLrCNNFVlUT3/ch/GH2iF1XxsMoKj6vgw9NPthSd5D1dr81UFwkKkV70ApwV1C7mzwfz\ngmr6KLuXJEjob6/VnHKvij+FLly/vaaMdbfXrK9O6KpKsKlIont9vipFPHu1ZJHba2PovaPD\njdtDy8dB0A+TrXBO0iaENWXa6Tb4c3cRYZroQ/iGpnRP5LeZutD2Nzydp9HlCfbJB9FxXVYs\nylaiH304mMc8MdH1kq/SNURXhTgBTAs60N3bxyKJnmD0V9XlpEuzDT8w0alImnLSyIhe5A1x\nduA2ztgeJXp7vvxBuJ/od9bDGdtf8XgextBinKJal+iGporZ54kuPHuY6N+CjDzBGCY6LBlp\nlpoJ9aGvBnac/eOtJrooseCan5klJNFjZOQJxtiBGbESXSev9abqH4n+gi0m6QVoZdrZXitI\n8Hq958BMF76S78n5ZndtgPvzYPsAF/DO183pold8fbC5Bxa/huhOOoWSv/TrH+EVjyWJbpFE\n99Kdgz7lb2pR93jFKoLYEcdZC7/IeCeIDgvE0xb3z16gYa30CNFnS7g0y4cW8mX4IqKvubrS\n3NXaAvMZFxTI6OCbBYlk8g2jhNRVpcuCQCmuldUuTndSRfz5BuhcRP8m/rCO01s1OrKaTXWL\nrX9DTPSZw5H/ML5jp+gEVonuqBL/dIkurWmN4udtXK1/rnAkwG7ktmcKOhfoCrghye6wysia\nMdl0bdkeU3Z+rR4rIZFE99LtQZ8qKXYsNTSui4dUm7c9QaSn7u2rcOZRogdswwqRwRc3T0Ra\n4RTFOsNhd2S/Co/oZH7LT74hY9iddsl33o4zrV57FEtEBzHJpCGiG10t4Y9zjbpBuvEA54je\ncqhLdDjnqF0XpyulHVPkoSvy5NR9CiHRp/41vtBGt52YPDrhzUT32jXB/6ij6Kybri13lujt\nXmA0wCmim3/ZZYroQZIS6djcMEuUZyLAX4bbLf49lPp4YM3FWRLmPOq213CdtWocQF79d7h6\no9aLQGBi8SOP06GDIaijUaJDm9Yvq8owKB33DV6hRZF5LsApomO4SfQvRp/oupFikmy4YoW4\n2NytdqLvYQXWKbMUx7L/eFeau36V9oguHCcZulyfJtaw7+isFK1KYy6wWP18A9HdxTi03mg6\nAeHdxbjONYk+gYER/ZUiSe2xFm912jTRowTRoFyBjWVO8BaQul5ocligeiSo/aBzMZpVR1oT\n3HcKeBVit9caTuU7+hz82sJ/u+eo36OqyzDRQ54uEb2xepNEb5kcF5w3/RkmP+vRfgYGiF77\n4kM2SHTCX9eM6Gg/iT5oclwwbDWJ/nXoE91h2hDRiX8n0d+BmyKnxpz5jNkPtbULmktYzDZi\n1g0SHcg7S3RcWI75jAliTu9FMiPYBRl5gtEnel3q9bbXCrJU3MJZMMwiDszI7bVCWBp8Psis\nVvVxJTuJbpGRJxh5BHYpc6RC3kdjhbzEca8GkURPMJLoS5nPqTTyvJHoOtnttI6EmRf1K2Ki\nZvd4Q4G7IYmuUs27iX/WRb40EOwCqw3hcpz4E8cLCU3LE4XCA1wYwXPeIu81kc/QA1/SHsOz\nPctuSKKbRLnyJ9b8ICcuAx4/LwaKvKCnbdVbtC1lTHRIgNvW85vv4rj/qHVh+i8wgN0gmBCq\nxeb2zjQ7H2VGMt1j48TM7m16BUn0MNESvRip6ANMBiSEzqhNO53Iq6EX/YdMWm4tRw5usisY\ni+7phLvSdxmwl1t1c0Tmo8roR96IJCGRRFeprwqpE2XcPkCtEaLjJF5nnCY6ybz6oODpyHtE\n104Kd13fQcnJ7ddeVDfXdHE/jAWiD3aj5p780sjeeiXQ8ds0tjZmm7vLW5UlGFss0aVcN+g5\norMTWEU/SHSv5x2M/IfxGNEjAntmBog+7PYS0XUDl1mcRjhGdJVhH6LbGc6NRB+LJCExQHSm\nGKzMvNL9tRvx9Ule5BHLPfCvAhZYqqlL1FSsebcZDXk/KsAWZ3kLTZRIXauW3zTJZBwjuvhx\nfr2T6PphJNE/GBNEd5563C6qYed5vnoNNm+Wasg1Lw2NBjgnsKft/O21Q2Tbp6wEUIMMentN\nhSmKrYnEPaPK68dyH9ELefry0baJruvJ/xgTvd0OkugWI1N3rNJhojc6btYJ9EM7WPxogNOC\nL8Q1RO9sr2FO7nVa22u2ZXBBoquyRBcHm19PPbfXTmCK6LwU/UquCyPytkl0vVzcIro0fyg3\n/lUV3/k5wRfiEqIvqjUyvquKd3q0V2FoMc58Md0My/K2O6IX2RqaI7rQp2Imhl3fZwW7IIme\nYEwQHWdR/BGUHiK6yD3g+6xgF5yL/MQBi7fX7Nsd+ECMPU8e0JnozhxdkLpF9NGpO6SrnmL4\nWSbRxwW7YPsAFzBBdLUUfVwFEcPtNSAwycm3Jjrhi4Ja6kG90ZFpWrALMvIEI4/ALhsYzER9\ngSnCX4aY9CSJnmAk0e8ptMHiAVf8PB9KdL9XGso2kO6u6yya/mUk0UcM4AsK6XN7+FVz1iov\njb93DPz65fAX1utqBBc04/l+RD9r+peRRB8wAI2t8U1Kse4Ayww6k//NS2FF0ppTnyK6PJMi\nezJ9XCU8tOwcjIF+TmaTM6DoSLTscxci/2Ek0QcMqBdroKdcSiSrJDoK0vlI6osCyStoZnxb\nj1z57fRBou8rovPSUelqQlU+OSXDj60PVcDubXoFSfQRA2pvoTgtGA7xjRMdR6pX1npsEIkm\njiTeT/RDC7gmo3X7Po/ojkhXio7J7y5U19h1PaHQITr+VaaeZjtFyz1rM804tjKoMckX1e6c\nlss59FHgmOhSrhle7FdSJ47/nolcHFMWRDdTd0lFc2j5YqLn1H0RY0TnVrheUOf+SNuB6KVY\njSGi2wzvITpGqInuXlRMRqtFdBVTh+gj/ifRLYaIDi2N61wsl3CaOUGDWmJ6a5ZvwmUdZ6nb\nfNcqjmBWYPWgDppEl/3hcaSoQXRS9nUGj/4PEN0jVhL9uzF41r1ea50jnY9me/wIbeeB1YK9\nh+qls2HVTPreX0F0/x1dnvEzU9a/Gjn3hXVpG6tk0PE5ASqopQKv4iMqynQZ7lmiQ7lt/xMS\ny0TXCrI9Wy1DdGVQ63jptvwHiP5heILoeMK56kfba/GhZWcOhk+Qj0kT/LadvPgnT/IdfREX\nEN0sCSM93SWbUsTzFmNhKx3bALbBEd/HBZ+NR4j+MK526OMC/ACcJzoz0CG6vIQjerE6Xrod\n6H+N6DO7od8TeRL9fpwmOiQk0T8K3xL59Uc5PizAj8BYLfNLFL3yCKKHU3c9kS9w7zNXEj2e\nuuPtgOszgl2QkScYg90pvzDjkopKcEZ0uWTT2V4Ll3XQsFwTemB77WuRkScYeQR23NJUjrYy\nBRqkrsMGZzwYtDRT4OBwgbMwN8s1dbx7m15BEv20oRX1iOiN3I8T/ZKytFagjqX+AAAgAElE\nQVSb6BfV8e5tegVJ9FE74t1DnWDxd4wxL4pL6wwg5yYpvp3ovPwBX7WRe9/muCI6p48MSSmz\nnDi/Vy2LdTwU+Q8jiT5jCFpstDJ43JLJWZtsARWbfojQ2ti6o+PwjKAWxH5FvhRwX/CXCv52\nspHJb6oF1MbreCzyH0YSfcaQIl3rVhG9tFu0Irqx8ijR+ep2NiYcQ3SPlZbogc21Oh6L/IeR\nRJ8xFLQ63gIg8hqhPaoujMkzgDYZrM46PCMYIbo6rih07VHGMaJHRyNVMZ06Hor8h3EV0eHR\nWouNMlqNrvkk/ZKGC7iW6CLVbYT9oUurEaRptWGHZwQjRHfUhS4LTYQh0ZXN9TruBfjTuJLo\nJari+TKS6MZaEj2JfgIdouuFX+IlWTmvrMvI/X++FE38PdpwPdX7FnotHf9twUYE04KGPjbC\n4yJvMVnlbBJdNmXzdc6niK4KFgE6IXidwktoqssQfaBaxut4LPIfRpsounapVrp+TPhYmNBV\nKIhOxZgIHqFXimqDvad6KdHV1g/uhGkpujZ5BtBurwE/Jh2eEai9NOWL52pNUDIlhb4biB7s\nLk7W8VTkP4w+0Yt69PwxJLqjRL418eBlcpSmDT5F9AW8t8FdFflSFG8NPYlucZrosApqLywc\nILqznqpLOTr0JPqZ0pPoP4hLRnSZ/PcDzIYUbU2P6CA2qrKYbyD6e/FGor9503b7R7uA7yI6\n3CfRe8jIE4y5xThI8kWSflJY2Rpnrbce0UGWRB9ARp5gTG6vAS2ViIb/+VL80kQhU4jcXmMV\nlNmS4gimBbsgI08wVt+m5rOR+fAILmru+v2hb9y+lJzDtJXrIm9mvaYBtaxQR96znShJ9AUz\nI0Qv1xN9GncQ/Tok0Z/FU0Q3Zymewkxzd47fHcl1gQAPjuDvw2Rdj0Ci673Bcrx9EBTNaxHu\nX2CnwLMiDa1FLt3gAuDz4YRTLTrJCdqYxhcyXZNOLbtVshDgz+LNGyH3Y6K5v9rf8eYvTu6R\n/sj3bCwiujR86EJGNEgmQ/OehAeLkQsJFCC811eoFpXkBO35ritA1KquZa8K5gP8XSTR/RSv\niSpKWaL/DcZAWLBrczWIHntgr7cQ3XetVy2L2Y5LK0sQ+myAv4skupMij+i5TRPOAxLMQDtE\nl6cISU5dCUcuoRHeq8zLkQvJxUT3fCZbAV5JJOrLmpsP8HexRHQSl55aV9Z7birbnMcLRD+I\nWMyVQCzGmpqzSXT+sRmPD6bF9++DED+E6IFp9dBdokeyZgw94Y/iE4g+YAr17ib6RIueIzoQ\nPiK6U4w2YO+T6MMB/i66RA+WoItKI6F7CF/WqaofOmKV9WCMXk+1S8DuAmzH/3GB8EWxmYxI\nTyrRREx0oiLyWBUq8UKWc1X8WotcSDRjG85AtcgAG9lU9UAFOJYxTLcTmAzwd9GjivN8+s+S\nr4Lo5mEKPVGSV/SRposdCGBQYLfTjh4IOiORJLfXOkTnTvKokOHtNTag77WhtcilG4qCZJ6c\nqhYbYDExtLfXZE3K7TVZbejhQoA/i6Gpu0PietGMc3pi3d5Fj2yJDhK3SLfYlu+TgvfjGtee\niDzuX6JCRgs/4+QHP9q3oU90f9G0Xl4dMfbaTaKLVdP6mbSkxEXaYpvuTwvej68gutPPmsax\nVvhYD94zkBDov6OXsRE91oWxvtgbOaIXZa07ovcDnBa8H19BdO+FAefiJwofWnxp5T+TeVMM\nv6Orq5HFuiHRQS+Jfj0y8gRjhOjuccTj6shUHkt0YsbC1B0kRauGRO8+02zu44JdsH2ACxjZ\nXhOs6iysoo5aH6UCuscqK7DcrKd6S8DOAmzH/2nBLsjIE4z7j8C+udbnm/uow4HeiF3qC4wZ\n8hJbWAhwwP6ICzirm3/85xtMEt0iiX695Ui9weIB69P+vpXoZaFnugxJdIu7if72L80sjejm\nT8A0zgfGJ0G4vf9d67vLUQTnUJkLnwGsxvQpEu3iFZHrA0DgpH6Rsqd96ucaEAmDGI2syaIK\nxeBqJeryG03r3W3uE/F2It6NNaKr0YhU+jExDWSvJJfoOKfFQwQiMxbBLRttGxeviLxgeaVo\nJz03is5RRA7ZNfi15ZiD4I7fWH5VmQ7wd5FE9wTkKajWrps5XBUpqprDW5uDpL4oO3BhPsCG\nxNBWBkFWq6gcSs16rMOwRLc+BBknA/xdJNE9gWVR43wgGdkpouMkXpf9VqIfbtQbb+7uEV1U\nkK0tbS6JfgeGDswUUXdOjtk2Nd+9LD+7a4jeYJmoIUnbIl/ko/PB7gDHRCeR8DaiH+Xb79iK\nTknWgu7qvNrSLungSLiVRF/DKNGnk1qChQfxXqK7rWyO6Nr0MNFVhncR3XNDRa68TaJ/EvpE\nl8vBxEmv/P/08mqJ+Lj6R1qsOq7ucm4o4SgfbJf+unMpFxI9PB+o8rhEV422RXRgEtv5DKI7\nbqCHyltSBjlL0G+wiQ7ReUtjNsDfRZfosjHWMxCyJVDB5G6/a9VJPD2nrTlNvL/uXFoKQ0Sv\njS0+H2j3fQp3VNxY2Tab8mPjo4Mkytbba8rFCyIvundGrqoqcLbUVE2xl+Cxdd/fXkM3RUbh\nx3SAv4uhqbtPNHUhpd4julbXjdaUIJ6+aQ3NAKYE00qNLO9scuci/yBM+/ttAT6Bk0TXS8R4\nRiKeYPWJrpZx6xgi3gvQj3YAU4JppUaWJPoFSKJfgLNEL4Ko3lQ1MNokOnxWIzpInyD6NER9\nvnfvchOiL1TidwX4DD6S6GjKEj3yoxHAlGAXZOQJxiTR9ZQZBlfDXDEKG6M9opMpQSgn0bvI\nyBOMCaKbpefySiuw7Kq3wBRfObNQN1N3tYxbyyeQJtHbyMgTjNk3oK+rw9Xm3n75QDU7cVmo\nJPmicsZSP+8lz9CfrlG0CrtWJsnPQSU1syX+MEH0sRH007Dc3GlIq/wq0UM7fr1dSfSpbIk/\nzIzo/jm3D8d6c+c3DXXGA1815IhO4j0DUv4yqTT1KlJT4jy19JFHMR65PXFYnI+vkkGkjwXB\njXacVSmqB/0VdZWXX9ZI6dp4elXzg/hC6s7hPNG5iRduxi7RQZNMnqKaq7jqpYwgTyXLSADD\nkWu/jh/5EaQcY0x0L9jiW7SWsULdShW6SfQBJNFbWZlQmrTF+2uKhTUV9T07vl0/D1jWWRru\nDwoc/8j9qK4gNdY8xzFAHYTTJ6BlUmV6dTcQ+Q9jkuhT2hfW97qpE0RXbXaE6DzDNtN9GLmc\n04NdooNlznpN5PcSXS7OocXopKM49o5i59+ZcQNNolvcOaL/HtGRFE6eYpQxHQxYovOPpdZs\ngFcSvZhXZEV0WSVeki7BcekokCJvBiP/YYwQHRdmxC1JDbWqopZSxAqPVtd5Cz9r39TwyuCT\nRFdUvpDo0OK/i+he0A73G0RXBZLrzWDkP4wBthzVKx8+fPPQtAXVTI40WOHx1FmvGjUtzugP\neT8n0CqCAH6DxXrQbTIkrWe3RXSiIqS9AKaIrv3xP64RPZq6eyr4rEG7RfRcjBvBINGLrFu4\njTQ0O4v7gMGgTHRM63xPEd3ZBguIjmf2vO21UkUU2LXba5wHY753e80juj6PSEc2UjYl0Ws2\nmKeBRYxfZJHVYXoWWy9Dkf8w5okeLTMFRIcVpzbR9YpMdRDbBucbWY4C3yYEu+ChyN9fj0n0\nASwQvahxtU10MNIkOskbdAtNqZIHApwW7IJfILrfFrZ/tAv4FKJr1ifRT+ORyN99DsOd123/\naBcwsRhXCnKutRgnNcVnyGmIiwtxqoPwiZ5T9xYy8gRjZnutHHz8u21sr5UXo6m4KzyOuliR\nwUf10lGmgq7cc35asAsy8gRjeeq1XpmnxuHrSruiiDEblwQzbySJnmAk0bfFeOTOW+7gfGnV\nhWaW0yVv/2gX8JFEv3KF5wTRxYafe56P5P0hB7VXSfqPTYjvgYoN5eLdKiPu5vGJyP2ECx5C\nEv1j8O5V09uxTnRY/POWEBv3JKkC0mqbdLrNagyKIi4kujhgLP2WQ7s5pnz0d04X2D7trIoX\nKqLcxqEa7AwHI/9hJNHbOQn+H79aoqsSdS4vK966RY34PyTA3kYqiKJ0n/bP7etedXm9086q\nKmRwQa3qY7LQC45G/sNIosc5j8N3eitBHOEz9ypzEQ1TFB4RncuFQeuTiK5UHfcCjz3Pbfem\nFRuG/Bh3b9MruJfoTgce6Y2orbowJzAKZn5d+vdofZbo1gd/mBv1vyu4iOiN087YG5rlCm0c\nMpTidKMoz6n7IJ4h+rWq0y7MCbSCw7LSvd+L6D7bMKuqCU10XbKuCkN05ZohejPOJLrF1USX\n/fALf4/GLBlzi3g1pbE/hDzp0LRAKMAYU+Imp66WDIboRs1mJX0RggeIrv1+A9GbtR3GmUS3\nuJhYflvVRCFLdE6/uueZFrBGe3utHE57BwfN9lrheAt3e1RQt7u9BkXcSXTlrmGdCGT0oXvV\nUNzcTp/mXbGswch/GDcQvdjn4D3r8qIPPFrRrK71aEJwiXrHzHlrlxJdba/BTX97DX6486oP\n3ekdaxqWjipgq/ZpzhU7w8HIfxj3TN1b6zKv698lib5q40qir5R/HtNmhjMk0S1uWIwjrukk\n+i3WyB3Hhsv4QqLPtYwkukUSfVt8OtHnypxZpt3+0S7gucU4TAo6giT6lcjIE4xbt9f+lk7s\nKWV3xD+Sk+gXISNPMN5zBPbBQu9t7j0jch8M+rex0ocVg8yTgl2wfYALeJzod4za3fKmBJdY\nd8XkJzfzfznRdx9HvgbPj+hTyyoXFDctaBnjjeSit3Sdr2CSUSnwJuN+vTzaVF5xdlqwC7YP\ncAH57bVZW1Tg25bkJcoMciEScjlnBf0MyuiUt1OCG4Ad2pOFJhSS6LO2cGFRbyd4c3VLdPux\nZiSZGRQXvZ0S3ADsAZ8sNKGQRJ+1ZYje+QqmVBklusjwxVP3oAe8vdCEQhJ91pY7oqO9YOpe\nNLtbRCep9eVT94fLTKI7SKLP2nqC6ForiT5baEIhiT5rC5uu+88xBETHmbghurMYx1rK6JS3\nU4IbkET/ECTRp4zpb1uSl8jGj/Rge00mifxCK9/RpwtNKCTRny31sgwnTCbRfxBJ9GdLjXR3\nJfpbsH2AC0iivx83nRX8gshvwvYBLiCJvi0y8gQjib4tMvIEI4m+LTLyBCOJvi0y8gQjib4t\nMvIEI4m+LTLyBCOJvi0y8gQjib4tMvIEI4m+LTLyBCOJvi0y8gQjib4tMvIEI4m+LTLyBCOJ\nvi0y8gQjib4tMvIEI4m+LTLyBCOJvi0y8gQjib4tMvIEI4m+LTLyBCOJvi0y8gQjib4tMvIE\nI4m+LTLyBCOJvi0y8gQjib4tMvIEI4m+LTLyBCOJvi0y8gQjib4tMvIEI4m+LTLyBKMSnY4/\n7bvJtQYYRn5J/X0wMvIEI0f0bZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScYSfRt\nkZEnGEn0t28E5sbi1dg+wAUk0bdFRp5gJNG3RUaeYCTRt0VGnmAk0bdFRp5gJNG3RUaeYCTR\nt0VGnmAk0bdFbiwmGEn0bZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScYSfRtkZEn\nGEn0bZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2R\nkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScYSfRtkZEnGEn0\nbZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScYSfRtkZEnGEn0bZGRJxhJ9G2RkScY\nPtFJ/PZU9B+wbJQQF10tUNtco6CuD9ncxwW7YPsAF9AgOomLozBWoZESgXDC3KD1vsL2rSEj\nTzCCcZTKwXD65wORHubLIRM6dZymfyz/9+eXkIldE4tDdGIzfCFpF8rB30GA04JdkJEnGENE\n5zsz+Fai105B3r/4jppYqia6UMJLWA5YDiOZEpCvQp3XC6m5VqDOea7BJtETjLERvUhSlTri\nCpl3bd2ANX0n5a5d5dPdRG+ZslqeardAkzOJvobtA1xANEYdLDdjMWb1CP4a94aITmCq9hyv\nKbqaujumajnNsXaJ6Po9AXIcntt3FWHWWqG/VxZ81ZDvHSanfC95vfFY3/zV0iR6AjFDdNOk\nopEc87SHd9Sun7zh3OSGDqD5XFeIzr2W9bKSS/VAfiho5Y+lRcaiq0zm1J+Vb6q7PBv5Ntg+\nwAUsEr02sYuJjulNohsuhAHOCrxeBXNQUyegq3WV68oSvegcjQpY4PP2PNg+wAV0prySlQHR\ncb3NtkPvRpcqiF6V8OKyRnGhEceEYJbo6r1hiOjweuMT3b6XJNHHsX2AC5giOrZi9erov7Li\nThq+ZPoU0kr1QsouWLl+e61H9GIXLnyzMdFJZHWITjpHQPQSvZ+3AtyfB9sHuIC5I7ALreoS\n9ROYau56tJZ6M0QPxmDRZ/pE9+cASfQJbB/gAp4numLP3ThFdDk1lkRXulLLdAWa6Or9xObU\n7yWYlkRvY/sAFzBD9JbulJknv0kz19zt8T6yOV5c87fXID71tlFfWdT7iTzyjwrt7TX05Xzk\nO2H7ABeQ315bNPmWerOFrvS9uz/y/QNcQBJ90eTT9RYUeinRycxO1uDMgkaNjh4zbhrcvU2v\nYJjokR515L38jk6jKPGAhxrF5USX59iegxdtM/7pyGtgJ2OjaXpL9YE8SfRZfDHRxxpFTmCH\nBUB0+RXBcvyYE7zHSoZYzJBLEbhq6GT0PCOpU5co2CNaO/b8w+gT3alxWGKCk9pS7uiJodB7\nkPU5R6bo1Xbklnrb/WnBLlgkeil6RwGIjvVer8cP26mPhgTRyWaMPBM6TtZWfPs/2gV0ie7V\nuLmWjpxAlUKzhy8NUwRisNbzf0qwC+YjF32xqHhiprpPWD8S3SFgAzBNx/MsaGZJ9FWMTd3b\nBD5URLqXTz8ex1zHFDYglDZdnxRE+rD5VXiochVFHqc9h1kbxY/62c/RMhUct72G6GoqNkN0\n3ooUbxPzAf4qRpazmmetDdFJTrhDovtmO6YU0Qee6FVE5wLbjcy0eau81A4fInrwjCeITkjG\nlwDFTtOpnWGD6CpLM4wkusXAO3qJCe4RvZ2vI+6ZkkQfeaAXEZ3DrAtBPM6IFXGX6LiKhb/R\nwpG3sSay5PKwALzV1xmiaytdohvP4naRRF/F+Dt666r14nwdcc/UBxAdG7bqrVADclGxq1jq\ns+zKMEfMilGXhwUh0SWX20TnavgnzeRohyRKdAoxVTgX+Q9jiOjHuqqpamRjQw4TOdJmlfoh\nC0zJ1jYU4LSgqW2JbjwSG02QJyR6wYshmVRccHlCIHdKCk874KfgZMT0AsJlIhn4wCQFFkKM\nK5isdvQGA/xhDG2v/TU0u+d1PM1/bgO51CNrthRUO25lO6u6tu103Z8WNLV9ouOaG8kg9VYg\ncWi1yRaoHkt0eONdcnlcsAu2D3ABY6vu1xX3aGnNEq8e0UGRjMAf0aVt8okui1pweVywC7YP\ncAFJ9DkzQ0RHbZ06S3RxXXJ5XLALtg9wAY8S/eFe5a/MaUFLnYohOklyv2bbqgyf6OQY8gie\nU/c5bB/gAt7BvUdxWXPnTX38cbbX4JVaEl0uMHW316AIZxow4PC0YBdsH+ACkuhfhCT6GLYP\ncAFJ9C/CQ0SncJ7C85quK1O+9q3BPzJ6gbkfRET0gbpS60nOwtScvWGtly7uaC0Esn1rWI1c\nrxJgGt93e4sRF0eV223rXNk/gsuJPqB8VotVuQHMt+rtW8Mpohef6CxjxqtDMMG5CrYgTwuH\nVuD+deK43rT9/4FHu4Au0dXaEnwBAY9s8wBA8jGJZSg1Fyz8+Is9BY7/noFoRfoISqltoBnI\nsGAX3EJ0fhIvgXz63J6iA0D4nKAxOEoqM1+unU38CHr8YPryFR4+PAl+GPiYyFGG++BJHlbg\n4Csalt6JoSYMZFywCxYj51N+zjs6NIfa91s+hwL1oMaUnebRwfaPdgGDRNfERBUmetCJHxcn\ns3r8qu9oGVRO3kt01bH4OkbYT+C8/nMYtzCSedSIejb6s+UqlXqkd5zoBAeHXSvqvibn1H0F\ns0SHU93Y7dPRzy8SHfeRZYm2FSkHoKxWIOMCT5fwMmpuuATdgcUWPpfoWtYleqgc3HuFtANI\nAEaJXsSXirXoj42tAbhHdM7hEV05pZnxKNHVetHLFbkIgUtIh3/2u0FOXUjjdREKBBNOTwuk\n2CO66ZKS6F+Ck0SHJ0Li02ZE5yqo7jm9mvoskshmMzMT1zhpy+NOzwpeYjWfFo7p7O6am86B\nofhE96zYyoUm0Y6gI/9FDBNd/4JqbxF9YDGO7JP0iI49h3L6SaKLAoMW7sQcXaUnQQM3lged\nnhWw1zh3KeKzekUO/yEcL2cYQbQXh/dU6jSn6X83wN9ESPT6Xiw6eHFM5ah2QW+Sj6k2Zn97\nrarUpqUfrn7e/KTHGHAR0TEyuV4kHBArUgtE14tRoCTXusacnhQs4CM59ZFOvRn97vFsATfb\nXy5/lejH6FL86/kRXeUitJVEH8FHOvVm3El0bMxvw9VEbzFXju6zRAcee0aT6MP4SKfejFtH\n9Pi82nO4iug4pprZNQ72JFUddczGrkTdAgs/kegfie0DXMD7mXgzria6WFQy9+6Kgz/D5/UL\n6BHVYhQrtZayZgPc/ZHvH+ACkuhvxL0ufHLk92L7ABeQRH8PHli/mIvcJuqUxoRCb76RGx7J\nLLLxzUxXepW3e5tewQrR57JQ486qXv6MPpToD6xfnI28yVMrke8n3qMk9Zki4YBn1Kq/JLpF\nEn1bTI/o6m+R+wsR4RneFtHhfAT/hm9N8AKE8MAsWQhDC5H/MPrf0yCnvos4gP2XrM56Q2Mg\ntqYO4ah8/PjUo2170+yskuhjgmMmfRBOM7cegCSZJAwUyCmn5WBXfi7SuvZAXoU4foDbP9oF\njBDd67DxoVU7jmIhQfTSy6eJTiKn6037sc40dzHMjNppKXtliI9kBSYP+eldh+aJLp3ymGaT\nPAN6J1BH4BDdefx+e1K1Nh7gj6M7GvrPluQvJ8EQXpj08zlELybr5FOfIvqKnUllh9ry7kuJ\n7jxYfd6Zjs8x0YVmEv1CnCI6vmbJhPjIdim6PXwg0eGfscKvo+LLIaESv07Y7weo8/2E2lWB\nVF757sMlqJceLPtU5KeJTvLXX/2ojqCKG0TXn5LoF6E98YXvpnpEF5qYoDhZ1F9RBd3/v70r\nQXIchIH6Af//7VbtxKh1cflIQtS1M45BCITUNldmJ4getOYWolNx5qTEjXg9C3BqqYQPhRDR\nVGoBUElQnygAebU0tNIsmJ2x/CzRTVQIb+quSKI/j1uIbgp8C9Hx22OKR6rGUMgjOtboEt3R\nbsyPeu4eonPbSF6FEEmNEdF1hzlE7y7GmXPEDSTRLWaJDmPSJmFFfKwRHV9zjdZcSXT8MEV0\n5+ulbIagg5SOiK70YZsM0aMFxGWiy8kKXrXQ0ZSjCWLOYufor8kHdl7NJqxaz0pA4GVy08Yk\nusXQmrUzYxTpoWAtIF0elUOKiIlrq5LniQ5PHN3q4txbanJuRHSlD9sUaTtl+SLezqgk+ihW\nN6dmq7mk3IqWJPp4xgzk8/tdSKKPIonuJSGHmcsdousrf0SqmmeHkyo/R0RXdZ+yfAHhiYP3\n41Pb9U60t9cu6rF1PVhwTcsU0d3FOL29VoBcKqcSdGl7DcrayZIz6bl0e20nbG/gAj72qXwV\nzob7HIdWcYcXkugJRhJ9pfyVnXbbZDeJnmAk0efLX9xnd012LyV6UCbc2zupt5f9zMrSTpjw\n0vnui6KlK0XN3JU6fyAanrAclizOKJjOTqLP4uuIflGdPxANc5a3/ovyolYczTEImVnibwHo\nex4PxNnmG9DHTTiW2N61Cxgiul13hoNbRXuhljHxQqCPtSlnkzhlI1ezX7XFLnbaPp2xCyaJ\nDvsAfy7le3JzWJXJfH0I1Jn7gtXY2jECZKsCG7d37QJGGOP4+u96uFl54SjjeqzwZ6GtGCc6\nfpU6xwyczhjFTCum9Bql/QRXz1SGcq12jpPDFy8TeydSq3wftIKbK5rT6IQkusUo0UvoJsdr\nUDCMjrazgzCzukYbP5ExipvCyVG7VtMi0eEoweuR7Hn5cAyecpfFqk6RruXGiY6DyKp50vIf\nxtzQvbpJHixBd2OhHtFJOA/qsURnmXuJrg6+1HtnClkPuviTE63nMCSavVKpimueM5lp/f/L\nZyx3mSees6Er8YMhuveUiKprEZ2EvCo2YuCPY3SyS55bDgaSFKzXHtG1tiKdC351/yPT0YZP\nZOhWk7qqdJ1HnoXE6UOz12I+i6RGtWctv4HoHnPD6hpE1wHRtDGJbnEX0V0HrxNdFL6Z6I3W\nG2tGLARLkQLaGk9Wm99qylnLG8wcJbrqmVq815NSPCQ6jiGxV8Yt/2GcWozTvyQfjYMnF+Mc\nv+raRwycy9BD7vb1HNH9yQ0VlfcQ0c2M4qjYbq8pQ4tbDIqTVCfMibbXOLt2CDYnt9cmcWp7\nrciwFF3vOJgZLbbXtLOrE2WYlVqhCKZu21cyHiF6UN7oforo+2AnW67C+Ib01RU/pONjid7S\nrcol0eewky1X4R1Ej2NzRdGqTBjuB9moxItxShbLVN2oR+k3eepefdZJUbVnLd8FO9lyFd7y\nRqdwdnVDXXMZcs8q3l5DmXLQzWyvCZkqJ+V1eSznTGbss+aa7bWdsL2BC3jb0P0pnAp3Utf1\n2u5FEl1gewMXkEQfKTws+3xvXjVH3wnbG7iAJPpI4aFOenJCMlLtmuWwA4KTlW65WYx1aVuW\nAtt3j+kVrMYm8UTx2o7FqOrrPSGxfTQsWS5IjUsBnXLTmCH6bPb2rlBW7WAAACAASURBVF3A\nRxN9XHpBYvtomFx1F2fsA6IHp1qKOr7CL1pYfCS/cCR3nOn//0nW3Q277V27gB7Rq9uNcwXR\nhRN1mcJZ9bMIECyLd4eMHUXquOwZMJOxC6YsF8SGREF0kmn1CjRFXZDq/t/bUJkjh9yXdePs\nwn9oRZb/MEaJ7vgJiC4jQJepF3zMoy9N9BxCLGdeLlK6Z8BMRqTYJE3H00BrL5x0niR6cN7V\nI7qnlN8Bxd0WVH3ckovqcuttWv7DGHoj+h1Nfo9b5whdxdOlyqp6G+puI/pI6vXxFIXuO4he\nTKc3iS5OnuPY/SAw8SDs78mtqvKJ3n2oJNHHcDHReewOPj1q8s6NgRCO+12iO+quJjrJISKe\nlqnNrD/enML+gTPZeTLfFC4sWdtQbcXJq5rvem58mOigmLAMEhhlJNMDotdvRybRT6K/GGf/\nD9OY6EgCGzRRwAiBBtEddRcTnbVibMm6wEYVhP8vurPUsdVwPCybJDRA5700qMnMBUdgNWk9\nH40SXZaJiC4bEg7dtTOCesYs/2FcSnRwjiZ6K2BsYlUTEd3EWKP5ExncwEY8xzEp7PQ1kBQy\n9fr2maeH37Kzli8QHZ9jorWa0G5h1QA30Kwz9JL+uOU/jBWi8w6MEwE8vjVBQuqzIUVn6O6o\nu5XoBNODOaJ7JTFgW3MaUPOXyT1gegTrOWe52FXBVumZBck87hi7q1ILkaPQ9qqUw+AgWTeX\nyVX3YQzso1c/onOLR3TOlGVkORsgImqItAyxdq3u4u01SXRMnCO6V5KMLAvFRGcFHtGbNs4R\n/V1Yacyyz38Yw0S/vOJbtE7U8yFEN4U9lUl0IZ5En8c7iD7krEsrG81gAjk8JiXVIfrBSXkl\nKcR5srQo2SY6tmzd8q/BwBmp7zbwJvSHvjf02oizLqtrKsPfXnsl6UUgpqXeIdPzHJ6HyHyU\nkRlYsoj9PfGjJtYnLN8J2xu4gOcY9ya8Pdzf1sFvt/xt2N7ABSTR39aAt1W8u8v3N3ABSfS3\nNeBtFQ8sy1BvdkXqc0OY3LvXKkRUrqOzjd1jegXu2cnhOfR8j5K4TJdWLRtQ83aivw1nLZ8i\n+rAekh+T6A/BYTTB717p+fqmS5jCpBPWKtw+Gk5abqTwmL75LZYGnaMxhRc64coPbv1N55on\nTvgPnJsYN/C30CJ6XW52v0NRV5LxkIw4TlN3gYSv/j5JrRgMNU0lYcvECrQtYq2ZydgFlxO9\nspbgjcuf662+Z30yVz4FbCFRB4kWTDY9ERO9NDzHHPPcr4luixmt4gyoDIH6DHFb5hbxreln\ntKYsYXr3HUNu4bmH0gAaflyqJtCn2OsSHYtLoksFJOVMIR1ZUmiq7Ylgjv53ff2Krq2bP4bP\n/imBgmkySbQM5EzkBUX7GeQnNzEQen7uHkR/ja6L9QTJ7NedVOATXeg0XxtIoi8ieB+Jzq1X\nr9OniR4/Nl4V01G/TMKWQTjUed7poTsTXU82Cx5esXMJLBNMb4ozB1WyKhGM5Z6KJsHuKvk1\nRGfFvqcbRMf0qqJHdKnTexCMtz3BaI1VXUqWk0Rv/ykBwvImSSaQaFTRYo00P4PEByr1DGph\nO4yNpgyUfT0AxD3KCVlhKol7rTOcSq1aPiZjPK0+u+EyS3StP4l+EcYW44rw2Cmi189+GfXZ\nS7LRIlvuWTOUEU1ZZE2DRFeJIkYdolQljS7oXdctH5Jxid4YumN28aQEkckWMn2URF9Hj+i4\n3mYJ4N2Y99MA0XF0iG4uNluHg44835rRDNjbCYlOajTLn4aILuegTaLbae3biS7mVsfMRG+v\nHaYQoXn+HN3ZXqs6xfSmhIYuGfhrCBbjZKebOaHIhBu5VXaIOr6STwjzTXW1vYbZqmVV+1Xb\naxiZpTYWie7qGCY6KOsT3df5BNGfxqVt+kQD343e5tB/mUmVK81YKHNSs8k4eD1P9Cb5KMxP\nojOS6DfjWqKPjq3OlplVP5Qhia6YzdwU7RUvapd83gxjlOikyhz3FNS1avkHIIl+My5+o/fP\nj1xTZkL7eAZODKgIur3IhrlcRnwIpjdCCRU7/zzEne01PYVyp1JXb699M7Y3cAF3cuwjsFG4\nk7oOio9n7ILtDVxAEv17cB/RYSeBdxTkSGtw3CVGKLNNHXVJryXf59r74faZ66l275H5rQsG\n5VecMvN0SqIPZLDf1DKBWD4YqVgSPf6+uduis4YNC/wg3O21YXpjGS7oE/06TCnciOiTOEV0\n9VCBiz4fbI72wrtfRJLcbRfbolW9PdtrV0a4pkNk2PIfRovofy4gSHP8wIWqkJLgZ4D3zVRM\nVrqVg5WLUZb1OMZElsedsgdWiS4e1uZdWzsbpAl9ELzR/6JCCtYC1Z8qj2oZbJTwuWfl9q5d\nQIPoLxcA0R0/QCEguo6GV5oIDiA6RIcXRyavOPfTTt8+GmaIjnN0IRMTHa8B0fHGLddyMChr\nEX3K8h9G8A7UfUnYq24n+0Q3Kjyv9Xw9THTXwNDyOFln6QfaAHpinXzFsyVVM0Svv/HvhsA1\nJvqx5fd6VNxGdJgRJNEXMEV0x6lYTHAdPdZxbtPXysFvIfqQvjmxDyV6deE40YvxSf0cOm+B\n6Kq1SfRJWKKT4LEiryUalwuJ3vxm6oCvuQan/ouJTq+FCX0ihXhMKxcGCjzzqOo4cghKiPuj\nGi+v3tmy3u3VREcPWr7PEF0VTaK/EQ7Rj9+XEb1+/gKivxhqFPNCss0rcrx7aKgSugShELl5\n7drk7fVEZxeSkPBc6zcQqwl6xTGhR3QQS6JPIjw4SeCChlNNSVMgIDouxkG9Lnm9PN2sS4lu\nG2EiXjVGB3hggu4Ut0sdE4tMd1WfsJzH2DDT/j9aIBTBD2yFHJLAIEVWN7S9VgrKiB/ctFPN\nGLb8h9EgOrsgcqooIG51NJTwm6mGCTaOdLCZ4Hupu57oPIkJiV5kTPqlRXC6RFeyluhAJE/1\nBZY/gIdqTqJbhAO/+2t+czUjROe0mOi1jCanISupkjptoGyUPWHgm3jQbOoddSUE3kL0j3D6\n40S3YwH+GS0bZM8Y+C4e4NDs7qoequeb8J43+ic4fZTopIgO1MSNY/WXdbC0U8Ilur7GtaHY\nFYtxm2F7AxfwvqH7Q5gmOi5M4PZaLaYWkXgnTKtwtteYpbzpqGp6PRyoWdvF22ubYXsDF5BE\n/7qKRvFxDXoM2xu4gCT611U0iqcbBPOYgUqbjXCEZxq9e0yvoEn0kQ5TMjMPjoZoW8slTr82\nGhp2J9G9SmeJPtmShMJpop8osRPRPxBzlsPG/GuRQKwveGlqSZWO88O8xCCWKuWRHDhVQ0J9\ncaqo645eGycs/2FEXcXOAPfKRaCXJN5VT/+5xjvr4p2HMoFD8miUOjQTOD0wMLQ8ytgFU5a/\nnFaXAF9p2MeYhkv/oELRWxBdlXKeBKzOEeY73Z4Jy38YPj/wKfq6l4vCBT0l75wSNo2gai9w\nQCvpDNyjQqdPPt23j4YVohfli9r1Tlqb6DXx9cdLhDThR0fAqYrCNk5Y/sOIiV4UbYu+qTLy\nLgyEKEiitGYIoELZBN+UiYxYAseboxr9xNZJbV2KxIHXccwRHeogeRsSnUiMo5C9OAjXTpTG\nsACo01WQaZRT/4DlP4zW0N2hbY1Qf+jeILoMnAuILpz+yNAdo35Yo8uq4/do48hL7GGO6PwB\nLSSdpn0oVUjaH0XV9xykqBTAwkJISLRGcJGBv454MQ5YZGlbwJP64pYI3golkO8TnUBKNMGa\nEdrXwf+q5UNMpYolC2dJA6shrakuXqnFDxKyuoBS1W7+eMZjRLccTqI/gYeI7rr5DNEJpUQT\nrBmhfR1QsesMf5+cx5buLt0qY0Q1YIBE5Fbbb/54Bvm/ukSX1NZRAJ9FX0nWSgHPUlIVql/D\nlv8wxhfjirphpyoyCFdiuqZGh+h+CICi49VZRBMcU+YyUMKlZ0RL011YSoQl7Fk5xAqJ7jSq\n3fyJDCIxBJGLCDaNoAhEAlVJrEyXQlHIHNxe0+2ZsPyH0Z6ji7HoK504vxT2Hd9VV9YEJ01s\nrxXlx6PmYkMAt9ewhjvm6H2iyyWLwwbzwiqQgXZIC4mc4qjEVNtt/mTGvKrPxJc19xGMTPY+\nGx0Dbn+jS2HxxCtegltCS/Xf6H0k0ROMJHqzqEN0Ok90MiU+muhfFyPf1t4n8HVOVOi2/zqi\nwxxD5VIxtPWJLh4ZhujBIwQL2EY1mz+ZsQu2N3AB3070Li4kulx9IkwIljTKMaHmDE58lSCp\nGlWptppqu82fzNgF2xu4gCT6tkjLE4wk+rZYtXy0Y+SaRVBKJ08qX8P2rl3AFNEbDp3QEOho\nKl6vNYk+nrGqP4n++Uiib4sTb3TS5xLgYG9dlKhvdMKzDbWGl7w8+sKrC+r0Df9fEdFxYnuE\nY97yH4bba24HFz6ajctGR44u50gVJLquA7P+foQ2LoxaBpyfRB/PqNlyPRHoeLimcOTwqiEX\nAqJDCdxOEPfE2grWYFrTniaMGviT8BjidvBx8Q5ca2ceP1KKP2oHQ9zgu0BLGC0jzr+H6I3a\nZOBbiW6URn/XdbbBZ4juiWm6ukSvst2voTsapVanNhrrhSS6RRh3uoOPS+BrXc55HPxVh8c3\n/To6X3eChow4/1milx7Ru7XGAm8lOpzMDYkujkJ3v4ZeAheSfLITFIfjxj0LEgrBl1rArcBM\n0fuCsfxlBkV0fcKbf8vQ6RJdhp3S/sTQXUxkqBoAzantZlP0/MWZezoCOJwxc+KJBs9m1GxD\ndO/JaomOid2voTsaVQu82kYMSKI78Ofopelu65linEmxlBUYILphOpUx519HdGU9NDoiutOP\n8lmJTZECsg4qJXgktxo8nVGzteddWk4RXYdNEv1hNOfo9QYyGkQXYRlKWdkRopuWPE90/GWC\nnRsNRNcWlFYX9oi+1uCpjJrtEV0P3VuLcSIGRAmP6ObbfiHRSVayaOBPIiJ6MKxuRi+WIyvF\nH7WDMW7cEGkRveP8+4gu5jRNokezH1BupwFUuOTbiF6dQq1vGcPMDetAW6sGPVtBzaBETnF0\ngQ6S6BbR9hp3vpqKo+cIC8hypKQw9oXjpWIoqXdaJTdc57u2hJZHGS15JLrI677RQYtNB05J\nopu6Zxs8lXFK9IPwna2+F9Mzv/eCzAc3t5PWzmjJ30N0/SjUipLoc/jOVt+LJPpU1Zroehgi\nic4p5oVtiK6G7rIOFJhr8FTGLtjewAV8GdFfmGj1tUT3t9ciojvHA82k5NAqnwSV4W/YXvt+\nbG/gAr6T6BPIcB/P2AXbG7iAJPq2SMsTjCT6tjht+XQP6eVDlauPSV5a92WFN0XU8Tp5YYI4\nqLlVfLjWWDCJPp6xKOeV8Yi+omcJ27t2ATcSfTrHyiXRT2DOcue7xXpFsDjri+JCLKBXK4t+\nBhBUUw/cvASIoLzIksue0fhge9cuICa6cDaxL/jIku1z8e1ycDusGouvdShfsUL4f8nYxYda\nq6AxJEyij2X8dSMPxdi/BGX0jiHpCwhgOfxYA+nQodhMBdJIZJVaFZSfsPyHERLd8SimHz0t\n+xwe5trteqPYiwWhkERtoNZTELt2luiLQTL7nMHuLeKQ7GpN44IhOaC3gayC6Jwl2o9lQqLj\ngV6tQzlaNUM+L7yvuo9Z/sNoDt09osvM+pXKonxLvi9Lk+jCib0YM8HQMGQi40Gi68tY1U8Q\n/SBkvaHICXboXq/66UX4AfJjosuBYy19xEj4dEyiW6wRnTgSSPvkGaJXJ+NELjRkPENMBV5/\nxYrMDKIIkaOA87fNYMpztB7lHb7byS+3RE5pxXTptOVkf46psi7qOLSmaue71Uq9BGlYB/zI\nJuAbfdzAH8f6G70g0dXz/H6iYzuvJLps3h/zCkwjtaVmcoLNdPpNyPtcMfkkGmHenZGFy0QP\nTBBmyFZz6oVEB8In0U/jGqJb/z9EdN28wJCJDLd5EJdBazByHQpH8k2iF6ve6dNZA8eI7syl\nS3GeMvoysBhXMKsaoL6+CM1QRJcOCW1JSIwsxuHYWLhI/ghmWKIPLMbZcIN8U4fXPMeQyYw/\njc7scZjoYjIxTXSSxeX6ldAgJc9aLl1JuqYqpbZL7Bydd2uqDNoCKcSiolXHFk3dqiEhwIER\nLWAm0S1622vV6WKrEx0mpIq8AeIT+FvEiSA7BrR0s63Da55nyFwGhN4a0V0KjxO96BTRKqVh\nxcBTPLiRQg3V1BMYV/WzGN3UuaKqxbwVuYESNxFd8TCJfoHqJPp5PEN08WYOBU7qmNTcI7oY\nkBRBPU03TXQ9wVXJEdF11Y56KuEJh9OWj+C2aGnE4XyIJtEtHnqjj58HuVrHNNHF9loxRDeb\nW+VFPzj696I1/+ZkJc+ZdW4UbK8B950WXGH5PtjewAU8OHR/DzLcxzN2wfYGLiCJvi3S8gQj\nib4t1ixf7xaCf0PyJxdtbiq8KXpE7/YZdU4pTajqyOKS1zlN0835SrzB8nGW9wST6BfjLNHF\nsvE5VQOyDyzG7YNJy+vyYN0CwNVPvfZ4BI44hA9vdPlVAFiUPLJILFPiwifn2oP+8oB/HpgZ\nR5/otofh/vXljHrDaq2fyc9za8DTMkIQ/yRB7GlhwGzGLpiz/K9bkegEsuyL15WdeRTT/1hO\nDsWEqlKzMBkLkK5D6I1tSUh0ia790PaLdiZmR3lBDZ4Sv/K2AdMZTh/IY3xHWW+/b7BVrUao\n8lpkeFVlnuh+L6tcwVJ0vEt0Le8T3SaTSnI8/8PP8AUMDd0jzzkPYFnU88uIRuPnmOhdA6cz\nXEFhBBzbdbRcQfTh20ndcYbTy6SebCeIDmOvDtHxrDxIqjb9Fcqh+ziGiY49rO5rMihT0lXV\nNUQ/QvCRobvTME10ghyezVQFGOV25qPmMnp+QkKLN4qYNbBH9NL/Hvo00dWlQXRshvxsC7Vs\nSQhMvdGDe8cBgv/XE103sGfAVEYkrYgdEf1FUq5BGO90TP1MxRhJRst4s5PoCcY9RA/J28j7\nSqLz0Db+Ij3W5hkbphU09gmik7AychphKwaJTr6qIkrr7whERDdBMmz5D2N6Mc65Sl+UIr2G\nXjzy/qeRuirNnhJH9BmiK/K+fvNWQpvo7bmumRVVOZiO3k50fRhfNJs/o9Qh6RBdb8e5OzJQ\nMWs+5uhiToMBAYVzjj6O+e21Ynqc2C+sVkbN1PZaAX2K6G/aXiP5C8qOEJ1QroSPKp2GT7UH\niN7O+SpsYsalGF7aub5mdb25mvGMSHSV6N7nAaIrZt9NdApzvg+bmHEpkujDKjTR5fizCIZq\nctehu8PigPxHsafe6BPr+Z+OXey4Ekn0vgbYzEPWye1E/sFTfVWO3/xynqKmomp+gszWU9t+\nu6czdsH2Bi5gm6d4hM8K9ycr/SzLn8T2Bi4gif4okuhPYHsDF5BEfxSfTvRocrA4zzKLloOt\nGaimJbJ7TK8gIvoNfQUqSa38jMTkSNC0NQxm7IIriT5QdFU8if4IniM6/H8bsHTdro1W6d1X\nvX80LFguz+mLM/rFO8RwXI2OKn64mlhQPuTlEX48neEcsVFna+YN/F1EZ4v0NyjweIt2ppNY\njP99okvHmnLyL6vGQUORHUn0mYzDEX8fCGSJs6jIbDUIICkOPnPU1iqtTlBbU0moXrD8h9F6\nowtPH52s/UJuojMINEQvxrGmHOxTNYOm4fb5cB8PkwcCyq1irN5lor8+OEQ3RCVfm/UnoapR\nojdUNvsgiW4xTPTXL/JubKLrKCAwSU9rXapMN2g6oXtRxjvwTqLDSgp5yXgWAHWQfvFLn6kF\nmoDocmRnVCbRJ3Eh0Uk6Xk/dinSACBayxbGMDRr+6gOHQGzIbIY/CcVpQp1xtP5YlqfsrzSr\n8OafcF81idkRyTous9xhHaebZPCo83Qm/kyioK49IjqIkpObRJ/DxW90KC2TSD/IBY1tWIky\nNmiw4tL07ALRnbjC2+On3vHDBzRToOwQZBVGj7kHPaK72gF9M9FNdMjkC4neDbcJA38WjxHd\npksFYfHniW4bp5M5dIe6wJMDQ7z8mFbPEl32tRmTkzSkqGQTLU7LA6JLR7s1z1v+w5hejCvF\n9njkTxLq+CoYrF9tSqqyuxU09xBdzgtmiC4mt1aZILqafyq5kOhmgHSB5YUnICSsOG5FMtyj\nVkwWrTYzIpbvb6+JPsZp0qSBP4uQ6OH22isXfW0Ti/K/JHohR4EqLsr0guYeoqs2Q3KH6OSX\nkgYUrcqVC4keWzxm4OWY1nofHZPoFr0VnSq3kPMReAPRvc8R0XX5JPoF+PCQfAtOEZ3CnM/B\nAtEdDtpbh+g4FKmfA0Kj1ugYSpfo7a5/mOgfhO0NXMC5N3p/j+ftWHmjd7bXPKLr7TV+ozuT\nDKHGzj9RjrfXdBPU1PgKy3fB9gYu4OOJehZPhruj8o3dm0RPMJLoF1azGdFxjDJc46rBJC4z\nRSYyfhhJ9Kvq8WcxX0x0Cj63SyTRPxNniU6tW6sb3xCNmk3WwNrTqKpuxi4Ytzw+fYurD85h\nXShVagmRLlYYnMWPqgkXIfChyZXqcla2a/kP42Kij4on0e/HsOW8tPha/+P749LOxtex2maQ\nS4mqoiJrgLZIlVzUlosMSkgsEL31/YrjDVDvSKSKR7L3Bw6KfVbX/y89iT6HKaKXkEdeciFT\n6riEbOxoahBdJKnYSqIPYoXoyp/KL2TudNQU99nP6SpiQn+OtXY6QwgdD5n5WmVEyo5xa5mu\npN+GsYxBouPjFogObZduY3FdAfGTXJ6g7hAdD1Qeqr2uS6JbrAVxj+hF3pH2m/vstxeV/Q6i\nT8jG+qmjpJe/hquJXhwxqcx49e9zUNKkaxVO24RQ+ORMoltcQXT9TI+H7j7R8aGMYvp5/16i\n48rR//D1VrDAAPGl9VL/33StiGt5SRkBe3ux5d9GdNXAvoGJa4iu8/BCzm0JQqLYUp9DdB3+\nmgbyLSNTSGXpMGWi637xeTfWEVNE14xWFbazPZaCC12ia00NousgwBa5gZFEt/hcopuI+Ryi\nO62z2bKHfOKKWrx4Dm6HMG65HpwUbK/dXoN0Ti4gieJQncmy22tyzZbbRsWRz+21CdwzR1d3\nKspLxGQhhiVPuO4k0eu8Aj84jVfh3yK6VFSE7qJVW/nrh+4343naJdEtVok+ur2G7wPI85/9\nUux4btfkJf+dJHoVJJkaEr3ehkS3bbDvvOAV7iS12z6XcQ+S6J+A63d1UPmNukdxnuh2TJFE\nH8etARbV+XyVH48k+kBpPVan0j7lpSUs0QmUtojuav4qor8D2xu4gBuJ/o5nucUVRBcTjGh7\njcXKi5GkuN7ZXqsfnt5e2w7bG7iAz2Djjbgp3L+g25LoCUYS/WK1n4Nxy6PpwMTQYaU/KLz1\nP64qTpQO0cn8lp9apboiWiwqdtJrSfR+xscR/SS+wDmPo090/EPLRX5qlOqLfDfRvwDDlr8O\n5zoHYJxzvlbMKw4vB+IfeVxYH3UhrEgucTgHa6DEuOU/jPbQ/eWW4nlBekr5XR9+whAJQoMP\nUonlrZqrajo83fgfk6sJcxm7YPKNXl3LEt453xeNhZgVdYmOaqqsaAU7VWxagDwela1pw5b/\nMCaI7nhB+Fr4vagyHCJVxKrlFql0KqYmETUdE+YydsEk0V8fPK86rug6HLP5P7d3Pe7m+B/9\npg1b/sNYIHrBj6SkC/hY+Zb6Iqg2eGZ72T0T5jIG88/Kq3JngtMvu0h0gsHZkQZX8sV0cZ/o\nMK6/iOg5dB9E54V4sPzVpTy8lvelFOX3mif97hIdp3UBk9WecxJ9oOpFomvBgOi94vgOP4hO\nVp1Us0D0yJ6ExAzRMbmo7vRYDDctoqvQiZhM7ezYgrEMXEzQZ1s40QrX51Btn1qiUHJBObVQ\n4enBUBf6zTLGnOWPEb3hOvsISKJfi4uIrvvdY21AdJfQjxO9qqstJS/RFz7kSwFZMNtb1DLl\noJivJ6CK7d05y1XdHpsioje8CUQXzQuG7sNEl8NGz+yW5T+MsbUskr/MfRiy2h8dkdqidlGv\nWNuAboaNc4dXukSLHBjKkb6ILb6e6BpE+wzRj4HFX6eaaRLudJAj5hbnWtg0OS7BGZse8nhE\nx4ETDrrGLf9hTBBdTcOFr8XgNRhzIltVaFS3/09SRf1hs4iargHdDJ/osLIkQ8pZVRIEPZYo\n9Fagf609EekxBT3960P3W3BTLSNqk+gWPaI/j4sbdIroWhQTmkSXmteJHrTO0++b5OFbiW66\n9rmqvx9JdLgbJXqPsEn0e+KKzKglkLuh7m9HEh3ukHvu0BxJqfL13jNnFP9skFPOJzrJCk3F\nXPaDiP5WbG/gAj6P6BdjNNzxZK3dXjsSWVg9FeQh7O72mlPObK9pPVRMwwrM1D9tjv5GbG/g\nApLo72zDrVo+wfL3YHsDF5BEf2cbbtVyqeUkBjfrIO/jmlIyyxXn9O2NEaJf0W89HfN14Bi3\nUTqJflpRLRLwakrPWXqjriT6OJLo22LOcjnrF0lFEF0sN/AyoPc/mBf57eTCRP9bayBIcwqa\nus2phCT6MBTRncUieQzb+dsDMyfBrbNE2MRhYtQLWfd/YH5Jh5ZP9NJXYspyYI9YViRVRG0g\nANEVB1/ULPL4ojgnhUQnW1A2l4xyuBu1/IcheaG7W1y064RTnADBmNCbT8ahnTDx1GNJ1XBl\nkm95v3NuQuNR5DRquZ3zlju8gQc034sQUd9Y8QJI+qqYfK5XOxdLJdHPwBK9mO52XBN0vNDk\n5XuRYOpABaTklHqndZ9PdIUPIbo4VCuS+O4+onuHhYsslUQ/gybRofc9oi+fBI+ITmI8LsIi\nUK9bR2bsvkR0O2E1k4PwFlLJvAj/EqFctQa6WhZufce1GdFzlgMfTc+CzCmikwgZ4s7w1UO9\n5iGQRJ9Em+hFuEsTXRYyATJP9GIVxPHnEt0xMLQ8yrDGluIedLAH+gAACZxJREFUbvNvMbU2\nSRNd9wnowcLiqtM7RsxZbpzkJZ0mutaSRH8MNxDdJfMM0ZthYoreQPQjn8Sd13DvVpVXFtiO\ni4g+eG0ZMJ7xvxFkW9sjunRSm+hsN6tWkqNEJ9mgUct/GOFiHMnej4gehbP2tkMMtRzrZ+om\n2KKG6DpIIsvb3aImrLUGMV/huYIa65sRKjaVoIZqUC2hh7fh1U5TBg10M46tEbm9wb2stkt4\nziJMNPsmPtFZNepTBVV0COXqyTNq+Q/D3V5TXjeTyFLQ14QlobTwIQaMlimqDsyEurR65pQN\nP7AotLzVK5zvPKF0sk1CRhfxt1Zs+ONHU0OP8C2sPeI+CWQ+TJZLVLTXczbASrgT5K8QXQp7\nRNc1JNE9JNGvQxI9yHImrJpm/i3J8oLoUl4TnaRKpwrveqnlH4npGP02A59AEt3NMxPWSqvR\n7TV46UJNqKZm97bXdLpqyaWWb4HtDVxAEv2NTbih1IiC3V2+v4ELSKK/sQk3lBpRsLvL9zdw\nAUn02xuwWNH7iK7zz7UEzga2FEd5tvJ+c3aP6RUEYTg3+RuPZXT3tDtaTZ2P6u2j4TOIjt6e\nWTpMol+LK4g+0a89d3cLO4nt5eck+nhGzTenV8S3yu3Ze+/4vTjD/3cNFEeV4pooL3X21iAH\nDPxFhES3q8p1KZjPdKmehyNdhWSZms/uJlkNvJpJlC8oYNwcJEN+ZHmUsQvWiV69U69wMqro\n3OOHk+qFuDJqKI4qLVUz3+cbfQ0R0W23G4e7vixMWBEJkAa6sRo1l5Nvau1zaOnNb/ShsMLg\nXgIFn20943WsE51rE7VKKxX9hogeKO5UqlQl0VfQGrprYjn3HtHNI//Ig6gIXPl3Md+HCtoD\net9J9CJbuYRxoq/pHMvA/P+P4TpEk34X+/lIdBztqSZTQ7GRV9FxqCXxnlmw/IfRI3p1HQzL\nQ6Kz/5Q714gehc1tRNdzDTjV0piR1h7QMxn+XA/QmGmrraVQCWWOf07uOcttvuSo7nflO5IF\nAiWhYiPvRIdTpG1AQmDkjX4kdInOwqTFIG2Y6FF7MODE0yS0ZCyjVoJPJf2kOX6sHdI63WoC\nxZYoqMDpF0hX7UOqrVse9APfJ9G/HYNEd4n2CUQvmBFaMpERtorTlHEx0WOFA7V4PPN7LbZk\nMgPzVa1gc/CYaZnCIi6Z/99atfRKVjUl0VcwOEfXfW6FCmbaiO4TnVCNpoxbP9Z8DdHlXEM0\nQE5LXnlqpmmJ7ik8NOmZDRSOZkyq1+Tc9ZTlJp9q5X9Vqh0Qkcs/dtpCUMhVXCt11Hrba4G1\nMwb+IjpEdyaJ0NPKl+xncrJRjQ5ZOU8FYRFcoj1Qj4pDx5LBDAw+j4LQOBLiEdEbCp3HoxL0\nFWh1bWtGLe/hu6jzXa19Bt2n43U1nRa4tlqbofnYIbp+YFmitxQOEd1RkETv47ta+ww+g+jU\nE7ihWp/oZk7oUJBkdpvoRFaxoWtrMY5MVa6GU5Z38V3U+a7WPoOniN6ph/oTr9WKJzLE/ITv\njzwgOWYD0Z3tNSXJmka312xV2L4qdc7yvbC9gQt47o3+JnxMuD/e0R9j+ePY3sAFJNGfakMS\n/TFsb+ACkuiPNOK2mUmr0ukMT6gz5RpSO2H7Jd20e0yv4JIApOFA/rZw/2ZcY/mzRG8ciJjA\n9q5dwBVEJ/g9JPokkujjGVqodfK+cAKel3BWI//TVx2GUQqhVoKP+sxQsL2wZuCP4VKi836P\ndSysHKszUuAX8OZVo90k+niGEvrzD7oV0lmVSsYFiepLpcARPQrAM0IIJdHP4Tqil9iRcKYR\nbjCWQMHrySAUX9G44QwrySdSF+qp2U8/ci4huuGjNISkOLpWX7QCj+gk5fTbY3Rkn0S3uGqO\n/nd9/YqurZuXpsObH0X0a5rxvURXJ+9h3/7l99fguspwvnisFxiGS8WgzhCdWH0SfRlXrQaT\nO8Yj6dgZoo8v8HUaNp0RS4ovqot3TZ2U1GwIdSpsK6bAfMYmBsITXXLtG/0oGLyr/7dOENVR\nVKj4ig9R9LoWSqKfwnXbPtGbvKy/0S9q1mRGLImUFc8zdS3cr2CoTqmR76gKhVeaPZyhhGI3\niguKeewN4sIXLdb0mplEP4GbFuNKECHfSXQ9MvFC0bliVXGpdlFPeLTZ0xlOpeHJe1alkvXj\nwFPgiMIn4DsKkRDutD2hcDnRPUeyr7wbd5Y2GdS9xs1kxJLQdGxjm631GdEkOj5KxNl1fMTM\nTWdOE7158r62riajLQXzZb/9l9T7daJdkuhCKIm+imsPzASO5PAldcPXQ9Xx+YO21yzRS5Pg\nguj8zGsS3a1KFJ+O3wssvwl3N+DtBn4gbjmauRCRt/nmzUSHtBWi+4OEyWYPZzyFJPrzeDPR\nJ8dkV7blBNHhNRseKAGmdobunopii0+zPYmeYLz7jX7VCD2uYDrDSpptQj1TKZq65hvm+NZ2\n5jM20RQvs531uUS/G9sbuICbafZ+vCvc39+vSfQEI4l+U5Xv79ckeoKRRL+jzrvnI2OtmM7Y\nBdsbuIBPiMhbkeE+nrELtjdwAUn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicY\nSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGW\nJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRt\nkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ\n9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYn\nGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2R\nlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0\nbZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicY\nSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGW\nJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRtkZYnGEn0bZGWJxhJ9G2RlicYSfRt\nkZYnGEn0bZGWJxi0PdLytDxR/gEgtkLTU5fk9gAAAABJRU5ErkJggg==", "text/plain": [ "Plot with title \"Topic 9\"" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "thoughts5 <- findThoughts(model15Prrateby,texts=DF$Description, topics=5, n=3)$docs[[1]]# take 3 representative documents per topic 5\n", "thoughts6 <- findThoughts(model15Prrateby,texts=DF$Description, topics=6, n=3)$docs[[1]]# take 3 representative documents per topic 6\n", "thoughts9 <- findThoughts(model15Prrateby,texts=DF$Description, topics=9, n=3)$docs[[1]]# take 3 representative documents per topic 9\n", "\n", "options(repr.plot.width=10, repr.plot.height=12, repr.plot.res=100)\n", "par(mfrow=c(1,4), mar=c(0,0,2,2))\n", "\n", "plotQuote(thoughts5, width=30, maxwidth=500, text.cex=1.25, main=\"Topic 5\")\n", "plotQuote(thoughts6, width=30, maxwidth=500, text.cex=1.25, main=\"Topic 6\")\n", "plotQuote(thoughts9, width=30, maxwidth=500, text.cex=1.25, main=\"Topic 9\")" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "We might assume that topic 5 is more related to retail, with positions like store assistant, topic 6 closer to back office and sales positions and topic 9 somewhere in between. It is worth noting that several words in topic 9 seem to have weak semantic content (like \"'ll\", \"'re\", \"'just\"), and we might consider to re-run the model taking them out as stopwords. If we go back to the distribution of estimates, very few documents seem to have a strong association with topic 9, and if we recover the original exclusivity-semantic coherence plot, we note that topic 9 has the lowest exclusivity in the model we are using: " ] }, { "cell_type": "code", "execution_count": 15, "metadata": { "scrolled": false }, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAJYCAMAAAC3scXlAAAATlBMVEUAAAAzMzNNTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PDy8vL0mZP2m5X3gHj3gXn4\ndm35gnr6n5n///8OhijJAAAACXBIWXMAAA9hAAAPYQGoP6dpAAAd+UlEQVR4nO2diXabyAJE\nCd7iOHb8PI5m+P8ffeyLoASSqlnvnTO2tqKguUYt5MhRArBRoqVXAOBWkBc2C/LCZkFe2CzI\nC5sFeWGzIC9sFuSFzXKjvK+PUfT468bKGztFrnNzduU1nmFlCvKqSYu4r6fiIx32hxty3fbh\ndamHbuDul6h8SEZ1oxxnz7ZO4Kaej7jYjMfbKgPLe9Xy7xvoPD2jvHFbniuYKq/Ynpfipveu\nvHJN1i1vHD1/JMlbHL26V+cSU8dkbnln6Ll3KVPkre/p3f1cGvsWvThWxsctK/Aresq/v0XZ\nE8dHum2Zy9nGPKX3fDxET5/ltcfs9uT3UxTFL/kj3uPH8kf846m4LXsqfHhrBuIzW1yaf4re\ns5/19OBePbI5quZff8bRw2t+5bN8Kn2I0mND/txW3vJZP8e2VqFd/NTaA9Xy6jU426CBZRTH\noXwR9VJzmo7W4LyUt7WWnw1H+3qTezp/cLHdeWFrofkCkv661g9pbWV7u4rd95xtVfSWZKP9\nVg5dZ1Vz4vh3kXiN2hPF8iDc3f2PH8n5gNTj6ucWeZ+i38WFVK/kM38qi3Nd070b/XpIvzxn\n157L29+KZ5t8Zz+mdxUDFJe3fcbdJ6P86kMp3mNqcPGAp3N5X/LUazlo2Zh9pIlqD7zku+RX\n9LNYaHsVOsVPdXG9vHoNzjZoYBmNvPVK5tTXzgcnP3S1lp8NR/t6d1Ce2g8utjsrbC80X0DS\nW9fmIa2tbPWUmTjf7vLA0JK3XtViZKrEc/T2FD28t1amu4XP9aXWFjTj6ufuGdRLdnB8LPbp\nc6pLeulXMQSPn8XtD9kP7HtxW3METe99zUbvZ5r/fKwX+TN7yEu2sT+jt1/FlefkdyVJI296\nmEpvjvMrxfNZJmz1mPyQ3fyUtVehKn7pFtfLa9agu0FDy6ifZuuVLMekvNYenDTz83z5L0n3\nerNu5QKaO5uRby+0Nqy7rs1Dmq1s9xSZ5+zJLc763utjStJe1bM9/lT8+H6olal2eGdA6nEN\nwN3yPmQbkx308tXMnsQrud7L29Nvbz8fqw1p1CsulfmoXlzekB90UvJbPpvaRt503v1W3/wQ\n549vPSafdbTGrL8KZ8X18po16G7Q8GbUC/tMGuprZ4NTPrSz/N71zuJaw1GP/PlCy3va69o8\npNnKdk+ReUufmH5HL+lP+Gvr5761Gmd7PMqezl6rY31/Zd7rS60tqMc1AHfL2z4WJq0vrdnp\nYzUxOHvs+eOKC/UsIj2G/Ore1X50+nIxeqhG+TXdAb+zOUL9mPd0L73V43x5FXJay+s8tvmi\nltHc1Bug4Q0+X45at+5w1MsbeJgefN2b3fyYHiE/04PlU3S2PYM7eWjj1C7tj2sAbpG3fjZO\nfk+R9zmdsL99uOVN/XyI4nIFPlNNX5pjfnZvekgoJr4Zl1ehpF7esLxyGduV9zn6jJ+Spzjp\nvKTwyluPawBukbc62/A7fu4+bySd8ctvfyxv+lRjOjhtyIkfHoanDfWjX+ubnqOPfKWaZafz\n4Lhe1tAqnBXXy3voprpCDG1GERqdNjS9neX3rncW99BevfIR5wsdWFc9bWh68jH6mR4f0lcW\n2VFiXN5iPFsvH5PeHKbe4Z0Bee3+bNu4aan1ed737ow96ezr/JVC/lT+u3zNMCRvma/WI3/x\n+yu7LX3Blk3K8lveq0ycDnOxrDhd6nv9oil9bZA/HbR+6B9ab6IMrcLP4gVGVG9TubxmDc43\nSGxGsRXlStYb8d7auJfuBneW37veWVxzZ1Ld11toc09rdaqHNFt53lOkUuPSH8jOk5aU9zl7\ntfeqXz02O7y1BfW4BuAmeT8eimeg7LVu+1xJ0pU3uz2pTpYoec9OlZVX34tTZdnP70d1iqcY\nk5Sf9aVqqLJHPjTLzofqLWpOSw6twuCpsp+tNegJMbQZ5U/PR+eUVn3tbHDaG1wtv3e9s7jm\nzqS6r7fQ5p76y9CpsvOejOd8lR/yH47O9gzK293I4sHd83bF0He2oB7XANx4PH97jqvfbWif\npe7I+/FYnidPH/D4+3yvV5fyNyl+NUP1kT+6fpMinQu8PxYFxU96nA5EdSn+WS2kOoGeXXkt\nf85br8WHViE7jd5+k6JaXr0GZxs0tIzmfFm1kgX1te7glL2d5feudxdX35nU950vtLmn+dJ6\nk6LeyvPepHrP7Gf92uL1orzZsqKXejrwev4eVbXDu1tQj6ufG+WdsOCrlhzgeeX3Tb/CArdy\n3Q73VAZb8MQl53PVl+aklo3HKNj5RRjgiPKWU0n3mcDo1t95gxs5orzJ60N7tugirt+VgnnY\nk7wAoUFe2CzIC5sFeWGzIC9sFuSFzYK8sFlukPfPOFMeEyRM8dLFfkU1yEuxNetXVIO8FFuz\nfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetX\nVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1\nyEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FF/NqcyehhY5I8hL8bWcSnlPyGsNUxw+fCqPvCeO\nvN4wxXOEmTYECVM8R3gT8hZ/P7V7CXkp3oK8cfl/+1KCvBQjb5AwxXOENyrvj5TwKwXr5nT2\nfSlG5K2musx5KW7YwpE3U5dpA8U9NiFvwpyX4iuzAV3twQs2iq3ZsLp2mXCeN06Y81I8NRvY\n1w68w0axNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetX\nVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1\nyEvxDXx/fyOvO0zxLOHvr6+vf8UiZwR5Kb6azN2v/76HFzkjyEvx1SBvkDDFc4SRN0iY4lnC\nzHlDhCmeJ8zZhgBhipcu9iuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/\nohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9Suq\nQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrk\npdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6KrVm/ohrkpdia9SuqQV6K\nrVm/opob5AVYBxx5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9av\nqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/Ypq\nkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5\nKbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdi\na9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm\n/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9av\nqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/YpqkJdia9avqAZ5KbZm/Ypq\nkJdia9avqAZ5dfiUskjxXNldyxvHce/SceQ91V9mLp4tu2d54/L/9qUEeYMXz5Y9jrw1gQdl\nXbsSea/MBnS1x1R5y2nDj5TwK7UiTkuvAGhG5C2dzb4dbtqQv2Jbpnim7J6PvJmzB57z5jBt\nuDIbVtcuY6fKkHeh4jmye5aXsw3Ie3U2rK5dJpznjRPO885aPFt21/IOE3hQ1rMreYfthqxf\nUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXV\nIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3y\nUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIO+F8Pf39zLFM2WR1z0o69mV319fX1Pt3ccWG7J+RTXI\nK8OZu5Pt3cUWO7J+RTXIK8PIe0vWr6gGeWUYeW/J+hXVIK8OM+e9IetXVIO8F8Kcbbg+61dU\ng7wUW7N+RTXIS7E161dUg7wUW7N+RTXIS7E161dUg7wUW7N+RTXIS7E161dUg7wUW7N+RTXI\nS7E161dUg7wUW7N+RTXIS7E161dUg7wUW7N+RTXIS7E161dUg7wUW7N+RTXIS7E161dUg7wU\nW7N+RTXIS7E161dUg7wUW7N+RTXIS7E161dUg7wUW7N+RTXIS7E161dUg7wUW7N+RTXIS7E1\n61dUg7wUW7N+RTXIS7E161dUc4O8AOuAIy/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXV\nIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3yUmzN+hXVIC/F1qxfUQ3y\nzlJ86l2YqThcGHnd4ZUWn07nF2YqDhhGXnd4ncWn6oB74sjrBHlnKT5VX5HXCPLOUoy8IUDe\nWYpP1RfkNYK8sxTX3iKvEeSdpTiXt2De4nBh5HWH11rMed4QIO8sxcgbAuSdpRh5Q4C8FFuz\nfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetXVIO8FFuzfkU1yEuxNetX\nVIO8FFuzfkU1yEuxNetXVNORN5qkcuBB2dWuPF5xGE2HOdN1ir6BB2VXu/J4xWE0HaYnazTq\nb+BB2dWuPF5xIE8HGTJ1xN/Ag7KrXXm84kCeDiKOvJfsDTwou9qVxysOp2ofMedFXopvywYz\ndQDONlBszYbRdJho4MqIwoEHZVe7ssX39/cyxYHCyOsOr7f4++vrS9m7py0OJeoQLVGjmsuR\nwIOyq11Zk7kr7d3TFofVtcvQkXeEwIOyq11Zg7wB4Hcb5ilG3gBE7UtMG8JlmfP64cg7VzFn\nG+wgL8XW7Jho58JFgxenwZsUFFuzUrRoWDGbvPxKJMX3ZqVo4eWdom/gQdnVrjxesRYtar6W\nJwWyb63r98s7rm/gQdnVrjxe8QR5o1K8qJStff0+edvqxnHcXEZeiidkr5S39/0OeTtH3bjl\nbIy8FE/JXhCtMrcnbfnmgvVsA/JSfHX2FnmHXLxa3jNa8sblhR8p11YAhJa3//Zw3BxwY+a8\nFE/KXhIt6kvrfcHWJq6cjXnBRvG07AR5Q54q6/pbWtw68RB4UHa1K49XfK2A9xD1rjWv2tov\n2DjyUjwpG17Zrq6dK+25R3G4rWcOJYEHZVe78njF82jb+Nq5Mj5xDjwou9qVxysO6GqPc3kn\nTJwDD8quduXxigO62gN5KbZmA7ra4+wF25QzFoEHZVe78njFwUwdgH9JQbE161dUg7wUW7N+\nRTVnv5jDvx6m+L5sSFnPGfpl9JFI4EHZ1a48XrGy5n/DuOXlbAPFt2eRd5EsxY4s8i6SpdiR\nXUzeSa/XkJfiC9nF5J1G4EHZ1a48XrGyBnkpXn2xsiasvM1nSzPnpfjm7DLyTibwoOxqVx6v\nWFnT+Pr3798BeaMBHaPWHUPHVOSl2JodlffvP//883dA3u6/4qnljIasHpQ3ko9DXoonZcfk\n/XtKaewdkLf+15n1P5dXTvb+JcW4vYEHZVe78njFY/Ke0gPvP6cBecv/Wv+cJ2q8HX4lhrwU\nW7Nj8v6dLm/roDv8e+bIS7E1OyZvMW8YesF2Sd5hLV3ynoqvGXcOyq525fGKR+U9/f37N4S8\nyc1vD59KeQ2DsqtdebziMXlP9ZfeqbIokfJOmDZMY2CNT3+Ql+Li5gnyDk8bmo8v67xGq8/z\n9pfpOs97qr/cOyi72pXHKx6T93/ZjHdA3luwznmrKe/qRpTi2YpH5e3ik/eONylOnS9rG1GK\nZyteTt4JH/Z08WxDdWltI0rxbMULyjvlD7ENrjPyUlzcvJy89x15mTZQvJy8hjkvL9iOXXyX\njVfif4ft3kHZ1a48XnEoUYfg93kptmb9imqi7qUp84bAg7KrXXm84oCu9kBeiq3ZgK72QF6K\nrdmArvZAXoqt2YCu9kBeiq3ZgK72QF6KrdmArvZAXoqt2YCu9mjJyyfmUHx/NrCvHXiTgmJr\n1q+oBnkptmb9imqQl2Jr1q+oBnkptmb9imqQl2Jr1q+oBnkptmb9imqQl2Jr1q+o5gZ5AdaB\n78j7/f1t+Yne1XHoeMV+RTU2eb+/vr5qe9c2ohTPVuxXVOOSN3O3sXdNI3qqP8dn5uJ5wmsr\n9iuq2b+8Ocg7V7FfUc0x5J3k7q4cWqzYr6jmGHNe5J2t2K+o5hBnG6a5uyuHFiv2K6o5xJsU\nyDtfsV9RDfKGLJ4hvLZiv6KaI8g70d1dObRYsV9RDfIGLJ4jvLZiv6Ia5A1YPEd4bcV+RTXI\nG7B4jvDaiv2Kao4gL8UzFvsV1SAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJszfoV1SAvxdas\nX1EN8lJszfoV1SDvVorF2eq1bbFfUQ3ybqRY/UumtW2xX1EN8m6j+MSRtw/ybqUYeXsg71aK\nkbcH8m6lGHl7IO9WipG3B/JupRh5eywvb/fvxV8ZvqfYGkbe6uYZWVzewtnmy9odWqwYeXss\nLe/pT3h5258ocXX4nmJrGHl7LC3vn/Dydj7L59rwPcWzhNdW7FdUsyp5i3mveUS7n6J2Zfie\n4nnCayv2K6pZkby5uSfk3XaxX1EN8l4M31M8T3htxX5FNSuS908YeZnzzlrsV1RzAHl3crZh\nI8V+RTUrkzfAC7Z5whRXN8/ISuStzjQg79aL/Ypqlpe3zWksPPbHUda2K49X7FdUsyp5T6Ph\nsY8dW9uuPF6xX1HNmuSd8A4b8q692K+oZkXyVn8w7UJ49PMe17Yrj1fsV1SzInknhEf/HuDa\nduXxiv2KajYmb/1l5uKg2V0V+xXVbEveHORdc7FfUQ3yesIUVzfPyLbkZdqw+mK/oprtycsL\ntlUX+xXVbEveP8c926B+u2htW+xXVLMxeQ9bLH+vc21b7FdUc1HeOI57l5B3iWL9G/Vr2+KQ\nsp5zSd64/L99KUHeJYqRd4hp8iYJ8i5ajLxDXCnvj5TAawRD/Pvff//9u/RKrI0ReZupLnPe\nZYs529Bn5AVbMoe8Z/tl1Q5RPJIN6GqPsVNl8dn3xC/v+Vmg9e7K3mcCXlcsT1Kvd4uvz4YS\ndYiJc96Wu255e69FVrsr+58JeFWxfm97tVt8Qzagqz0mnOfNp76tE73mQdmMvAOfCXhVMfK6\nWf4dts3I2zYPeZE3p57zli/c1rsrkXc861dUswJ5K2kride7K0vzeMF2IetXVLMGeQvq6cN6\ndyVH3vGsX1EN8l4RRt7xrF9RDfJeEeZsw3jWr6hmPfJuZc6LvBezfkU1K5J3ytmGsU8r5R22\n2cLIe2V49HOi17Yrj1fsV1SzKXnHP6F/bbvyeMV+RTXI6wlTXN08I8jrCVNc3Twjm5KXOe/6\ni/2KarYl78JnGygez/oV1WxMXorXXuxXVBNW3gsnRq8eleBZih1Zv6KaoPJe+qcHV49K8CzF\njqxfUU1IeS/+04OrRyV4lmJH1q+oZo5pQ/fSBcb/GtDU4tnDFFc3z8ia5D0h7/aL/YpqZpJ3\nkrsceXdQ7FdUsx55T0wb9lDsV1Qzj7zTDrzIu4Niv6KaWeSd6C7y7qDYr6hmljcpJiRa59P2\ntCuPV+xXVDODvKfRv1tZP2j0r75PLQ4Vlr9bMaX4rrACea8i3KCs/sirf6ttivj3hCXIexXh\nBmXt8l74feJp4gf4oyjIexXhBgV5rwd5ryLwoKx4VyLveNavqAZ5rwkz5x3N+hXVIO9VYc42\njGX9imqQl2Jr1q+oBnkptmb9imqQl2Jr1q+oBnkptmb9imqQl2Jr1q+oBnkptmb9imqQl2Jr\n1q+oBnkptmb9imqQl2Jr1q+oBnkptmb9imqQl2Jr1q+oJrS8Yx/rOH1UgmcpdmT9imoCyzv6\ngbrTRyV41l889RMG97PFe5J3/KPMp49K8Ky9ePKHtO1mi/8g73UPt2WR15H1K6pZj7z17Hg3\nu3LyJ2PuZov/7EneK+a8zSN3sytPg38ffobiWcLblPcq/v3332mP+y9j2mO3wumUfVl6LXbM\nWs7ztiYYuzkOMecNDPJ6wshb3Twja5F3n3PeP8gbktXIu9ezDcgbjvXIawmvq5h32MKCvBRb\ns35FNchLsTXrV1SDvBRbs35FNchLsTXrV1SDvBRbs35FNchLsTXrV1SDvBRbs35FNchLsTXr\nV1SDvBRbs35FNchLsTXrV1SDvBRbs35FNchLsTXrV1SDvBRbs35FNchLsTXrV1SDvBRbs35F\nNchLsTXrV1SDvBRbs35FNcgbsHjqpwzuZ4uRd6GsvXjyJ67sZov/IO9CWXfx9M+62ssW5zfP\nCPIGK0be0CBvsGLkDQ3yhitmzhsY5A1YzNmGsCAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJs\nzfoV1SAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJszfoV1SAvxdas\nX1EN8lJszfoV1SAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJszfoV\n1SAvxdasX1EN8lJszfoV1SAvxdasX1EN8lJszfoV1VyUN47j3iXkpfhSNqSs51ySNy7/b19K\nkJfiS9mwunY5gLynlEWKZwmvrTisrl2ulPdHSviVsnKqv8DOGJE33v6R91R/mbl4nvDaigP7\n2mHkBdsOpg3IO2txWF27jJ0qQ96bi+cJr604oKs99v+CLfN22iu2PTm0WHFYXbtMOM8bJ9s+\nz5udbEDeuYoD+9rhIO+wIe9cxX5FNfuXlznvrMV+RTXIG6x4nvDaiv2KavYvL++wzVrsV1Rz\nAHkpnrPYr6gGeSm2Zv2KapCXYmvWr6gGeSm2Zv2KapCXYmvWr6gGeSm2Zv2KapCXYmvWr6gG\neSm2Zv2KapCXYmvWr6gGeSm2Zv2KapCXYmvWr6gGeSm2Zv2KapCXYmvWr6gGeSm2Zv2KapCX\nYmvWr6gGeSm2Zv2KapCXYmvWr6jmAPJ+f38vUzxLeG3FfkU1+5f3++vra5q9e3JosWK/oprd\ny5u5O9HePTm0WLFfUQ3yhiqeKby2Yr+iGuQNVTxTeG3FfkU1u5eXOe+8xX5FNfuXl7MNsxb7\nFdUcQF6K5yz2K6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+iGuSl2Jr1\nK6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+i\nGuSl2Jr1K6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+iGuSl2Jr1K6pBXoqtWb+imhvkDc0Pindf\n7AF5Kd4syEvxZlmhvADTQF7YLMgLmwV5YbMgL2wW5IXNsjZ54zhufZu3OF6kOO1MFilebKht\nrEzeuPi//DZ38yLFSVyVzlu83FDbWKG8yVK7cpHixeRNEuT1Ei92HIqXcihOkPdG1iZvvNCI\nLjlfWUreBQ/5HtYjbxzHyzhUv2JZpLhVuv8tNrMeeXMWfRWxzCE/bv/UzgzyOllM3iV/ajjb\ncCMrk3fR87zLFHOe92bWJi/AZJAXNgvywmZBXtgsyAubBXlhsyAvbJbDyxulXBe4624wcvSx\njuovkx9990PAxMHHOup8m/rwOx8CJg4+1q3NL+cPUZJ/LycTvRujPNKea0SDD+1cl3deP2mB\nFgcfukaeav5QSBaVVzo3FtdbN3dyAw9tXx++s7UguBpGLom6fiXJmVRnskXdQYva3we8jOSd\n5z1wLYxcRvnEHvXl7d54jbyd5UX95bRvh5tg5DIGD4ZR0rX1hiNvZ3nnD0oY/Ts5+PA1E9dB\neYe+I+9qOPjwRZ1j7OAcVU0bGu8vznVHfxiOvgvu4PAjV086o+4Lt8rc6GwiW90cnS/gPN++\nru7kVNldMHSwWZAXNgvywmZBXtgsyAubBXlhsyAvbBbkhc2CvLBZkBc2y/8BJgwoolBAJnQA\nAAAASUVORK5CYII=", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "options(repr.plot.width=7, repr.plot.height=6, repr.plot.res=100)\n", "ggplot(ModsExSem[ModsExSem$Model==\"Mod15\",], aes(SemanticCoherence, Exclusivity, color = Model))+geom_point(size = 2, alpha = 0.7) + \n", "geom_text(aes(label=K), nudge_x=.05, nudge_y=.05)+\n", " labs(x = \"Semantic coherence\",\n", " y = \"Exclusivity\",\n", " title = \"Comparing exclusivity and semantic coherence for model with 15 topics\")" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Another very helpful function to use for topic analysis is again plot.STM with \"perspectives\" as argument, wich allows us to have a graphical display of topical contrasts, where words are plotted with size proportional to their use within the topic and oriented along the X-axis based on how much they favor one topic against the other (the vertical configuration is random):" ] }, { "cell_type": "code", "execution_count": 16, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAK8CAIAAACC2PsUAAAACXBIWXMAAA9hAAAPYQGoP6dp\nAAAgAElEQVR4nOzdf3RU9b3v/7dVKCMIxEEc+TH8iBoHKAwIBkPbMNXmwjkOq6bV9CwL32yO\nhxPt+d58W1jcL8f2sDjqYV0W1pX1vcUc6nXnwPGuRlt0ObZYtB1iC5KCsEEgppAAEWFAYyQY\nQrEevn98YHez50d2ksn8fD5WFmvPZ3/2nh2X2fs1789n77nu8uXLAgAA0JMvpfsAAABAdiA0\nAAAARwgNAADAEUIDAABwhNAAAAAcITQAAABHCA0AAMARQgMAAHCE0AAAABwhNAAAAEcIDQAA\nwBFCAwAAcITQAAAAHCE0AAAARwgNAADAEUIDAABwhNAAAAAcITQAAABHCA0AAMARQgMAAHCE\n0AAAABwhNAAAAEcIDQAAwBFCAwAAcITQAAAAHCE0AAAARwgNAADAEUIDAABwhNAAAAAcITQA\nAABHCA0AAMARQgMAAHCE0AAAABwhNAAAAEcIDQAAwBFCAwAAcITQAAAAHCE0AAAARwgNAADA\nEUIDAABwhNAAAAAcITQAAABHCA0AAMARQgMAAHCE0AAAABwhNAAAAEcIDQCQWVZpWq/anXcA\n+onQAADZYa2up/sQkO9uSPcBAABiMMsGZlZYpWnWZXOttT3mhkCy5Hho+BdN+1f+bABkG1s+\nsF3+Y6YHJxsC/cTwBABkHOcXe1tPUgIGVF6Ehn/RtH+xhHH10myxrbL9CwAAlBwfnhDLCIVa\nsA5YJBi8YFwDAACb3K809O3aT2IAAMAm90MDAPTNy5r2csYPU/JsBqRS7g9POMckBgBZQd1m\nGb0MDLS8Cw1qWoO5bG2xrgKAdIl3Q4S1PeZdEtxJgYF23eXLl9N9DMhomlaj69XpPgqgX04Z\nRmtDw2nDmBwIjJ8zZ7TPZ646H4mcMowD9fUicpvf750711tcrFapsYmHrl56P+/u/uCPf3y3\nrk5E7q6sHH/PPYNcrhT/Ikr005zIB0iNvKs0AMg3bY2NjbW1ark1HG4Nh0tXrlS54dO2tjdX\nrzZ7njaM04YhImZusGrcuFGtFZF36+o6Tpy4e8mSAT/6WGxDEiQGpAyhAT1QZQZNqzFfqmXK\nD8gWKjEEa2qGDB9+PhJ5Y9WqP23bpkJDy/btIvKNH/3IXVgoIhfa23+1YkVjbW10aDhlGKcN\no7iqSq1SQcRWtEglggLSgtAAp8z0YFsAMtxtfv9pwzi1b9/NkyaN9Hofslxu716y5O4lSy52\ndn7a1nbhk08+aW2Nt5PTBw6IpQLhLS5urK3tOHEiXaEBSAtCA3rNrDoAWWHagw+KiJqLMDkQ\nmPqtbw0ZPtxce3DLlqZQqMedtIbDcnWWg+lAfX3RggXWlo2atowaAHIXoQG9RoEB2WWk1/vV\n6uoL7e1Nv/pVazjc3dExo6LiJo9HRFobGppCITU7cvDQoUNGjgxVp/p/b3IGsgihAb1jzmkQ\n0gOyyo1u991LloyfM6dh3brThqEGKa7cCnF1PuPn3d3xNp8cCLSGww9xdUd+44mQcMSaD3S9\nWv2k8XgA5/5QU/Oypp2PRERk2OjRInKb32/toFZ93t2tP/64iHSIbLQMQ6jld8NhEWlrbNyo\naernZU07uGWL2WfjtSMX0Xuw9jRb1MJGnhCDLEGlAUCO886de9ow3li1ymyZXFqqFoqrqhpr\na62rOkQKRB7S9Y2aVnC1caOmaRs2NG7c+EZtbYGlp9qPOb7Q47XfOhKhlpfpOsMTyCJUGvKU\npq3quROQE7zFxcVVVaq6cJvfP6+6eszVSoO3uPjuykq17AsGRaQg1h6W6fogl2u2JROozje6\n3bZuzo+KoIBsRKUhT+n62nQfApA63uLimM9rEpHJpaVm4WFnKGSdtfDQtfUDdc+F2WGng3su\ngBxDpSE7aNoq9WO+tK6y/mtbFb2V9V8AAJwjNGQBTVul62vVj7rYmwtqla2bdZW1xdYfQLSU\nzUlk8iOyEcMT2SG6MKCigDUBRKeBmFsNxOEBOUPNTJQ4cw7MtdYO1saYPRNvLjyqAdmD0JAd\n+naxJyIAfWC7fid+2f9G4gKyCMMTWcY20BA9uSHxVgAA9BmVhixgDQeqeGAOTFgHKawzHmJu\nBQBAf1x3+fLldB8DkoAZjgCAgcbwBAAAcIRKA/5K034iIrr+Q+tLs8X2EgCQb6g04ApN+4mu\n/1DXf2gNB7Z8YOsAAMgrTISEXXSlAQAAodKAaCormIWHdB8OACBTUGnAFea4A5UGAEBMTIQE\nAACOMDwBAAAcITQAAABHCA0AAMARQgOAHNfV3v7HTZvSfRRALiA0AMhxr65YcSQcTvdRALmA\n0AAAABwhNAAAAEd4TgOAnPWiptlaHtF1tXCpu/vUgQPHd+360DDG+v3j/P5xM2cOGT7c1v/j\nlpaPjhzZW1+vXhZXVt42bdpQt9v2Fo/o+sXOzua33joYCt0RCNwxf36B16s2b92x40g4fEcg\nMHnevFGFhQP0mwKpkb+h4SlN+5Guq3/TfSwABkS80HCxs3OXrn9oGLa1f7NmjbrYK/u3bDkY\nCkXvNrh27XCPx/oWwbVr99bXW3f4rfXruz/99DdPPRVvQyAb5f5jpOPFArICkPNURDCLAWa7\nSgz3rVx588SJg10uEYk0Nf123br9r7xSsmyZ2XIwFJoWDBbdf7+qQFzq7j7b3NxQU3Ns584Z\n5eXWNwqtWjWvqmp+dbWIHG1oaKyra9u9e299fWl19Ti/32yM3hDILrkzp+EpTVM/5rJasP5r\n65PW4wWQHpGmJpUYPD6fygci4vH5/tuPfvShYZxtblYtbbt3i4iZGERksMulEkB0+aG4snJi\ncbFa9t5zj4jsra+fVVGh+puNMesWQBbJqUqDKh6YpQXbAIRZWiAuAPms48QJEfH4fLZ2NeGg\nvbVVXenvWbLkniVL1Kqu9vZLXV1dn3zS3toac5/jZs40l80g4p0zJ7oRyGo5FRpM8WIBcQEp\noGnHRUTXJyZYRhqpWY3R0x2Ug6GQOYJwsbPz2M6d5izIBKJnUIqIdb4kkBtyMzTEnK9grUCk\n/IgAZBnrZMk7AoGbJ0wYNnr0yLFjf1ldne5DA9ImB0ODGpIwl4W4gNSqqRmv6x+n+yjS4Lim\nTcye+cWP9HSoJ/ft+9Aw5lVVjZk+ncEFQMmd0GCtLsRctpUfbBMdgGR59dVPKypuTvdRIK5p\nweDBUKgzEkl892NjXZ2ImNMblYudnQN6bECGy53QAGSIJUtyfyT7uKVop6oLqkX9a22x9pGr\n1Ygeuw0o9+TJIvKhYQxfsMDa3hmJhFatmhYMJrgr8uS+fQN+fEAGS3VoeFHTeqwKAshktmEI\n9VJFAVs4iLmJw25Jd7GzU01XHF1UNNbvV9MbJ5WUqMaOtrb9r7yiWlR/VZA43tiohicudXe3\n/fGPqvwgIpe6uxmzyEOatkPX5/W/p/P9ZBoqDQD6pbeX+dTPe1CXfzWB8RFdH+xyzXjwwQ8N\nY299ve3OiHlVVeaYxaSSkoOh0I7aWmuH0urqUwcOHAmHL547R2hAAokzQeK1mRwpCA0Aesc2\nvtBPxwd+enLR/ff/+bPPjoTDY68+aqnA631owwbzuydEZFZFxVi/3zrLYbjHE1y79tjOneqJ\nTGaH4R7PkXA4enQDyAdJCw3mTc/W0YeYjQ7XAshY1ukI/YwOKSg8DBk+3PqkJmWwyzWxuNg2\nz9FmuMczo7zcNsVhuMdjPWXFPH05b0Sm0bQdasH6WV812lp0fZ613dbHrBZE95Rrawm2d1Qv\nozfPkNpDckKDdaaCuRyzMfEmALKIGR2y6E5LIAHbtdx62RbL1T26g1gu+dFX9+hdJXjH6IiQ\nOYlB+vndEy/Fqiual39yAJCTBm5AIQVDFUACvZqIYH3ZnxkMPXbLnMQgyao0PKLriYcnYkq8\nFkBmMuc0mC/NZXPAIkEfh7sC0sJWThho5siFZFg4iKcXocGsKzys6+ZL9e/Duv6IrqvlFzVt\nkMjDuq4GHV7SNLWsFqz7GXR1VwCyS8yru63RSZ943YC0iDnVYKDFnOiQsZwOT6hLvvoxg4L6\n15oJzEbryMWLlv7mJtZulByQq3R9ovkNVdZlAJks6YlB0/bbFnr7RrYN06UvwxPR5QE1PKGu\n/dY5DWZLdCwwG5kFCQDIBNbbHKyjBknMELo+I+Y7Sqy7M5L1pkl03eXLlx12tQ1PyNXyQ/Sy\n9WV0u223jFAAAHKJWRUwI4Km7VfL5oJcWzyw9bTtIWbPtOhFpSFePugtUgIAIFfZYkG8a7xt\nVbyt1LKKEemNC0q/brkEAADx9O0ynwnhIB6nlYZ+VhdSvFsAADJchsxt7BWnocF6Q0T0HAXr\nXRXRfeLtJ0E3AAByWyZXFOLpy5yGeC0xE0CPWwEAgKzAnAYAAAaE8wGIbBmq4KuxAQBImugb\nJnvslrinSfVP76BGL57TAAAA8hnDEwAAwBFCA4D88ku+7AboK0IDACAHadqz6T6EHERoAJB3\nfqlptnqDrcVcti5Qosguuv6DdB9CDiI0AMg739b1b+u6NRDYWuJtlZKjy32a9qz5Y7bYOlj/\ntfaMtwdb/+h9Iim45RIAkDqa9qy1BqBe6voPzHZrh5jLMfcQc+dIOioNAIAM1dsEQGIYaFQa\nAOQ7c2DCHIDocagC/RFz4EAVG8TZhZ+hh3QhNADIL9ZkEN0Yr4UJDUnU/3oAFYV0YXgCAJB+\n1skN6T4WxEVoAACkTeKI4CRAEDJSieEJAEDq2GoJ0TdEWO+ksHa2dbDtAanBF1YBADIR909m\nIIYnAACAI4QGAADgCMMTAADAESoNAADAEUIDAABwhNAAAAAcITQAAABHCA0AAMARQgMAAHCE\n0AAAABwhNAAAAEcIDQAAwBFCQ8bRNC3dhwAAQAyEBgAA4AihAQAAOHJDug8gX2iapuu6GnrQ\ndd1sVAtmS8wNe+wDAEAKEBpSR+WGmC9tq3rVBwCA1GB4InXiJQa1Knr+o5M+AIAENO1FTXvR\nydp4y7AiNAAAAEcYnsholBYAYODo+iPpPoQsQ2jIaExiAABkDkJD+jkvJzAXEgCitbV17NnT\nFgodFJFgcNrs2V6vtyBe58bG47W1O6qrS/3+cWriAvUG55jTkB7Rsxqj04CtD4kBAKI1NUVW\nr/61SgwiEgodXL36101NkZidVWIIBqf5/eNSeIy5g0pD2lgzQbw0kKBPU9ORbdverq7++wE9\nSADIcNu2vS8i69d/y+0eKiItLR8/9dRvdu9u8/k8tp5mYigvn5GGA80JhIYUiRkLnDTG7FNT\n878N41Cyjg0AspdhfCgiXV2XVGgoLBwVc7iBxJAUhIa/ikQihmHU19eLiN/v9/v9RUVFHs81\nWbWtrW3Pnj2hUEhEgsHg7NmzvV6vuVZVBTZs2PDyyy+Hw+GKior6+vpAILBkyZLot9u0aVM4\nHN6wYcPjjz8uMQoJTU1NTeqNKisr77nnHpfLZa4lMQCAUlU1r7Z2x+rVv66omDVnjldEVHqw\n2rJlvxq/KCmZlIZDzCGEhiva2tpWr15tvjQMwzAMEVmzZo0ZCxobG2tra80+oVAoFApVVVUV\nFxdbd9XQ0BAOh0WkoKCgqqqqtrZ2/vz51myh3i4cDldVVVmjgGnLli0qLih1dXWGYVRXVyfh\n9wSA3FJcPPHLX76hoeFoff3e+vq9IuL3j9W0ucOHDzH7hEIH/f6xhvHhtm3vL1lyT/oONusR\nGq545ZVXRORHP/pRYWGhamlpaXnqqae2b9+u6gSRSKS2tjYYDJaUlKjyQ3t7e0NDQ21t7W23\n3WbNBBcuXNiwYYNKA52dnSJi7sS0fft2EZk+fXr0kbS1tYVCIb/fX1FR4fF4uru7t27dGgqF\nGhsbbekEACAifv84v39cW1vH6dPnmpvPhsNHXn31gDUcrF0bHDToesP4MBw+Mm/e5MLCUWk8\n2qxGaLhC1RWsCgsLrUMGzc3NIrJw4cILFy42Nu5rbm4Jh3eKXBaRt9763d/93XddriuptqSk\nxOVyadoP1Us1SFFWVmaOdGja/yNyTsRlKzO0tZ06dqxt27ZtImIYLQUFf5gwYdykSd6FCxeG\nQqHm5ubi4mJzt1d39UMR0fWfWBvb2zuOHj1+9QglECgpKiqcPt1nHqFtc7WHzs7z+/YdMoxD\nhnHI7586d+4sc5NI5Gxzc2td3UuJ9wYAaeT1Fni9BcXFE8PhI+HwEWto8HiGi0h1dWlNTcPr\nrx+srp6ftqPMcoSGK6qrq2tqap566im/3z937txRo0aNHDnS7XabHerq6kREzT+w+f3vG86f\n/0LTHlYvbdMg5syZU19fbxjGggULrrZdEhGRwdZuW7ZsDYXeFBGRDhERuUFd8kWkomKR85st\nDeNQTc3/traEwzvVrlaufMznuyPmVm1tp1avXm/diYoO1dV/39i4r7Z2s21vfv/UZcseITcA\nP9O0f9B16wJSbNOmP4bDR0T+ItKt61UtLR+LSCAQ41zn948LBO4Ih48YxkluuewbQsMVfr9/\n5cqV27ZtM2czqEZN04YPH97j5oZxSNdfirnK7XarYsOcOXPcbndnZ6dIt4jL9pAMlRgqKx+u\nq/t3EdH1n7S3dzQ07AqF3qyvf23ChLHqeq+KCtYKge0wVGIIBErKyr7u8YwWkUjkbH19yDAO\nrVv3XLzcsHr1+srKh++5x+9yDenuvrh1azgUelPtzTAOVVUtVqUF85AM49CBA03FxTN7/C8D\n5DASQyaYN29yOHxE5AaRm8xvmSoruytm57/926nh8JGamoYNGx5yuQbH7IMEeLjTX/l8vurq\n6vXr169cubKiosLv9xuG8eqrr17bqyAQ+Fv9WitX/rMkvKNhypQpInLw4EERaWpqEhFbmcFU\nWjrXXHa7CxYuDKjl3bv393j83d0XVWLw+6c+9NADKjGIiMczetmyR/z+qSKybt1z3d0Xo7et\nqFhUWjpXVQ5criElJXerdsM4VFn5cHHxTLXK7S4wVzU3t1j3oGk/7fEIgWz3M0372dVHp6gF\ns8Xa/jPLY9lsL5F0hYWj1qz5G5H/Ui+DwWlr1wbVeEQ0t3todXWpiDQ0tMTsgMSoNNi53W63\n2+3z+RYsWKBpWjgcVnMYv/a10t//vkHkL/PmzbZtMnHi+MT79Hq9gUCgrq5u0qRJtbW1IoPj\nxbXOzvOqLNHW1ub1el2uIbr+k+7u7scff7yj48PEN1CYV/Gysq/bBg5criFlZV9Xsaa5uUUF\nCCu/f4r1pRk4RGTatKKYq8LhnUuWfCfB8QA5xlZX+Addj640xKw9UIQYaF5vgUiXiOh6lW1V\n9DMb/P5xZqN1bbxlWFFpuGLTpk2apkUif33yaEtLi4gEAlc+61933ZdFRORiV9d51dLd3W0Y\nhqZpDQ3bdf0ntpECm/nz54vI1bs6vxyvm66/dP31XxaRV155pb29Xb3L1q1bRWTu3LnxtlJa\nW9vUwtix9uegWRvNblbWlGDjdsd9hDuAaJQW+kPTajWttrv70qZNb2ta7Rtv/LXI2tbWvmXL\nH1WHLVv+2NbWnnhXve0PJ6g0XFFWVhYOh1etWhXdrhbefnu3yFCRrmefvSYc+P3+kpKSHvfv\n9XrVeEcgEAiH7XdqiEgw+E01V8AwDokMsU6tEJFgMNjj/ZZX51HK8OE3Ra81G0OhN8vLFybY\nj6b9VNe/L6JuPW2Rq0MPuv59S69CS894exCxDFvE7AnkHuoK/dfQ0BQOHxaRgoIrj2lqbDxa\nW/uW2SEU2hsK7a2qur+4+PaYe+htfziUm6HhXzXtXyx/t7aXMRs9Hs/atWubm5vVXRIiUllZ\nOW3aNOsNFGpYIRicr568FAgEioqKpk+fHvMBTdHKysoMw5g/f37M0FBevnD27Bl79uwPhd4U\ncYncIHJJ5JLIoHvvvbe0NODsV08OTfupigsihWYCsESBQrVW138SnRtsiSHmMpCN1HiEJIwF\nZp/E3ZDYhQt/3rBhqTlRsa2tvbb2Lb9/woMP3uP1ukWkpeXM66/vra1967bbClSLVSTyaW3t\nW8HgrJKSOz2ekSLS3n6+oaEpXn84l5uhwSY6McTk8Xg8Hk9paWnCXjeUl5eXl5fHXJf4xkif\nz5f4yya83jFe75iFCwMfffTJ6dNndu3aq2YhvPPOe++8897atf9vgkGE5NL171tu0Ii+0sed\nQEQyQG6z5YCYsxbi9YFzJSV3Wm9tOHz4pIg88MAs83pfWHjrAw/MMowThw+fjA4Bzc2nRWTh\nQr+5E7f7poUL/aHQ3pj94VzOhoZ/1TS5GhfMosK/Xv0EYH3pMFKo4QMR6ew8H13/V5dY9WCD\nfh65yzVEpYfi4pnt7R27d++vr39NRLZtezvxxMPER9je3mF26+cRiog5PGFtinkDBXdVAOgt\nVR4w1de/IyKFhbdaG9XL+vp3FiywfwFVXV2DiDz++AvRe47ZH87lbGiwxQVJGB2c5AZzIuGn\nn9ovyZHIWbUQfVdCNPPibbVp0y/U85c2bPg3640PbnfBggXzVWjo8W6FyZOvPMr6ww8j0aHh\n7NmPbd364ZrhCbM1ahTjr40AgByQs6Eh6W6/faJa2L7dfvE2jMNqwXp3ovm5PxI5ax1WOHiw\nOXrnRUWFKjQcP/6B7eFLnZ1XbtYIBHqYbllUdOVbM7Zte3vixPHW8NHdfXHbtrdt3fqvV1UE\nRi4ApFL07ZfoP265dMrtLqiqWiwi4fDOLVu2qmt5d/fFxsZ9qhJQWfmw9e5En+/KHN36+pCq\nLnR3X2xo2BXzGVDTp/vMhy81NR0xn78UiZx99dXfqGXrxd4saXR2njc7u1xD1OCIYRzauPFF\ns/4RiZzduPFF9b7V1X+fjGc/t4gUihTGDAG6/n3rHROa9lP1Q2IA0DcVFfeKSEvLGWujeqlW\nOemPpMijSsO/6Pq/9u/mafXU5NrazaHQm+b9jYp6oqK1xee749q7KK9Ys2ZFdG5wuYZ873vl\nIqIe9hz91sHgN63PbPb7p14NAavF8jBpNalCPfs5+l2qq//eyQDKtVf3lsTtZmO8IQmyAoB+\nmjJlnIi8/vreBx6YpaYyqLsnzFU99u/uvtTcfKqm5o2KinuZ09AfuRkazDkKaiHmdEhbH4eK\ni2fefvvEgwebzatyRcWiKVPu9HrHRHcuL1/o892+e/d+9Q1Pfv/UmTOnxnyIgoi43QXLlj3S\n3NwSiXykShciEgx+c+xYz4QJY233TaiAor520pYD/P6p69f/2OG3XAJA5vN63VVV99fWvmUY\nJ6ztVVX3x7wVIl5/v39CScmdA3usue66y5cvp/sYUqdXt0sAAFJM02olznSEtrb2PXtaQqG9\nIhIMzpo9u9CaGKI3tPYPBKYUFY2ZPt3Ll1T1U36FBgAA0GdMhAQAAI4QGgAAgCOEBgDou82a\nZv4L5DxCAwD0LF4sWMzEauST3LzlEkmkaU/q+o/TfRRAipjhYLGuq2VzYbOmmcvWPuSGAaVp\nm3R9iaZtUi91fYlqtL40e5rLZnvMzRP0t+1cbZ683ybrERoA4BoqBJhpwMwK6qUZERiSSBnr\nlVtd0W2ZwNYnehPn/aPfC1aEhtyhSgKa9qR6aS0PmI29bafGgHwWLxYQF1LM9lk/5kf/BPWA\n3va39iE32BAacop1KMFcto0v9KrdmiqAfBNz3MFagUj5EaEHvb3Gkwl6i9CQU5JeGLCWLoC8\nYp2+ED1gkc4jQxy9HVlgJKIPCA15Id6Fn0AA2FirCzGXbeUH20QHpEtvZywyw7FvCA15IV4F\ngikLAHJPsgYpKD9EIzQAALKe7b7KHq/38fr3dj/5htCQd+I9dyFmO+MXANIr8a0T1pcxl3vb\nP3oTWBEacp9tMqOZDJy0MxESQF5hrkNifDX2wNI0TWeGFABkj3hPioRQaQAAwIqgkABfWAUA\nABxJQ2g4396e+jd1Trv2sS0JXmpXRXeIbo+3QwAAskWqhyf2vfHGjvr6f8r+YX7rZAXbxIUE\n8xiY4gAAyF6prjTsqK9P8Tv2lq7rZjFAXeNtLyXq2m/to17G3DOJAQCQ1ZjTkCIkBgBAtkvp\n8MT/uvpxXC2YgxQnm5qO7t59MBye6Pf7y8rG+XzWrT5ua/vg8GFVopjo9985d+6dxcW2/Rwz\njF/V1Ez0+6eWlk7y+0XkT42N22prRaSsqsrs3yvmZV4VEvpzyWceAwAgB6T/lstdW7bsCYXU\n8nHDOG4Ys4PBueXlqkWlAbOz6iAi1hxg9lFrv7tmzdE9e8x9qujQt9yQFPEGNQAAyC4pDQ3/\npOvRNYY9odDsYHDmwoVfdrn+3N29b+vWPaHQ7bNnj/J6RUSlge/86EeewkIROd/e/h8rVmyr\nrbWGgDOtrf+wYcOXXa6TTU2vrlv389WrZweD1hZb/xQjKAAAckOa5zScbGoSEZUYROTLLtfM\nhQtF5IPDh1WHf9L1f9L14bfc8nFb2zHDONTQEL2T6fffrzY3xzXMHdpGOhyKHo+wtdhmPjos\nIdi2AgAgu6R5eEINIvzs8cdt7Tvq62cuWKCWreMXMd04fLitRSWGAWVNAM5rCf2fHgEAQLqk\nf05DYocaGvaEQtMCgdvnzBkydOiNI0e+UF2dgveNvq47aYludLgVAACZL82hYVogcDAcVvMP\nYnYI19WJyPwlV54E/ufu7pQdGwAAsErPnAbz2n/7nDkism/r1gudnarlZFPT/9K0fW+8Ye3f\nEYmorfZt3ZraIwUAAFekutIw0e8/bhg/e/zxaYHA/CVLxvl8s4PBPaGQddbCRL+/qKRELZdV\nVW2rrX1x1SrbfjoikQKPJ3XHDQBA3kt1pWHugw9OCwRE5LOOjist5eVlVVWqUUQClZXf0DRz\nbuOdxcWBykq1PDsYfGTt2u+uWSMip5qbU3zkAIBe0bSnM2o/6L/rLl++nO5jAADkIE17Wtef\nSPdRIJn47gkAAPpC017WtJfTfRQpRWgAAAwgTXta/VhbbB2iOyfojzTK9Oc0YADPGBcAACAA\nSURBVEBp2npdX9H/PgAQk3WEosfRClsHRjcyEJUGAMBA6c9Vn8SQgag0QDRtvYiY5QT10toi\nV+sNtp4AkES6/oQaiehDXGhqOrt79wfhcKvff1tZ2Z0+32jV3tDQWlf37po13/R6R6qWSOT8\nqlVvVFbeXVo6WUS6uz8/cOD0rl1thnE6EJhcVnanx3OTkz3nJ0JDvjNHH8xYYE0P0bkhuh0A\nkkXFhd5Ghy1bDoZCTWrZME4bxulg0FdePk1ESksnnzjR8corB5ctK3a5BnV3f15fv9/vv00l\nBhHZuLHRME6r5XC4NRxutSaMBHvOT4SGfBd9+TcrDT32BICBYEYHJ7mhqelsKNQUDPoWLixS\nsWDr1uZQqGn27HHq2v+3f+tbseJXDQ2tCxYUNTS0Gsbp9ev/Vm1rGKdUDlDbNja21dY2bt/e\nsmTJ3U72nIcIDbAjHABIFieTH513jqmp6ayIqOu6iLhcgxYuLAqFmg4fPqMu7W73jdXV82pq\ndohIff2B6up5bveNatsDB06LyP333662LS72Fhd7ne85DxEaEFe84QkAcMicpiCW4QZbY8xl\ncTw8oYYPHn/8VVt7ff2BBQuK1LLfPyYY9NXXHwgGfX7/GLNPONwqIsOHD+nznvMNoQHXMGc7\nSlTJgYmQAHpFXfVjXvutjfGWEzciLQgNec16+TeXo7NCzGUAyASBwORwuHXDhm+pQYSYDOOU\nmp0QCjVNnnyzWWxQ23Z2XoxZbHCy53zDcxoAIC+s0LQVmpbuo0i+OXPGi8jWrc2dnRdVS1PT\nWU17+Y03rnyvYXv7hZqaHRUV08vLp1VUTK+p2dHefkGtKiq6RUTeeutod/fnItLY2KZpL2/a\n9K7DPechKg1whBoDgMzk841WJQTz3kgR8ftvKymZoJZ/9asm8x7L0tLJzc0f/epXTer+iOJi\n765dbbZt588vdLjnPERoAABkt/LyaWPHDm9u/khNbKysvHvmzDFqxKGh4cqjF8w7IB58cNrq\n1W9OmFCgYsSyZcV//OMHdXXvikgw6CspmWB9uFOCPecnvhrb7n9o2v/U9ehlAMhqamxiPec0\n9ANzGq5BYgCQLidaWlZo2htbtpgtH0UiKzTtVFub2fLLTZusLfsaG1+oqVmhaS/U1OxrbLTu\nTc1g6Ghvf6GmxrpP077GxhWadtgwBua3QW7K69DwPzRN/ZgvY/6buCcAJMWtY8aIyFuhkNly\n8sQJEWk7dsxseSccFpExXq+IvLFly4u1teqqf9gwXqytjQ4HjQ0Nhw3j1rFjbe37GhtfrK29\nPxic4vcPyC+DHJW/cxqiiwr/U9fNRutyzPIDdQgAyTXE5bo/GHwrFPooErnF4xGRfbt2icgv\n6urmlpaKyEeRiIh8p7JSRI40Nb0VCt0fDBaXlha43R3t7Y0NDW+FQoU+3x0+n7nPW8eOjR6P\nMBPDgvLyVP1yyBF5XWlwzlZpEBESA4Ck882YIVfDwUeRyGHDeKSqSkTUeMSnHR0i4p00SUQO\n7N4tIioxiEiB211cWmq2m6wBQlGJ4d5AgMSAPiA0OKLqEOon3ccCIGepEYq21la5OjYxs7hY\nro5QnDpxQq6OTahxCpUYFLWs2k3Dhg+3vcWLtbWq22ednQP3iyBXERp6h3kMAAaOOUIhIvt2\n7VIjEd+prPxFXZ2IhOrrgxUV/XyLf1y5Us1jeHfnzn7uCnkof+c0qFkL5nJSegJAP/lmzHgr\nFDpsGIcNY8GDD4rIbePGiYi6OWLiHXeobvcGAu+Ewx3t7WaxQQ1q3BsIJN7/HT7f4MGDDxtG\nqL5++pw51loF0KP8DQ0SKwFYW+Itx9wQAJJCjVC8UFMjIjffcovZooYV1LKITJ8z551wuLGh\nwZwIqSoHvunTe3yLCYWFqp5xYPfu0gULBuxXQQ5ieCLHadrydB8CgF5QIxQicn8wOMTlUi2q\nfmC2iMgdPp+68D+9YsUKTXt6xQp1M4XDWyjVrMlQfX1He/tA/SbIRYQGAMgs6h6KQsuND6p+\noNpNC8rLH6mqUilhit//SFWV8xsiCtzupdXVEnW3BZAYj5HOIJq2XNefUbUBXX/G2q4WEjfG\n3Fw1DvyxAwByX17PachA5jU+eqHHxngdAABICoYnMks/r/QEBQDAwKHSkAWYzAgAyASEhixA\n/QAAkAkYnsgsiYsKPZYcqEkAAAYOlYbMEn37g9nSY2PMzQEASBZuucwg/bzlgTsmACD1NG27\niOj6fLWgltN3OAOLSgMAAH2kadtVRDAXchuVBgAAHLHVEsyXJlVvMNODWYRIydGlAhMhAQDo\nmUoD6seaBlSLRIUDs390tshehAYAAAYQlQYAAJB3CA0AAMARQgMAAAMol+Y0cMslAAA96+2T\nGGzzJXMDt1wCAABHGJ4AAACO5E5oeEbTkt4TAACYcic0AEC2+HdN+3c+vSALZWJoeEbT1I+t\nJXo5Zou1Z3Qf678A0FuRpqZwTU26jwJIjwy9e2K5rovIM5qmFqJbYi7E25uts3W3AOBcuKbm\npGH0fz//yCkI2SkTKw0Dh6wAoD+SkhiA7JWhlYYBQo0BgNWnkcgJw9hVXy8iE/z+CX7/bUVF\nIz0ea5/2trbWPXv2hkIicoPIDdd+2FJTE7QNGxpffvlwODy3omJXff2UQOBrS5ZEv93vN206\nHA5rGzbojz8uUfWGD5uaTjU1qTf6emVl4T33DHa5kv0bA/2SoaFBjTVEX+DV4IJ1ldkS3SfB\nVqQHAO1tbb9Yvdp8ecIwThiGiHxnzRq316sajzY2/ra21uzzF5G/iAyO2lVTQ8PhcFhEhhYU\n3FdV9dva2inz55s7Md/ucDh8X1VVzCiwe8sWFReUt+vqThjGgurq/v2KQJJl4sOduKIDiNbV\n3v7R0aNnmpv/FA6LyFeCwVGTJ48uKrJdgzdf/cywOOo0Ylv1Rk3NCcP41o9+NHjQoI+PHTtp\nGCcM488i7jFjZpSVjZo06brBg+tXrZoVDN5RUhJatUpE/utqbhgi8iWRxbquKg2zgsEZCxd+\nfuHCR0ePnnzvvUM7dtwgMi0QuLWoaMz06eoIzTLDYJdLbXWjyGJdv9jZefi3v9392mvXi4y/\n666i+fNH3XFH0/bte0Ohku9+d8iQIbvq6kTkzmv3BqRFhlYaAMDqeGPj7y2f+EXkvVBIRMb5\n/fdq2pDhw/uwT1VX+NP27cf/8AfVcr3IjSLdp06p6/TY2bNFZMbCheZ1+ksig0T+IvLFtYMU\nd5SUnG1uNu+qGCTyucj74bDKN99cuXLY6NFq8MJ2ye9oa3t99erPr2519v33z77//ji/f96y\nZXtDoT/+/OdmVeNP4fCfwmG1ityAdMnE0ECZAYDVScNQieErweDkkpLhHo+IRJqa3ly37qRh\nvKPrfbuOLqiufqOm5vAf/nC9yF2lpRNmzSoYO3aY293V3n6koeG9UOjInj0iouYf2HwustRy\npvosElGJ4c5AwFdW9qVBg15cscL3N3/TderUScN4c926SYGAiBTOmWPbz+urV8+trPxdXZ2I\n/N2GDYe3bn0vFDppGDs2brxR5GtVVaq0YB7SScM4deDAxOLi3v6yQFLk190TALLOxc5O83rs\nLy8ffnWWosfn++bKlSJy0jDONjf3Yc8T/P5xhYXXi3whcqih4dfPPvviihVv1NR8adCgKQsX\n9mpX6gjH+f0zH3pouMczzO2eW1Gx79e/nvGd74zz+y+LHAqH55SXD3O7bRveXVFxR2mpWh7s\nck0uKVHLJw1jbmXlxOJiFYaGut3mqjN9+mWBpCA0AMhoH7e2qoXJ8+bZVt08caJa+PDAgb7t\n/JOWli+LDBEp+/7351ZUTPD7TxjGnldfHexymVMi/lHXzZ8bRdRPzAct+MrKzILHuClTROTM\n0aO+srIvRETkppEjozcZ5/dbXw633LgxZtq0mKvUkAeQFoSGVLvuuuvSfQhANjFDw0233GJb\npS7ti3W9ONb9jU7MrawUkS+JHN+xw+3xfO173xORw1evynMrKkTkTEuLw72NHDvWXHZ7vVMC\ngbfr6v5L5JLIDSJdH30UvYmKAuqN2tvazPbLIv+5YsUbqX30JGcn9IjQACCjvXf1RsS+zXZM\n4PebNv2uru72QEBEThpGuKbm5RUrRGRsUVFHW9ul7m5VLdj3+utmbrgs8oXIBZH9b7wRvUPb\nEU6ZP19EQuvWicgNll8kmnqj3a+88ll7u3oXNTXy9rlzk/B7AsmTiRMhASAFvlJWdjgcPhBV\n7W9vbn599WoRubui4quPPPKHF188ce2DIK8XufPqDIME3F6vGu+4oafPZ26vd1YwuDcUsr7R\nrGDwdiY8IsMQGgDkqZEeT8Xataebm9+uq1MtsxctuvGmmyKHDqnHRb9bXy8iC/77fz977Jj5\nRMgviVwv4nJW9vhKWZkKDT2aU14+xudr3b37cDh8vcj1InPKy/v4iwEDhtAAIKN9JRhUhf2L\nnZ3RIxTqeU3j/P5Anx6eONLjGenx+K7ev6D47r+/q739xO7dKjRE3nuveMkSdQnfHPXFeP+o\n68aWLfGOcKzP973167esWKF+EbP9xlgHM9bnG+vzHWeeIzIYcxpSLQMfwQlkMnN2Yfenn9pW\ndUYiasF2D0JMXe3t0Y2NmzZt1rTNmnapu9vaPtTtnrJggVru8W6FUZMnq4VPP/wweu35s2dt\n3TIWZyf0iNAAIKPdcvvtauFP27fbVpnfOWm9O9H8QG9GCuXUwYPRO7+1qEgtfHL8uG3Vxc5O\ntXBnIJD4CEdf3UnTtm228HGpu7tp2zZbNyB7ERoAZLShbvfXqqpE5E/hsLFli7qWX+ruPt7Y\nqIYP5lZWDrU8NMnj86mFd+vrVXXhUnf3kYaGmN9qPWb6dFWleHPdukhTk3nJ74xE9r/6qlq+\n1XKxN0saFzs7zc6DXS41OKKe5GiGlc5IZMfGjep9A9XVPPsZOYA5Dal23XWZ+CVhQCZTT03+\nfW3te6GQ7cZF6xMVFY/Pp6ZBnDQMa1B4YM2a6Nww2OW653vfExH1sOfot/5KMGh9ZvM4v1/t\n5OXqarF8J5aaVBGuqbG9qRKornYygJJ2nJ3QI0IDgCwwsbj4lttvP3XwoHlVvrui4rYpUwqu\n/fppxV9e7vH5Tuzerb7haZzfP37mzHiPeRjqds9btuxsc3NnJKJKFyLylWBw5NixN0+YYH1E\no4iogKK+zsqWA8b5/eXr11u/h5PvpUTuIVemGlkeQGbi7IQeMacBAAA4QmgAAACOUIwCAACO\nUGkAAACOEBoAAIAjhIZU4xvrAWQmzk7oEaEBAAA4MiATIYmrgFWeTzfmhAAklkWnCO6eSDUe\nnwIgM3F2Qo8YngAAAI6QKwEAgCNUGgAAgCOEBgAA4AihIdWYSQ4gM3F2Qo8IDQAAwBFCAwAA\ncITQAAAAHCE0AAAAR3hOAwAAcIRKAwAAcITQAAAAHCE0pBp3QgPITJyd0CNCAwAAcITQAAAA\nHCE0AAAARwgNAADAEZ7TAAAAHKHSAAAAHCE0AAAARwgNqcad0AAyE2cn9IjQAAAAHCE0AAAA\nRwgNAADAEUIDAABwJMZzGt4NBHq1i7vD4eQdT2zqkJL7Rl90dRkPPJCgQwp+r5wXCLzbq/7h\n8N0DdCQmdUgD8UYtLRfefff8c8+dFJGSkhEzZtw0bdrQKVOGJf2NMhAnDYWTRnLl1QlERPbu\n7TSM85s3R0SkpGTEfffdPHPmTQUFgwbivfrshnQfQNp8/skn6T4E5I4XXvhQ/akrO3ee27nz\nnIgsXuxZunRs+o4LycRJAwOko+PzurpTr732sdlinkOef95XWHhj+g7NzukTIQcitqdX5969\nR5Yvv+OZZ4bPmpXuY8kvAxrV00IlhkWLRi1adIv55/3BBxfffLN98+bI8uXeBx64Jb1HmBac\nNDAQcu8EIiJPPHF0585zy5d758wZceutg0Wko+PzHTs+feaZNhHZsmV65tQb8rfS0H30qIgM\nGZvqT4HXXceju3NKS8uFzZsjJSUjfvCDCdb28eOHqBrDM8+0BQI3Dx16fZoOEEmTrpNGynB2\nSovf/e4TlRisny4KCgapl88807Zv3/lvfOPm9B3gNfJ3IuT5/ftHlJQMvvXWdB8Istu7754X\nkaVLx8Rc+81vukXkxInulB4TBgYnDSRdV9cXTz55TEQCgRixQDX+9rcZNC6W5ErDhZaWrqam\ntmeeUS+9y5cP9fluLCy0dTPrlp93dHy6Y8e5d945t3PniJKSEffeO2LOnOi/yXh1TuvbjSgp\nufm++26aOXNQQUGPx/lFV9e5nTu9y5f36bdEKrS0XGhq6lLVORFZvtzr8w2NHtsza5WqmvfO\nO+d27jx39X+lK4W+mP0TvF2vpiCpmY8ez5djrh0/foiItLZ258mMyD7gpIGBkC0nEPWJ4sc/\nnhSzGDl06PWZNhCTzNDw0euvm3/5ino56cc/vvkb34juf6GlpenRR82X53buPLdzZ4L+Nmde\neunkc89Fb+57/vnoM46NmtD05TFjPjt8uOvgQbWfBCcgpNjrr39k/rUr6uWPfzwpZpmupeXC\no482mS/NOUTx+tu89NIZde23be58ClLi0YezZy852Uke4qSBgZBFJ5DW1m4RueOODJrqmFjS\nQoP64x9RUjL6298eWlR0/dChX3R1dTU3n/3lL489+aSIRP9JNz36qGfxYvc3vzlk/HjV0rl3\nr+r/pSFDRpaUJHg79cc/oqRkzNKl6q/9i66uc42Nx558sunRR/2vv3790KEJNr/00UcicuTa\nDw29PQFhgKg/+JKSEd/+9uiioqFDh17f1fVFc3PXL395VtXxov+MH320afFizze/6Vaf7EVk\n795O1X/IkC+VlIxM8HbqD76kZMTSpWPUX3hX1xeNjeeefPLYo482vf66v//TETZvjnAPRTRO\nGhgI2XUCuXDhv0Tk5psHybW3XC5e7Jk7d0QGViiTExounTmjPh9MWLHCLPRdP3To8FmzXJMm\nHSgvP/bkk8OmTrWF8RElJWOXLrW2mP1bnngiwd/wpTNn1B+/7e1u/sY3vrhwoe2ZZ841Nib+\nA1YTmkTkjmeeUWcr9fLiBx+ce+edeCespGCeUWJnzlxSnwlWrJhgFveGDr1+1qzhkya5yssP\nPPnksalTh9nKhiUlI2xXZbP/E0+0JPi7PXPmkvqDt73dN75x84ULXzzzTFtj47nEHzUee2zc\nc8+d/OCDi+bpxqql5YLjXz2/cNLIQDlwdsq6E4gqUVy69F/19RHrbdubN0c2b45k4D3byZkI\n+dmhQyJS+PTT0UODgwoKCp9+2uxj5Xnkkehdmf3P79+f+O1Gf/vb0W93cyCQeFtFdfA9//zw\nWbOsZ5kh48ff+vDDnsWLjz355KUzZxLvBAPh0KHPROTppwujhwMLCgY9/XSh2cfqkUc80bsy\n++/ffz7x233726Oj305NQUqwrTJt2lARefPN9phrX3vto8Sb5y1OGhgIWXcCUV555WxLS/fz\nz/tef90fDt8dDt+9adPUxx4bt3lz5IUXPnSyh5RJTqWh+/hxEYk3KKjaz+/fb4vhX77ttpj9\nh/p8ItL1/vvxio3q7VyTJkWvun7oUCf3hd/+9NMJ1haUlkY2bz63e/ctCZ/+hoFw/Hi3iMQb\nCFTt+/fbb0C67bbY8xB9vqEi8v77XfEKjOrtJk1yRa9yOAVpypRhixd71EcEa3mzpeUCiSEB\nThoYCFl3AlFaWrr/+Z+vmQs5fvwQdTJ57rmTGTVOkZxKQ2TzZhGJNxVItX/82mu29ngzllW7\n2meCt3My4blv1Anr3DvvDMTO+cb6xNTVN3rSsqLarc9NU+LNUlbt1qJfzLfr54NTli4dq3LD\nkiWHAoF31Y+aV1VZGftWTHDSyEA5cHbKxhOIiCxdOibmCMi9944QkYMHu/q5/yTK34c79UjN\nbwKcWLp07Ny5I3btOmdOYvL7b5o1a3hX1xfqZboPEKnASQN9E680YhYbHn44U27PITQAyTFl\nyrApU4bZZi198snnIjJ6dOzPPQDynJpJne6j6IXkDE94Fi8WkXiTgFS76mP1RVfskovqP+6x\nxxK/3ecdHTHXvhsIHH3iicQHrCrI8daqPUcfMFJAfSg/cyb2gw1Ue/QHd/WBPl7/xx4bl/jt\nOjo+j7k2EHj3iSeO9nzQ8R05ckFEJk+OMeSZ5zhpYCBk3Qlk1KhBCfaglJSMSLyTVEpOaHBN\nnCgiF1paYq5V7aqP1Z8jsQeKVP+h06YlfrvuY8fibTvi3nsTH7B6rFu8A/7z6dMiMvSuuxLv\nBANh4kSXxL9TUbWrPlaRyJ8T9Fc3OCR4u2PHYjzmWW2rxhQTeOKJo4HAu/FOOur5rxMmEBrs\nOGlgIGTdCWTChCHx9iAiH3xw0clOUik5oWHY1Kki0vLEE9FB/vOOjpYnnjD7WHU0NETvSvUf\nUVLimjAheq317c7+8pfRq9Q+1VTqBFSHj6KmWSntv/mNiNw0Y0binfRNDtwJPaCmTh0mIk88\n0RIdvTs6Pn/iiRazj1VDQ4xPkKp/ScmIBNdstatf/vJs9Cq1TzV9OoH77ot7Y9Xhw5/t3Hku\n3gNi8xwnjQyUA2enrDuBFBbeuGjRqOXLj8QsNqh7uXvcSSolJzQMvvVWFcNPrF/fuXevKiF+\n0dXVuXfvifXrRcS7fHn0NOnI5s1nXnrp4gcfqJeq/4HychEZs3RpgqezDb711nGPPXZu584T\nzz5rBv/POzo+fOGFyObNnsWLe3wi7I2FhZ7Fiz9+7bUzL71kLZBe/OCDD1944ePXXiv66U8T\nPx4OA+TWWwcvX+4VkfXrT+zd26k+wXd1fbF3b+f69SdEZPlyb/TU6M2bIy+9dEalcrN/efkB\niT8t2Xy7xx4bt3PnuWefPWF+Ouno+Fx92/XixZ4enwI7c+ZNIvLEEy07d35q1hvOnLn0u999\n8v3vN5eUjCguzqBPCZmDkwYGQtadQETkO9+5VR2wtUDywQcX1U4ee2ycw4fZp0bSJkKqu5Pb\nnnkmev6wd/nymPcuT9206cwvfnFyyRJbu5PnwN/68MN/+eyzyObNtpuyPIsX2x4YF4/qdvK5\n56zPolcKn3562JQpTnaCgWB+Iax6fruV7dtjTZs2Tf3FL84sWWKfT+Tk2e8PP3zrZ5/9ZfPm\niO1GLIfPYisoGPT8875HH21SH2KsFi0aVVmZ6IyT5zhpYCBk1wlERMaPH6LOIdEHvHixJ3Pu\nm1CSeffELQ88MNTns36D3Ih7771pxgzzKfE2Q8aPn/CDH9w0Y8Ynv/3tuZ07Ry1aNKK4+KYZ\nMxym9bFLlxaUlp5/9131Bzxq0aKC0tLhs2Y5P+CxS5eOmDvX+t0zN993X/STa5OLb6x34oEH\nbvH5hlq/Ne7ee0fMmHFTzEc1i8j48UN+8IMJM2bc9NvffrJz57lFi0YVF4+YMeMmhxfspUvH\nlpYWvPvueTWNedGiUaWlBbNmDXd4tIWFN27ZMn3fvvPq3SWDnxufaThpZJScOTtl1wlERAoL\nb3z9dX9j47n9+8+r8LF4sae0tCCjagxKev4XifettfkgZ/4sM0S8b6pFjsnnk0bK5OHZiRNI\nbyVnTgMAAMh5hAYAAOAIoQEAADhCaEi1fBsyBJAtODuhR4QGAADgSN7NlQUAAH1DpSHVcuAb\n6wHkJM5O6BGhAQAAOEJoAAAAjjCnAQAAOEKlAQAAOEJoAAAAjhAaAACAI4QGAADgCKEBAAA4\nQmgAAACOEBoAAIAjhAYAAOAIoQEAADhCaAAAAI4QGgAAgCOEBgAA4AihAQAAOEJoAAAAjhAa\nAACAI4QGAADgCKEBAAA4QmgAAACOEBoAAIAjhAYAAOAIoQEAADhCaAAAAI4QGgAAgCOEBgAA\n4AihAQAAOEJoAAAAjhAaAACAI4QGAADgCKEBAAA4QmgAAACOEBoAAIAjhAYAAOAIoQEAADhC\naAAAAI4QGgAAgCOEBgAA4AihAQAAOEJoAAAAjhAaAACAI4QGAADgCKEBAAA4QmgAAACOEBoA\nAIAjhAYAAOAIoQEAADhCaAAAAI4QGgAAgCOEBgAA4AihAQAAOEJoAAAAjhAaAACAI4QGAADg\nCKEBAAA4QmgAAACOEBoAAIAjhAYAAOAIoQEAADhyQ7oPAJlI02rUgq5Xx2wxX1r7AAByG6EB\ndppWY80Kul4d3SLX5glyAwDkA0IDEjHzgbW0AADIT4QG9MxWaUjvwQAA0oWJkEjEFhFIDACQ\nz9JfaajXtApdT/dR4K+sgxG24QnGKQAgn113+fLl9B4BoQEAgKzA8AQAAHDE6fBEvaaZy6ow\nEF0hMFuiO8fbCQAAyBqXHfh5ZWXMl9b2mI19aAcAAJmpX8MTFbquigcJ5iVQUegtzVKPAQAg\nc/RleMJK5QaHySDeTmClE7MAABnJaWhISsGAqgMAANmrv3dPqDJDbpcQtKusLdF9rP/a+ifY\nlW2rmDsHACAjOJn4kM8TISsth9fjcmVlZbw+iTdPsBUAABnCUWi4fPnyzysrzR+zJbpPvM4J\n2jM5NERfv6Ov7omv99Y84XAVoQEAkJn6PqchQUuv7qRgogMAAFkh/d89keESzDDQdV3TNOc3\nOzBZAQCQ1QgNPUiQCVRicJ4buJcSAJDV+O6J3klitYDCAwAguxAaElGFBPOltahgLkf3idk/\nwa4AAMgKDE/0wHqxj04M1j7RGcIWCxKsAgAg8113+fLldB9D7qB+AADIYQxPAAAARwgNAADA\nEYYnAACAI1QaAACAI4QGAADgCKEBAAA4QmgAAACOEBoAAIAjhAYAAOAIoQEAADhCaAAAAI4Q\nGgAAgCOEBgAA4AihAQAAOEJoAAAAjhAaAACAI4QGAADgCKEBAAA4QmgAAACOEBoAAIAjhAYA\nAOAIoQEAADhCaAAAAI4QGgAAgCOEBgAA4AihAQAAOEJoAAAAjhAaAACAl3dSwAAAHzhJREFU\nI4QGAADgCKEBAAA4QmjAQGlqOlVTsy3dRwEASJob0n0AyE01NdsMoy3dRwEASCYqDRgQJAYA\nyD2EBgAA4AihAQAAOHLd5cuX030MSLL29s+OHj3T3Hw6HH5fRIJB/+TJo4uKPC7XYGs3TXte\nLej6o7Y9xFvV1tZ+7NhHhtGmRh8CgbsmTBg1adItXq87elsr235sRxgI3FVUdNv06eNtR2g7\nks7O7n37Tqh39/u9c+cWmptEIueam0/X1f0h8d4AAP3BRMhc09jYUlsbtraEQoaI+P1eTfva\n8OGuPu95y5Y9alcmdckXkYqK4gULvuJwP4bRZrurIhx+X+1q5cq/8fnGxNyqra199epXrDtR\n0aG6usz2K6u9+f3eZcvmkxsAIIkIDTnFMNrU5TMY9JeU3OHxjBCRpqZT69b92jDadP33fb6O\nGkabSgyVlV+dOXOCCh/t7Z81NLwfChn19Y0TJrjV9V4VFeLVKszEEAjcVVb2FXWEkci5+vpG\nw2hbt+7X8XLD6tWvVFZ+9Z57Jrtcg7u7L23deiAUMtTeDKOtqiqgSgvmIRlG24EDHxQXF/bh\nlwUAxMSchtzR2dltXo/Ly2er67GI+HxjVq78GxExjLbm5kjfdt7QcKWoUFp6l1mucLuHLVw4\nXS3v3t3a4066uy+pI/T7vQ89dI95hB7PiGXL5vv9XhFZt+7X3d2XoretqCguLb1LJR6Xa3BJ\nyR2q3TDaKiu/WlxcqFa53cPMVc3Np/v2ywIAYiI05I7W1o/Uwrx5d9pWTZw4Si0cONDHOyHN\nWyg7O7ut7S7XYF1/VNcfXbLkqz3uxIwsZWXTbAUPl2twWdk0WzcrFSlMZuAQkWnTxsVcZY6e\nAACSguGJ3NHaelYt3HLLTbZV6tLen51XVn5VTTPU9d+Xlt41fvzNbvewPh/h2LEF0WvNxtbW\ns7aIINemBJs+HAkAoA8IDbnDnKXYn9mO8ZSW3tXe/pmaK6CqDn6/1+/3Tpp0yy233ORwnkTi\nIzQbQyGjvHx2kg4cAJA0hAY4VV4+e/bsSXv2HFPXfjM9iEhFRfGcOZP4xA8AuY3QgF7wet1e\nr3vhwukffXT+9OlPd+1qUbmhvr6xvr5x7dqHEgwiAACyHRMhM4umaX3eNhj0qwXbXMWre35e\n055PytdOulyDvV53cXFhdXXZ+vXfragoVu3btr3XnyNsb//M1g0AkFEIDbnDnEj46acXbKsi\nkXNqIXqCYTTz4m21adMfVOyw3Q/pdg8zH+vU490KkyePVgsfftgRvfbs2U5bNwBARiE05I7b\nb79VLWzf3mRbZU4+sN6daH6gNyOFcvDgyeidFxXdphaOH//YtsosGwQCdyU+wqIij1rYtu2g\nLXx0d1/atu2grRsAIKMQGvrFNpqQ4KV2VXSHmKvi7TMBt3tYVVVARMLh97ds2aOu5d3dlxob\nW+rrG0WksvKr1rmK5oMX6+sbVXWhu/tSQ8P7Mb/Vevr08ebDl5qaTpmX/Ejk3KuvvquWzWAh\nlpJGZ2e32dnlGlxdXSYihtG2ceN2M6xEIuc2btyu3re6uoxnPwNAZmIiZCpomqbrevRy9MsE\nGzqhnppcWxsOhQzb90SoJypaW3y+McGg33oXpbJmzYPRucHlGvy975WIiHrYc/RbB4N+6zOb\n/X7v1RDwolgeJq2+LUI9+zn6Xaqry5wMoAAA0oLQ0C+6rpvXdbVgeylRF35rH/Uy3s57mxiU\n4uLC22+/9eDBk+ZVuaKieMqUMdYvojSVl8/2+cbs3t2qvuHJ7/ea3ysRze0etmzZ/ObmiPqq\nCNUYDPrHji2YMGGU7b4JFVDU86BsOcDv965f/12H33IJAMgchIYM1bfEoLjdw0pL77LVFeLx\n+cb4fGNsD4G++qVTNbbOLtdglQCcfKdlgmNwu4e53cOKiwt7fPh0ggdZ9m0VAKDPmNOQHOY1\nXhUS+r+3ZBwUAADJRGjIOCp/JCV89JOuV189pBqz6mBdBgDkFUJDxrFOd0h7bjCpAKFpNbpe\nrevV5AYAyEPMaegv28TG6Bbby/5MVsgExAUAyFuEhlSw1gx6lRiiE0namWMWAIB8c93ly5fT\nfQzIdGpUwlxWC6QHAMg3hAYAAOAIEyEBAIAjhAYAAOBIEkLDz69O8ft5xtwfCAAAki6ZlYbv\n9n6SPzkDAIBswfAErtC01Zq2Ot1HAQDIXL0ODT/XNPUTc1WCbmrZ2mi29PYYAABA6vXu4U4/\n1zRzDMK67LCbuawWvqvrCXaCFNP1Nek+BABARuv78EQfLvbkAwAAstdAPUaaQYdkaWpq3b37\nUDi8R0SCwa/Pnj3V6/XE7OD3F5WVzfX5Jpur1ByF9et/+J//+auCgpvC4T2BwOwlS4LWzTdt\nCoXDezZsWPX442vFUm/o7r544MCRXbveM4zmQGB2Wdm9Hs+ogf5lAQCZbKBCA0WFpDCM5pqa\n/2O+DIXeDoXeXrny/zKTwZYtvw2F3jY7G0ZzMPj18vL7rDtpaNhjGM1VVd8ZPdpdX/+bb33r\nG8OHD1WrOju7wuE9FRX/zeUaYnvrjRu3GEazWg6H94TDe9asecyWVwAAeaXvocHhdARmLfSH\nSgzr1//Q7R4hIi0tHzz11PO7dx9SoaGpqTUUejsY/PrChfNcriHd3Re3bt0RCr1tq0aMHTta\n1Q/a2iJqq+Lir6hVTU2tIuL332l7XzN/qD03Nr5XW/uL7dt326oUAIC80rvQoKYumsv97KaQ\nKhLw+4sMo3n37kMTJngmThxTWDjeOl2xqemYiKjruoi4XEMWLpwXCr19+HCrNTSYZQmv1+P3\nF+3a9Z4ZGnbtei8QmB097nDgwJ9E5P7756o9Fxd/xdwEAJC3+MKqjNbWFlm9+jm1HG/KQkwq\nW6gO1+aM1nXr/mPt2v/b4xkViXy8atX/Zw52WDtHbwgAwEDNaUBSeL0eXV/T1hY5fLi1vv43\nhtHs9xc9+OA3+jy3YOLEMSLS3HzC4xl14sRps6XPNO1ZXf9Bf/YAAMgWhIYs4PV6vF7PnDlT\nz55tX7fuPwyjWdUAAoHZ6saH6GmM8bhcQyorF9XVvTZz5l21tb+orFwUc1u1587OLnPKJAAA\nPEY6o23aFNK01S0tH4iI2z1i9Gi3de2cOVNFZOvWHZ2dXaqlqalV01a/8cbOBPssKpogItXV\n60Rk2rTbRUTTntW0Z0VGmn3C4aMiI996a1d390Wzw6ZNIXNZ055N6i8KAMgCVBoy2rx5/nB4\nz1NPPW9trKxcpBZ8vsnB4NfVfZjmWr+/qKRkRoJ9ejyjVCEhEJitbsoQEV3/gaatVrlBjTjU\n1PyfUOhAKPS2yEiRT0UkHD66ZMmVzsLABADknwwKDRs1TUSW6frGq3deLMv7uyoKC8evWfPY\nnj2HVCwIBr8+efI4v7/I7FBeft/YsaObm4+rpz9VVi6aOfOuHscU5syZGg7vmTfPH6+DrZAQ\nDH69pGTGqlWb+/XLAACyXKaEho2apiKCuQBFTWiwPa/JSt0PGfMJCvFuf/D5Jkev0vU1Zlaw\nlhA07dkE7w4AyB/pueXSVkvYGPXMaVVvMNODWYRI4THmkeisYGtRL63LwiAFAOShyyn375WV\n0cu9WuibVf3bPIk7yTSVlT8ZoM4AgFySTXdPZEKl4d8y4BgAAEiLbAoNSfHPmqZ+rC22Ds47\n54ZejS8wGAEAeStTJkKmxj9rmlkqsC73vzMAADkvmyoN0fMle6vPF34SAwAAaag09PZJDGb/\nFM9p+DddNwcjCA0AAKRneCL68m+2RC/E7J8aDE8AAGDKpuEJAACQRvkVGnq89yHnb5QAAKDP\n8uvuiZjTFGyN8ZZTe6QAAGSc9DxGGgAAZJ38Gp4AAAB9RmgAAACOEBoAAIAjhAYAAOAIoQEA\nADiS5NBQ5/jZBol79mctAAAYCGmrNFQmfPJB4rUAACD1eh0a6jRN/UQ32lps7bY+1vYEa6Pf\n0exv+xcAAAyo3j0Rsk7TzBqAuWxdiNlZtds6x+tpWxv9jpW6HvMwAADAgOpdpaFXYwrWl0kZ\njIjZjcQAAEBq9Pq7J1I8FqDqCuZyKt8aAABY9Wt4YgCOJwZGIgAAyAR9vHsiZYmBSY4AAGSI\n3lUazMEC26jBwF3a4w1PUHUAACDF+GpsAADgCI+RBgAAjhAaAACAI4QGAADgCKEBAAA4QmgA\nAACOEBoAAIAjhAYAAOAIoQEAADhCaAAAAI4QGgAAgCOEBgAA4AihAQD+//buL7apM0/j+C/D\nwARMcEOAhEISGE8XJSBi0mED3tFGhkECKUTTMoWVOmZrKxqR6QVFiUaasbgYRWikCtRy0ZKL\nCCPciwVKRwORtipLs7mo28w0IVQtKUtdCLSrhLakITihMEz24p0enfWxT94Ex46d70dVdfye\n1+e80Ern8fvvANBCaAAAAFoIDQAAQAuhAQAAaCE0AAAALYQGAACghdAAAAC0EBoAAIAWQgMA\nANBCaAAAAFoIDQAAQAuhAQAAaCE0IJP8/rZMNwEAoIvQAAAAtPww0w1A9vH720KhBtVJEAo1\nmMvVgWahuQQAMPMRGjAVKjckPNAvZGwCALILwxOYipR0EuRqT4Pff8Pvv2F/DADZiJ4GpEzC\nngO6EwAgZxAakDIJew5ytTvBRii0ih4FADmJ4Qmk3izvcohG7+/ZU5jpVgBA6tHTgNQw1lOI\nqXdhwsKcdO3adx7Pwky3AgBSL298fDzTbQBylhqnCIVWxR0DQDZieAJ2/P7XUlIHAJADCA0A\nAEALoQET8/tfM3cnqI9xHQzqo7UcAJAzmAhpx+/3h0KhTLciw/z+10KhF40D46P5VMKaGWkt\nAGD6EBowAevjP1lfAkEBAHIboQGTRjgAgNmJ0JCU3+83/m0MUqiP5pK4+nFn1QBH3LdsLpJd\nkg1PAAByEqEhKfWwNz/XzR9tTtnUtEaQrMsNalqDcZzwFNEBAHISoUFX3APeHCnsn/1xp7Ir\nJZgf/8axNSskPAYA5BhCQwrE9TFksCWYacz7P7IXJIBsR2iYBJtAkGzWwuxBHwMA5DxCwyQk\nG1nIxqkJAABMFjtCTt0s7E4AAMxmhAZd5pWTYtu7QJgAAOQkhicmYF4kad1xwTiO26SB3AAA\nyD154+PjmW4DAADIAgxPAAAALYQGAACghdAAAAC0EBoAAIAWQsM/HPT7D7LkAQCA5AgNAABA\nC6EBAABoITQAAAAtubYjpJqXEHz99XfOnPlrR8f2PXv+Zft2dWrg5s2PP/yw8/x5EanduXPd\nT39aUlZmc6nJ1gcAILflWmhQujs7/9rRISIFhYWq5KOurjOtrUaFzvPnO8+ff27fvvU1NQmv\nMNn6AADkvNwMDWOjo8HXX8+fP199HLh580xr6xq3++fPPKN6C25Fo53t7WdaW5ctX27tP/h6\nYOBMa2vtzp1uj2dJSYmIfPvNNx92diarDwDAbJCbcxrcHo+RGEQkeuWKiNTW1RnP+1KXq7au\nzjgV58bVqyLysx07VGIQkSeKin62Y0ey+gAAzAa52dNgPOyVt0+dEpFSl8tcqD6+feqUMenB\n8OcTJ0Tk0G9+Y71ywvoAAMwGudnTAAAAUi43expSoiUUynQTAACYQWZFT8P2PXtE5FY0ai5U\nH9UpnfoAAMxysyI0uCorRaSzvd3IAWr1hHFqwvr3x8Y+7e096Pe/9/bbaWo0AAAzzKwYnigp\nK3tu374zra1Xe3vN5c/t25dw/WSy+mvc7iqPZ3rbCgDATDUrQoOIrK+pWbZ8uf4Oj3H1N3q9\nq9as+af1680rOQEAmFXyxsfHM90GAACQBWbFnAYAAPD4CA0AAEALoQEAAGghNAAAAC2EBgAA\noCXDoeFVv1/9Wx3EHZtLzIXWbyWraa4WVw4AACYl8/s0vOr3vxQKyfcPdeM47iDZsX3NuIsD\nAIApy/zwxEum90K9ZHlHlLVksjV1zgIAgAllvqdhQvqdBHQnAAAwfWZ6aIgbdEhJTQAAMAWZ\nH57Q9Jj9DcQIAAAe00zpaWhN8lB/KRQyJki+6vebq8V9Ja6mTSEAAJiCDIcG8/zE/InKXwqF\nWk0rLKw1jWP7yZUAAGAKsmB4Yl8otG+qD356FwAASJV09zTc6O3t6+zs7+2t9HpdGzeuqKhI\nWO2zrq7/am197g9/KCorU70LU8sNcUMVU242AABIa2hQUUAdX+nouNLRsfO3v7XmBlXt5/v2\nFZWVPf5NyQoAAKREWocnVGL496NH94VC//bHP4rIR++8E1dHJYbt+/f/pKYmnW1Dpvj9b2S6\nCQAALWntaSh3u/t7e29curRs9eqisjLriIN5VCKdDQMAABNKa2j452eeEZHOEydEpNLr3fiL\nX8xftMhcQXVF3I/F0tkqAACgI63DE0VlZTv273/+8OFKr/dKR8d/h0LfDgyYK2zfv7/c7T7/\n8stjd++ms2FICTXQ4Pe/YYw4mI/NJcmGJMzl9jUBAOmXgX0aCoqK/nXvXtfGjedffrm/t9c8\nSLHK7Z5fUNDf2/s/kUjV9u3pbxsek9//Rij0K/n+8W8cxx3EHVtL7GsCADIirT0N/3n0aKvf\nr3oXFi1bJiLlbndcnWKXq3rnzvdPnRqMRtPZtrTJy8vLdBOmkfnpbn3S2zz7SQYAMPOltafh\nqU2b+nt7/+N3vzNKKmprrdUqamt7zp/vaW/f+utfz5s/P40NxLRLONygXwgAyKC0hga1ivLa\nBx/09/aWu90VtbWrLD0NIlJQVLR9//63jx6N/uUvCVMFslTcoINRbh28ENtuCQBARqR7TsNP\namoSbsAQt/xyldttlJhPJTtGdplULwIjFwAwQ8yUt1xiNgiFfmVMkLTmBlWo8oG5AokBAGaI\nvPHx8Uy3AQAAZIEseMslAACYCQgNAABAC6Eh3XJ7nwYAQA4jNAAAAC2EBgAAoIXQAAAAtBAa\nAACAFvZpAAAAWuhpAAAAWggNAABAC6Eh3dinAQCQpQgNAABAy7RMhOTHNGDGdGMAuYHVE+mW\nl8ffOQAgKzE8AQAAtPCrFwAAaKGnAQAAaCE0AAAALYSGdGNpCQAgSxEaAACAFkIDAADQQmgA\nAABaCA0AAEAL+zQAAAAt9DQAAAAthAYAAKCF0JBu7NMAAMhShAYAAKCF0AAAALQQGgAAgBZC\nAwAA0MI+DQAAQAs9DQAAQAuhAQAAaCE0pBv7NAAAshShAQAAaCE0AAAALYQGAACghdAAAAC0\nJNinodvrndQlnu7oSF17ElNNmqYb3e3pGentHQiHRcTp8SzeurVgw4a5hYXTca/ZxuvtnlT9\njo6np6klBtWk6bhRNDra3T1y7NgXIuLxOKuqCtatc1RWLkz5jQAgU36Y6QZk0sOhof89ceLr\nc+eMkuFIZDgSEZGKtrYFLlfmmoYsc/z4l+HwgPExEhmORIZFxOcrCQRWZK5dAJBKujtCTutv\n/Uz5LBgcjkTKmpqcGzfOKy4WkYdDQ9++997NI0dEZP1bb9HfMB2m77d+pqjEUF+/pL5+qcu1\nQBXeunX/woVvwuGBpqayurqlmW0hAKTE7O1puPPuuyoxLK2rMwrnFhaqjzePHBm5dGnxli0p\nv29eHlt355RodDQcHvB4nAcOlJvLS0vzVR/DkSM3vd7FDsecDDUQAFJmlk6EfBSLXW9pEZHF\niSZwqMI7Fy+mu1nIQt3dIyISCDyZ8Oy2bUUi0t8/ltY2AcD0SHFPw2g0GuvrU937IlLW1OSo\nqLBODjAGO9RwwPD77w9HIk6Px7l5szFSkLC+ze0mNYdxrL9fRFYfPDjH4bCeneNw5NhATDaK\nRkf7+mJHjtxUH5uayioqHEbnv8EY7Bgaevjee9++//5wJDL8/f9KzuLiecnq29zO43Fu3bp4\nw4aCwsK5E7ZTzXwsKflRwrOlpfki8vnnY8yIBJADUhkavmpvN+KCoj6uPngwYT//aDTa19Bg\nfDQmISarH2fw9Okvjh2zfl1nDuPY55+LyIKnnprwLsiI9vavjLigqI8HD67esmWxtX40OtrQ\n0Gd8NOYhJqsf5/TpQfXsj/t6W1uFNaYkZD/6cPv2A52LAMAMl7LQoBKD0+NZtmuXY82aOQ7H\no1gsdvXq7bNn/zEQYMkBfQ0NJT5f0bZt+aWlquRuT4+q/4P8/Cc8HpvbqcTg9HieDARURHgU\niw13dV1vaelraHC3tyfsQjD8fXRUROYuXiz/f8llic/n3LRpYWXl1P8i8NhUYvB4nLt2LVuz\nxuFwzInFHl29Gjt79nZLy3URseaAhoY+n69k27Yi9cteRHp67qr6+fk/8HiesLmdSgwejzMQ\neFJFhFjsUVfXcEvL9YaGvvZ29+NPRwiHB1hDASAHpGZOw4PBQdWpUN7cvKi6Wj2w5zgci6qr\ny5ubReR6S8uDwcG4bzk9nhWBgJEYRMSoHw0GH8ViNrdTiaG8udnoVJjjcCzesqWsqUlEhru6\n7Busuij+/uDBl8ePX2tqUolBRAbC4asvvvjl8eOT+/NPBrMg7Q0OPlCdCs3N5dXVi9QD2+GY\nU129qLm5XERaWq4PDsb/cPd4nIHACiMxiIhRPxiMxmKPbG6nEkNzc7nRqeBwzNmyZXFTU5mI\ndHUN2ze4sXGliNy6dT/h2Wh0dII/MABkj9SEhnuffCIirkOHrPMJ5hYWug4dMuqYlTz/vPVS\nRv2Ry5ftb7ds1y7r7dQcRpvvmt3+05/GotGKtjZ3e/vTHR1Pd3SsPXlyZWPjQDg8rbkBNj75\n5J6IHDrkss4nKCyce+iQy6hj9vzzJdZLGfUvXx6xv92uXcust/N6F9t/V1m3ziEiFy58k/Ds\nuXNf2X8dALJIaoYnxm7cEJFkMwlU+cjly3EjFD9avjxhfUdFhYjEPv002QiFut381autpyY1\nh3EsGl39+9+bBzLyS0tVz8cXx44xTpERN26MiUiymQSq/PLlkbgRiuXLE89DrKhwiMinn8aS\njVCo261ePd96yuGYo7OZRGXlQp+vRO3sZB4fiUZHSQwAckxqehpU97511YOiys0bLyrJljmo\ncmPIINntHn/npScDgYRTH5ybN4tI7OOPH/P6CeXl5U3HZXOGevpaVz0oqvzcua/jypMtc1Dl\n5r0aE95OZ5WEjUBghcoNe/d+4vV2q3/UxMwXXki8FBMAstHs3dxJkneNGJ0Nxbt3p7dFyFaB\nwIpNm5wffDCsUojPV+J2F1RXL1LTKXy+BKMnAJB1ZmloWNnYaF6uCTy+ysqFlZUL41ZJ3Lnz\nUESWLUvccQIA2SU1wxMlPp+IWNdHKKpc1TFLtj5C1V/Z2Gh/u4dDQwnPdnu9nwWD9g2eu2SJ\nzRUUp+2aT0wT9aPcuj5CUeXWH+7J1keo+mqBg83thoYeJjzr9XYHg59N3Ojkrl0bFZEf/zjB\nnAkAyDqpCQ3zV60SkdFoNOFZVa7qmH03kHikWdV3rFtnf7ux69eTfVdNSrCRX16e7Aoicv/W\nLZ2LYDqsWjVfkq9UVOWqjtnAwHc29dUCB5vbXb+eYJtn9d3Nm532DQ4GP/N6u5OllosX74hI\neTmhAUAuSE1oWLh2rYhEg0Hrb/eHQ0PRYNCoYzbU2Wm9lKrv9Hjml5dbz5pvd/vsWespdU21\n/sLGApdrSX39taamhJ0N31y4oHORqWGfBntr1y4UkWAwav31PzT0MBiMGnXMOjsT/HdU9T0e\np80zW13q7Nnb1lPqmmr9hY2tW5OuzLxy5V4kMnzw4GreVgUgN6QmNMwrLla7KvUfPny3p0eN\nOzyKxe729PQfPiwiZU1N1rUVA+Hw4OnT6me9Uf+jZ5+V5OsajNutbGwcjkT6X3nF6N54ODT0\n5fHjA+Fwic834TbSIlL8y1+qBps7SO7fuqUusrKxUeciSLni4nlqV6XDh/t7eu6qX/Cx2KOe\nnruHD/eLSFNTmXVtRTg8cPr0oLHDkqr/7LMfiUgg8KTNM7u4eF5j48pIZPiVV/qN7o2hoYfq\nbdc+X8mE20hv2FAgIsFgNBL51uhvGBx88O67d1588arH46ypmaCvAgCyRcomQhpvlFYvgDCL\ne/20Ye3Jk4NvvvnF3r1x5Tovjyjevftv9+4NhMNxKzlLfL4VgYBOg/NLSyva2voaGqwNLvH5\nWDeRQXV1S0XkyJGb6gUQZk1NZepsnJMn17755uDevV/Eleu8PGL37uJ79/4WDg/EreT0+Up0\n9n4uLJzb1lbR0NCnekHM6uuXvPCCXWQBgOySytUTS+vqHBUV5tdOOjdvLqiqMm8UbZZfWlp+\n4EBBVdWdixeHI5El9fXOmpqCqir710YYVgQChbW1I93dah3Ekvr6wtraRdXV+g1e4HK529uH\nu7pGLl9W4aPE5yusrZ3WPoa8vDxGKCZUV7e0osJhfu3k5s3OqqoC80bRZqWl+QcOlFdVFVy8\neCcSGa6vX1JT46yqKtB8YAcCK2prC7u7R9Rrq+rrl9TWFlZXL9Jsrcu14K231l+6NKLuLiI+\nX8mmTU7ebAkgx2TmAZbsVdezAaEhtZK96hoAkHKpmdMAAAByHqEBAABoITQAAAAthIZ0Y0ID\nACBLERoAAIAWZvIDAAAt9DSkW15eXqabAADAVBAaAACAFkIDAADQwpwGAACghZ4GAACghdAA\nAAC0EBoAAIAWQgMAANBCaAAAAFoIDQAAQAuhAQAAaCE0AAAALYQGAACghdAAAAC0/B+uFjtm\nVIJOyQAAAABJRU5ErkJggg==", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "options(repr.plot.width=7, repr.plot.height=7, repr.plot.res=100)\n", "par(mfrow=c(2,2), mar=c(0,0,2,2))\n", "\n", "plot.STM(model15Prrateby, \"perspectives\", topics=c(5,9))\n", "plot.STM(model15Prrateby, \"perspectives\", topics=c(5,6))\n", "plot.STM(model15Prrateby, \"perspectives\", topics=c(6,9))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Our supposition about the differences between topic 6 and 5 seems confirmed, while the topic 9 is confirmed to have a weak semantic content. We will probably have to re-run the model taking out some additional stopwords. However, we can first conclude this overview of the main functions of stm having a look at the difference made by the inclusion of \"rateby\" as a topic prevalence co-variate. As mentioned in a previous post, the Structural Topic Model allows the analysis of relationships with document metadata, in form of co-variates, either in terms of the degree of association of a document to a topic, either of the association of a word to a topic. The function to extract the relationship and associated uncertaintuy on all the topics of the model is estimateEffect, which basically estimates a regression with documents as units, the outcome is the proportion of each document about a topic in an STM model and the covariates are document-meta data:" ] }, { "cell_type": "code", "execution_count": 17, "metadata": { "scrolled": true }, "outputs": [ { "data": { "text/plain": [ "\n", "Call:\n", "estimateEffect(formula = 1:15 ~ rateby, stmobj = model15Prrateby, \n", " metadata = out$meta, uncertainty = \"Global\")\n", "\n", "\n", "Topic 1:\n", "\n", "Coefficients:\n", " Estimate Std. Error t value Pr(>|t|) \n", "(Intercept) 0.03983 0.01380 2.885 0.00411 **\n", "ratebyday 0.03308 0.04554 0.726 0.46801 \n", "ratebyhour 0.06448 0.02136 3.019 0.00269 **\n", "ratebymonth -0.02540 0.18667 -0.136 0.89184 \n", "ratebyweek -0.04007 0.05885 -0.681 0.49628 \n", "---\n", "Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n", "\n", "\n", "Topic 2:\n", "\n", "Coefficients:\n", " Estimate Std. Error t value Pr(>|t|) \n", "(Intercept) 0.038904 0.014162 2.747 0.00627 **\n", "ratebyday -0.026867 0.040058 -0.671 0.50278 \n", "ratebyhour 0.034647 0.019766 1.753 0.08036 . \n", "ratebymonth 0.008482 0.210999 0.040 0.96795 \n", "ratebyweek -0.038638 0.053918 -0.717 0.47401 \n", "---\n", "Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n", "\n", "\n", "Topic 3:\n", "\n", "Coefficients:\n", " Estimate Std. Error t value Pr(>|t|) \n", "(Intercept) 0.021089 0.011812 1.785 0.074928 . \n", "ratebyday 0.453879 0.049058 9.252 < 2e-16 ***\n", "ratebyhour 0.007749 0.015948 0.486 0.627310 \n", "ratebymonth -0.020844 0.147313 -0.141 0.887546 \n", "ratebyweek 0.220659 0.065674 3.360 0.000851 ***\n", "---\n", "Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "out$meta$rateby<-as.factor(out$meta$rateby)\n", "prep<-estimateEffect(1:15~ rateby, model15Prrateby, metadata=out$meta, uncertainty=\"Global\")#nsim is defaulted to 25, but on a small model a higher number lead to more consistent results\n", "summary(prep, topics=c(1:3), nsim=1000)# summary of regression on topic 1-3" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "For reasons of space here we printed only the first three topics, but overall it seems that rateby doesn't have significant effectes, with the only exception of topic 3 (educational jobs) with the covariates week and day. The results of estimateEffect can also be plotted with a variety of methods, pointestimate being probably the best for factor variables as in our case:" ] }, { "cell_type": "code", "execution_count": 18, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAK8CAMAAAA6ZJxxAAAABlBMVEUAAAD///+l2Z/dAAAA\nCXBIWXMAAA9hAAAPYQGoP6dpAAATy0lEQVR4nO3cjXaiyhJA4fL9X3pWJoLdgD+kRHqX+1vr\nZAJqS3n3GEbNjYsEFWcfgPRXxiss4xWW8QrLeIVlvMIyXmEZr7CMV1jGKyzjFZbxCst4hWW8\nwjJeYRmvsIxXWMYrLOMVlvEKy3iFZbzCMl5hGa+wjFdYxiss4xWW8QrLeIVlvMIyXmEZr7CM\nV1jGKyzjFZbxCst4hWW8wjJeYRmvsIxXWMYrLOMVlvEKy3iFZbzCMl5hGa+wjFdYxiss4xWW\n8QrLeIVlvMIyXmEZr7CMV1jGKyzjFZbxCst4hWW8wjJeYRmvsIxXWMYrLOMVlvEKy3iFZbzC\nMl5hGa+wjFdYxiss4xWW8QrLeIX15nhDSjsr3vcup29kvMIyXmEZb1KZQYCMN6nMIEDGm1Rm\nECDjTSozCJDxJpUZBMh4hWW8wjJeYRlvUplBgIw3qcwgQMabVGYQIONNKjMIkPEmlRkEyHiF\nZbzCMl5hGW9SmUGAjDepzCBAxptUZhAg400qMwiQ8SaVGQTIeIVlvMIyXmEZb1KZQYCMN6nM\nIEDGm1RmECDjTSozCJDxJpUZBMh4hWW8wjJeYRlvUplBgIw3qcwgQMabVGYQIONNKjMIkPEm\nlRkEyHiFZbzCMl5hGW9SmUGAjDepzCBAxptUZhAg400qMwiQ8SaVGQTIeIVlvMIyXmEZb1KZ\nQYCMN6nMIEDGm1RmECDjTSozCJDxJpUZBMh4hWW8wjJeYRlvUplBgIw3qcwgQMabVGYQIONN\nKjMIkPEmlRkEyHiFZbzCMl5hGW9SmUGAjDepzCBAxptUZhAg400qMwiQ8SaVGQTIeIVlvMIy\nXmEZb1KZQYCMN6nMIEDGm1RmECDjTSozCJDxJpUZBMh4hWW8wjJeYRlvUplBgIw3qcwgQOfG\nG5MX73C+Zszbm7d9uNb6Bs+XuH8N4z3P+c+8OxaO6epdwnuPzHirIMUb/Zf5ljsPzXirGCfe\n6wlA3L5p9i5u2D79dje/VR3Tjp8/bycptwti8+/PxjLzt38YU0caJt4pjzme7Wg2nnjbm8+X\nTNdr/iLE4qLbAvFwGcMd1Sjx9tW13XTX7Z6UV8vFdn2LtdYLx4vLaCyEeFc3fB7v/62IVaXx\n9njN+jy4eC+rIlc3n89V+6u2u/pX6G7xTruneNvtZ4Po06rFe4n1OcLd04bVwbRHFdsX3B9E\nn0aIN5bXjMty/9/ivX/asL3M40H0aaPE2/y8bzYWT3+x2NOeE6w3L/05b7/rzvPqMuzlPT4a\nRJ82TLwvvc47bTW3md8w7t85juvLu23Q067167y3M+CNN6CnrYePwGtvU+utzo/3L/czXCiv\nfshC72S873D/40U6EDPegeqNlbOP6HsMFy/NfDptth9nvEm3fx+WGQnDeJOWL3boc4w3qcwg\nQMb7Kt4Rl2e8LwMecnHG+zLgIRdnvL/6t5Gv+9rfJLp3yKMN8k2M99fG53CmL+uP/a5vqDMY\n76853nvfXIx3OMZ71X/4sX311nhHZbxXc7zzO739bxJdjHc4xns1ndwuUn0ar85jvJNo/pm2\n45xX5zHeSdxybV5xMN6BGe9sfkVs+l2j7jeJfJ13PMY7e3ZIxjsa4508PSLjHY3x/nr+cdw7\nVxhtkG9ivEllBgEyXmEZr7CMV1jGm1RmECDjTSozCJDxJpUZBMh4k8oMAmS8SWUGATJeYRmv\nsIxXWMabVGYQIONNKjMIkPEmlRkEyHiTygwCZLxJZQYBMl5hGa+wjFdYxptUZhAg400qMwiQ\n8SaVGQTIeJPKDAJkvEllBgEyXmEZr7CMV1jGm1RmECDjTSozCJDxJpUZBMh4k8oMAmS8SWUG\nATJeYRmvsIxXWMabVGYQIONNKjMIkPEmlRkEyHiTygwCZLxJZQYBMl5hGa+wjFdYxptUZhAg\n400qMwiQ8SaVGQTo9Hhj8uJ9zteMeXvztg/XWt/g+RJ3rmG85zk93p1rx3T1LuG9B2e8JcDi\njf7LfMudR/fGeHWeoeK9ngDE7Ztm7+Lq7dNvd/Nb1THt+PlzXituFzQLx8Nl5m/3jqkjjRTv\nlMccz3Y0G0+87c3nS6brNX8RYnFRc+r9cBnDHdJA8fbVtd10bXVPyluLbEbcr7VeOF5c5vEg\n+ihIvKvbPo/3/1bEqtKIrRWMF4gY72VV5Orm87lqf9V2V/8K3S3eafcUb7v9bBB9VMF4L7E+\nR7h72rA6nuYEpb+a8Q4HEm8srxmX5f6/xXv/tGF7mceD6KMGirf5ed9sLJ7+YrGnPSdYb176\nc95+153n1WXYy3vUMEaK96XXeaet5jbzG8b9O8dxfXm3P+eN64nsYuHmDHjjDehp69GD8Nq7\n1HqjIeL9y12NVsqrn7HQ+xhv0u3p2Xo/DRvvKPXGHO7N2cf0LUaMF8Vn3vMYb9LGPxz1Icab\n1LyKV2YmCuMVlvHOnh/SgAf91Yx39sIhDXjU38x4Z3+Ld8BBvobxzuIyv2Cw/MT79Ia18Q7F\neGf9Rxi6z+esP/Z7u9VnDk4bjHfWPM9uf3Mx3rEY78x4aYx39rd4dR7jnRkvjfHOjJfGeGdz\nqv2rDfE43gEH+RrGO7vFe2le7432mdfXeYdivHsY71CMdw/jHYrx7rB10MhBijBeYRmvsIxX\nWMabVGYQIONNKjMIkPEmlRkEyHiTygwCZLxJZQYBMl5hGa+wjFdYxptUZhAg400qMwiQ8SaV\nGQTIeJPKDAJkvEllBgEyXmEZr7CMV1jGm1RmECDjTSozCJDxJpUZBMh4k8oMAmS8SWUGATJe\nYRmvsIxXWMabVGYQIONNKjMIkPEmlRkEyHiTygwCZLxJZQYBMl5hGa+wjFdYxptUZhAg400q\nMwiQ8SaVGQTIeJPKDAJkvEllBgEyXmEZr7CMV1jGm1RmECDjTSozCJDxJpUZBMh4k8oMAkSK\nNyYvrjdfM+btzds+XGt9g3iwdX+f3o8U787bxXT1LuG9d/ws3tduoyPUjTf6L/Mtd96z8Y6L\nGu/1BCBu3zR7F1dvn367m9+qjmnHz5/zWnG7oFk4Hi4zf/vHAfU6aLxTHnM829FsPPG2N58v\nma7X/EWIxUW3BeLhMob7Ocx4++rabrq2uiflrUU2I+7XWi/cVxx3l9HR6sW7uvrzeP9vRawq\nDeMdWvF4L6siVzefz1X7q7a7+lfobvFOu6d4220d77vjvcT6HOHuacPq0KP5EqsLdLh68cby\nmnFZ7v9bvNunDfeX0dGY8TY/75uNxdNfLPa05wTrzUt/ztvvuvO8ugx7eY86FjTel17nnbaa\n28xvGPfvHMf15d3+nDeuJ7KLhZsz4I03oKet3OP12vvY344W71+WObSDQxZ/9VMYX854P3EE\ne9e8+/kjtb4h3kPr3bd2HOugGUcFj/d8PvOex3iTPOc9j/EOyXZfYbzCMt632ngnQ4cx3qS4\ns1VmwIEZb5Lxnsd4d4ruy/L95sWHI3Qo492pizcul/7TDIuCdSjj3et/szG1e+k/0NM853In\nxDDevRbxrr6J2/V0LOPdK5on3Olt3Ns3l/VvC+koxrtXG+9t3/RNeNrwOca71yLe9Tmv/2D7\nFOPdrWnTVxtOZby7tW36Ou+ZjDfp3iBlBhyY8SYZ73mM9xjV5xuC8QrLeIVlvEllBgEy3qQy\ngwAZb1KZQYCMN6nMIEDGm1RmECDjFZbxCst4hWW8SWUGATLepDKDABlvUplBgIw3qcwgQMab\nVGYQIOMVlvEKy3iFZbxJZQYBMt6kMoMAGW9SmUGAjDepzCBAxptUZhAg4xWW8QrLeIVlvEll\nBgEy3qQygwAZb1KZQYCMN6nMIEDGm1RmECDjFZbxCst4hWW8SWUGATLepDKDABlvUplBgIw3\nqcwgQMabVGYQIOMVlvEKy3iFZbxJZQYBMt6kMoMAGW9SmUGAjDepzCBAxptUZhCgnfFuXT0i\nurUi5j0Pl4vF9u4js5svl3/mjenCLuFn6y4vN17tlo43+i/z9Z4sbLxKez3eNtDlacGy4NuN\n4tJWHdOOnz/nteJ2QbNwPFxm/vbV4z/K6QfwxXY883bnB+sT1o3ThesV50um6/2W2xW/Xjge\nLjNEuD+GOIgvtee0IdpmmrbiTrzL2qJfKDau0qwQryxzviEO4kv9Od7VKs/j/b8VXbztLuPV\nPu+Jt2tqsXb7c74r9/f5OpqFo32V7RbvtHuKt90+3RAH8aU+Em97wvz0tGF1ZO3J752zYn2l\n9Dnv8od4dNe/7I/3/mnDxjL6ZjvincPpn/5isadJMNabl1jHO58C3HleXYa9vEd9qdfjvfW3\neJ132orb9vyGcf/OccT8IllzzhvXE9nFws0Z8MYb0NPWuQG/8ka4DrPntOFdS+2+8qhe+hSH\nDmO8f9e/OqKPe2O8u4I8+H/yKOXYx4rrnfEecr8DM62TGW+C7Z7LeDNs91TGKyxcvP2Lu+f/\nHTj/CL4XPN7z2zn9AL6Y8SadfgBfbLx44/oxyelN5+mt4Jh2x7zx/sPa7/QD+GIDxhvzl/a/\n6dMM3cb7j2u3s+//mw0Yb/tlDrT7ZvkRM30n4xWW8QrLeJPOvv9vZrxJZ9//Nxs83u4/41Vn\n9HhX/5cmcfs/ijrgsPY7/QC+2HjxnrMO9wC+mPEKCx6v7X4zeLz6ZsabVGYQIONNKjMIkPEm\nlRkEyHiTygwCZLxJZQYBMl5hGa+wjFdYxptUZhAg400qMwiQ8SaVGQTIeJPKDAJkvEllBgEy\nXmEZr7CMV1jGm1RmECDjTSozCJDxJpUZBMh4k8oMAmS8SWUGATJeYRmvsIxXWMabVGYQIONN\nKjMIkPEmlRkEyHiTygwCZLxJZQYBMl5hGa+wjFdYxptUZhAg400qMwiQ8SaVGQTIeJPKDAJk\nvEllBgEyXmEZr7CMV1jGm1RmECDjTSozCJDxJpUZBMh4k8oMAmS8SWUGATLeHzHZumz7+t2F\n9277cK31DZ4vMdbDdjbjnew4opiu3iW8dyTjzTLeyetHFP2X+ZY7ZzLeLOOdzAnGtcv5m2bv\n4urx/3r9/ohLW3VMO37+nNeK2wXNwvFwmfnbzJSlGO+kOQX4raXZWEfT7F3tj6a6ufHF03Vs\nLRwPlzHcJeOdRP911U3XVvs8GFuLbEbcr7VeOF5cRr+Md/I83tXVn8f7fytiVWkY7xsY72Rn\nvLeLHsY7Zdqs3u7qX6G7xTvtnuJttzUx3skf471sx3uN+rXThv7W3e7orzbew3Ym4528fs67\n/CHe7P9bvPdPG7aX0S/jnTQl/v5AbzYWT3+x2NOeE6w3L/05b7/rzvPqMuzlPeqH8U7mEl94\nnXfamhO8nbgu3jmO68u7/TlvXE9kFws3Z8Abb0BPW3986F57AxvFeO946QBBP8hf/fgFifHe\nUSze+x88AjPeO147wOWbw+eJdzh7iJ2MNwkyCLPOJ4z3SxRs13i/Rr12jVdcxptUZhAg4006\ncJDtpcs8cnnGm/TxeOs8dGnGm2S85zHepIMGiek33q6vcC0/7KOL8Q6q+1zb4oM9PnYT4x1R\n/5k1473DeEfURRrLzw/72F0Zb9Ihg9zi7X5V03h7xpt0bLxNxdeT4KPuksh4kz4Vb/PpyzKP\nXZbxJh0zyPRqw/XVst9dxrtgvEkHv84b8wu+trtivBjGu2S8FLH65usZL0PY7prxJpUZBMh4\nk8oMAmS8SWUGATLepDKDABlvUplBgIxXWMYrLOMVlvEmlRkEyHiTygwCZLxJZQYBMt6kMoMA\nGW9SmUGAjFdYxiss4xWW8SaVGQTIeJPKDAJkvEllBgEy3qQygwAZb1KZQYCMV1jGKyzjFZbx\nJpUZBMh4k8oMAmS8SWUGATLepDKDABlvUplBgIxXWMYrLOMVlvEmlRkEyHiTygwCZLxJZQYB\nMt6kMoMAGW9SmUGAjFdYxiss4xWW8SaVGQTIeJPKDAJkvEllBgEy3qQygwAZb1KZQYCMV1jG\nKyzjFZbxJpUZBMh4k8oMAmS8SWUGATLepDKDABlvUplBgIxXWMYrLOMVlvEmlRkEyHiTygwC\nZLxJZQYBMt6kMoMAGW9SmUGAjFdYxiss4xWW8QrLeIVlvMIyXmEZr7CMV1jGKyzjFZbxCst4\nhWW8wjJeYRmvsIxXWMYrLOMV1mnxSmknxXvinbyXh/wRuWM23m0e8kcY7xE85I8w3iN4yB9h\nvEfwkD/CeI/gIX+E8R7BQ/4I4z2Ch/wRxnsED/kjAPFKRzBeYRmvsIxXWMYrLOMVlvEKy3iF\nZbzCMl5hGa+wjFdYxiusg+Ptfo953+81n6I/vtGP9j/aQ/zrLQ/zsYNGdw/jP6jr4x3+mGkP\n8a/uL9zlr8d96LTR38Xwj2x/vIujHxPtIf4Vq79vfzrwD8Y7/gOLj3fwg53E+ofF8PEOfzrG\nj3f4h3iCi/fw+8vix9tuDI0W7wfuMAkf72Vja0wDx3v98UV7ZI33YwaOt1uc88ga78fQ4h0/\nBtrxXpCH/N/48eJe9Kcd7wV5yD+i//Zvx3zwpNMrN9FtjYt2vBfkIV/659tB3x6WDmS8wjJe\nYRmvsIxXWMYrLOMVlvEKy3iFZbzCMl5hGa+wjFdYxiss4xWW8QrLeIVlvMIyXmEZr7CMV1jG\nKyzjFZbxCst4hWW8wjJeYRmvsIxXWMYrLOMVlvEKy3iFZbzCMl5hGa+wjFdYxiss4xWW8QrL\neIVlvMIyXmEZr7CMV1jGKyzjFZbxCst4hWW8wjJeYRmvsIxXWMYrLOMVlvEKy3iFZbzCMl5h\nGa+wjFdYxiss4xXWPwd1Y78xXTwNAAAAAElFTkSuQmCC", "text/plain": [ "Plot with title \"\"" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "options(repr.plot.width=7, repr.plot.height=7, repr.plot.res=100)\n", "plot.estimateEffect(prep, model=model15Prrateby, covariate=\"rateby\", topics=3, \n", " method=\"pointestimate\", \n", " xlim=c(-.5,1))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "We can basically infer that for offers related to topic 3 the rate tend to be computed by day rather than by other factors. As mentioned at the beginning, other covariates might offer more insightful results, and rateby was selected just for simplicity reasons. \n", "\n", "## Conclusions\n", "\n", "In this document we have seen some diagnostic techniques to select a number of topics for a stm model, and gave overview of the main functions offered by the stm R package. There are a number of additional add-on packages and functions that allow further analysis, but we will explore them in a latter stage. Some of them are mentioned in the paragraph below.\n", "\n", "Based on the results of this work, we identified a model with 15 topics as a good fit, but we also concluded that we should re-run the model on a corpus from where more stopwords are excluded. We will proceed in this way in the next entry of this series, where we will give some more depth to our analysis. In particular, we will include further variables to the analysis, explore the use of topical content co-variates, and focus more on topic correlations." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### References and helpful resources\n", "\n", "We recomend to read in detail the package vignette, where some of the functions used here are presented in more detail. The theoretical aspects of the model are explained in more detail in Roberts et al., \"A model of text for experimentation in the social sciences\", 2016. The website of the authors of the model and the package offers an extensive repository of resources, including supporting packages for analysis and visualization, as well as a list of scientific articles adopting stm. \n", "Julia Silge has authored two interesting posts (one and two) where stm is used adopting tidy data principles.\n", "\n", "\n", "### Appendix\n", "The procedure below has been used by Julia Silge to obtain the distribution of document probabilities per each topic, in fashion similar to plot.STM with \"hist\" as argument. It might be helpful if using a tidy data approach, or wants to have a higher degree of control on the visualization." ] }, { "cell_type": "code", "execution_count": 19, "metadata": {}, "outputs": [ { "name": "stderr", "output_type": "stream", "text": [ "`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n" ] }, { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAArwAAAK8CAMAAAA6ZJxxAAAAk1BMVEUAAAAaGhovvPQvxFwv\nxdwvyJMvybszMzMzwPgzyGAzyeAzzJczzb9NTU1oaGh8fHx9rPuBsP+FvS+JwTOMjIyampqn\np6exsy+ysrK1tzO9vb3DmPvHnP/Hx8fQqS/Q0NDUrTPZ2dnh4eHmmy/ohfHp6enqnzPr6+vs\nifXw8PD1jYb5fdb5kYr7gbL9gdr/hbb///+pt7XxAAAACXBIWXMAAA9hAAAPYQGoP6dpAAAe\nhUlEQVR4nO2dC3vbxhFFiTiOmrSQklR+1Knj0rGaKo+W///XVcSQwOKxWBAY7GAX536frdEl\niL0DHq5APKTDCaFEdbAOgNBcAS9KVsCLkhXwomQFvChZAS9KVsCLkhXwomQ1E95DpfLtk3zj\nPPKhdBbqPOYuMvTAgJ4eDof71sAz0g4MH9DQMI13bez8L9hMt4OJ6qzSG1phgySrRfC+6NOp\ns/2cb3zwVt7EjV6eBxle/VxNWcV0eIPNdDuYl9K7CuC9/WnV857eHMrnwUd833q98YHmPXfi\nKqcu0/au3wXXNjPxVHj3rEXwnk5vDu8v37wvD/cfZEo+//+5fLhOTI+Hh6f6KS//Xxc5VfQf\n3siDT48veyH1+q8PHJxp6+Xn72Pnaafrs+qVy4CPp6f7w+P5ffV8XvTZHcFZoxvuHNjNc33k\ndHw81GM4rVz+Oc3UQ123xWWMaglnzdVIlZpn1IO4Hb1ttsgl9EA+8VsbbzdaCO/nw4N887Z6\nkT7UL+bD4c3l9X087xw/D8L7XP1IlQer8voC1A848FbeY/tpUj224T0P+PH+5b83p8sP7fuT\nM0IL3jf1+OfAbp5r7E+ye/S220of3nqo67a4jHFewl3zQxXs5D6jGcTp6NHZIjKMu5Y3Tpb6\nSTvTQnid1/HpdDyU9T7g2/qxh+fTg7z27vIX4l/Qvzz4stiHw/VTifvAyfGeH9pPe/vCwbHZ\ntZbqzenjefyP5+/ey1If3BHcfdcm3NtTL09V3R8+nt+jvVZ6+7zuUJdt0Wwqd831FNk8oxnE\n6ehltPf+tbhZ6iftTFrwloc3n5pHzi9fA/Xp6Ty9DMB77zz45K71vvMsx2s97f7w7OapBzwc\nnq8jVP5jO1LTxefW+J08T3KU4OnT+4d+Kz14m6HqbdFE63Z66ej6jGYQp6PWFumt5bOTpX7S\nzqQF76eXn1z39ebugDpU+R50Vt8lzbfO/oPOCIeD85N9wip73z8Mr6EHbzNUvS2aQYZGd57R\nHeTUThTarDucdCsthPfY7HB+vj+Ux/zgffPy2evT003w1tuiGSQAb3eQUzuRby3AO+9pl+c9\nyj6efPOhDc9lu7Z2AJ5ai3T3DuoXYd5uQ3vllxHaibvwVit6uHpDuw3VI8/9Vnrw3rc25Yc2\ndkMNdcM9y1p6O0LDa3GTs9tw29Oq552P816+KQ/Hl08cpQvP5bWtPma9Py/x8fKBq16k+7ms\nfqmGPrC9l88oh/YHtrfyOWdg5ZcRXpb62ODZhfcaTrzWB6L6kWO9ZnfpHrzNUPW2aDbVUEOt\ncMf6w+jb68fD1hbprcXNUj9pZ5oN70XH03X7nVVtzLJNyvX4UrXEe/Eui7iHfq5PqNR9oPY6\nh8qergeb3JWfnP9k0fOnGzdSw9V5X7M5vzt0qOyts+MxcKis28x5qHpbnOqmhhrqPeP8UN1R\nD97y1Dng1iSvn7QzLYL3/u2zfPPy39vyUJ5frw9deM/nDKpPLy9LvK+8ZhH3oPvJfWE7D4j3\n2D9J8fnhUtUrb8NbLfpwbI3wwYH36aE1TPskgMSuVtBuxYW33Uw1VL0tTk1TQw05z6gHqTvq\nbBEJ7Z7UcZPXm2Ff2t/PGkfp/qRNN7mmdr0R0kUg3eSa2vVGSBeBdJNratcbIV0E0k2uKTYC\nSlbAi5IV8KJkBbwoWQEvSlbAi5IV8KJkNQ/eY2bKvC/rGNoCXleZ92UdQ1vA6yrzvqxjaAt4\nXWXel3UMbQGvq8z7so6hLeB1lXlf1jG0BbyuMu/LOoa2gNdV5n1Zx9AW8LrKvC/rGNoCXleZ\n92UdQ1tJwFtEGicyvEVRxBkoLrzR29o0vNE2Rlx4i2O0t2XebW0Z3iLXmfeYJbxnFXGGSQDe\nbHcbjsC7TMDrKja8RaRxIr9cRaSBgNcV8OqoiDMM8LrKvK9YwwGvoyLSOLEPlcUZ5sjRBuDV\nVlFEOyIa9z3JPq+JMu/LOoa2gNdV5n1Zx9AW8LrKvC/rGNoCXleZ92UdQ1vA6yrzvqxjaAt4\nXWXel3UMbQGvq8z7so6hrWXw/uqq/Z2qveKqW/ZQX7HGnmtPWXjxy7WZbgdfLuCtauAFXm0b\neP028AKv1MALvNo28Ppt4AVeqYEXeLVt4PXbwAu8Uu8F3p9//vlfP/+sO0h8G3iBV2mQ+Dbw\njsL7yy+//PuXXywjBW3g5Q+qDOvflaxT6OtflaxTaImZt6q7fTHzzkiUyMwbKzLw+m3gBV6p\ngRd4tW3g9dvAC7xSAy/watvA67eBdzG8v/322x+//bZWZOD128A7Dm9Zlv0vwLsNG3hH4S3l\nX/sL8MaJFLSBN7jbALxGkYI28M6B9+7urnn8j0qBlaQnTg+noHF4yyuxzLyxIwVtZl52G6QG\nXuDVjgy8fht4OdogNfDmBi/HeQ0jBW3g5Qyb1MALvNqRgddvAy/wSg28wKsdGXj9NvACr9TA\nux94G3F6OCnt6fSwT82bgJnXymbmBV6pgRd4tSMDr98GXuCVGniBVzsy8Ppt4AVeqYEXeLUj\nA6/fBl6uKpMaeHODl+t5DSMFbeDlTgqpgXcn8HL3cLra1elh7h62ihS0mXmBV2rgzQ/e0gEY\neKNGCtrAGzhU5s6+wBs1UtAG3vFDZaUc2uU4r0GkoA28nGGTGniBVzsy8Ppt4AVeqYEXeLUj\nA6/fBl7glRp49wNvI04PJ6VdnR72qHkTMPNa2cy8wCs18AKvdmTg9dvAC7xSAy/wakcGXr8N\nvMArNfACr3Zk4PXbwAu8UgNvfvBeLujlksj4kYI28IZ+b8OVYC5Gjx0paANv4Pc2AK9ZpKAN\nvHPuYePW93S1p2sbmHnNIgVtZl7glRp4gVc7MvD6beAFXqmBN1N4Oc5rESloAy9n2KQGXuDV\njgy8fht4gVdq4AVe7cjA67eBF3ilBt79wNuI08NJaU+nh31q3gTMvFY2My/wSg28wKsdGXj9\nNvACr9TAu194RfqRgddvAy/wSg28wKsd2Rjei0wiBe0F8Iq0Bolvz4B35KqylhQjbwPeFsKb\neTmB9wZ4x67nHdIf/cn45sinepDWuoB34sKZwPtzFdtZJCq8Dn2ngVl64JCFsw7PqrtqtT2w\ndDfJrfBe5LXrJ05YOvC6dfZWpnPV3VUfhbetvu0f2mcPrDqwkoH30brwtu4eRshMS2fem9+d\naezzRhx7rj1rt2GNQeLbwAu8SoPEt4EXeJUGiW8vgxehDWjecV6ENqClF6MjZCbgRckKeFGy\nAl6UrIAXJSvgRclqHrzHzJR5X9YxtAW8rjLvyzqGtoDXVeZ9WcfQFvC6yrwv6xjaAl5Xmfdl\nHUNbwOsq876sY2gLeF1l3pd1DG0Br6vM+7KOoS3gdZV5X9YxtAW8rjLvyzqGttKAt4g0Tty+\nihfFGSl2W3EGSgPe6FsjzmhFnGGOceEtjtE6A15XUfsqooxSKe+2Ng1vkeduQ7y9hsjwstvg\nKFd4j7F/vkYZ64xuEWWkFOAtcv3AdswT3iPwNiqifyoH3gUqjsDbUhFpnLhvyiPwLhPwuorb\nV54f2DjOa6TM+7KOoS3gdZV5X9YxtAW8rjLvyzqGtoDXVeZ9WcfQFvC6yrwv6xjaAl5Xmfdl\nHUNbwOsq876sY2hrGbyxfpk7v9bfb/Nr/YFXauAFXm0beP028AKv1MALvNo28Ppt4AVeqYEX\neLVt4PXbwAu8UgMv8GrbwOu3gXcxvO/evfvHu3drRQZevw28i/+gyj8qLVwJQnPEzFvVvb7M\nZ5egzcwLvFIDL/BqRwZevw28wCs18AKvdmQzeH/88ce///ijZaSgDbzAKzXwAq92ZOD128A7\nDm9Zlv0vwLsNG3hH4S3lX/sL8MaJFLSBN7jbALxGkYI28M6B9+7urnk809PDf69knQKNaxze\n8kosM2/sSEF71sz76tWrb1+90h0kvj0NXnYbzCIFbeAFXqmBNzd4OdpgGCloAy/HeaUG3uzg\n9apZD/Ba2cALvFIDL/BqRwZevw28wCs18AKvdmTg9dvAy93Dw8r19PC3laxTaImZt6q7fTHz\nzkiUyMzbrAd4rWzgBV6pgRd4tSMDr98GXuCVGniBVzsy8Ppt4AVeqYE3O3i5qswuUtAGXq7n\nlRp4c4P3BLx2kYI28HL38LA4PZyCAvBy97BVpKDNzAu8UgNvfvCWDsDAGzVS0AbewKEyd/YF\n3qiRgjbwjh8qK+XQLsd5DSIFbeDlDJvUwAu82pGB128DL/BKDbzAqx0ZeP028AKv1MC7H3gb\ncXo4Ke3q9LBHzZuAmdfKZuYFXqmBF3i1IwOv3wZe4JUaeIFXOzLw+m3gBV6pgRd4tSMDr98G\n3inX83JVmUWkoA28oVvfrwRzPW/sSEEbeAO3vgOvWaSgDbxzbgPi7uF0tafTw8y8ZpGCNjMv\n8EoNvMCrHRl4/TbwAq/UwJspvBzntYgUtIGXM2xSAy/wakcGXr8NvMArNfACr3Zk4PXbwAu8\nUgPvfuBtxOnhpLSn08M+NW8CZl4rm5kXeKUGXuDVjgy8fht4gVdq4AVe7cjA67eBF3il3he8\nIq1B4tvAOwHei0wiBW3gvQXe/V1VBryb6XYhvGPX87akGHkb8LYQ3szLuRjeFsJit9b0qlp4\nedCk4L0gfLo87PB8c+S1tsa7zg+MKfBe1LdnR+rN6xbwXjVsf9vn+Yx4uvC27h5GyExLZ951\n329muw0Rx55rz5p51xgkvg28wKs0SHwbeIFXaZD4NvACr9Ig8e3b4XWP8yK0AS29GB0hMwEv\nSlbAi5IV8KJkBbwoWQEvSlaH3neHCTwfM1PmfVnH0NYgvAf5F6bXOr22Mu/LOoa2gNdV5n1Z\nx9CWD95D1wPehJV3W8BbKfO+rGNoaxBe+bDGB7ZslHdbMw+VWafXVuZ9WcfQ1iC8h6lAW6fX\nVuZ9WcfQFvC6yrwv6xjaGoD3UAt4M1HebQ3OvGFFiVicFWWkyPBGaysuvNHb2vgHtiLSOHHf\nlMdojeXdVu9Q2bZ2G4pI4wDvchVHW3i3tdsQj13gVVBxBF5XRaRx2OdVUHFuLMpIwNtS1L6K\nY5Yz7xndIs5Iw7xOpTdOxiLOMEfg1VIRZ5hBXDd2nLeIM8wReDVUHI2PNkxVnIxFnGGO7POq\niOO8Nsq8L+sY2hqGt9pl4JLIbJR3W1yMXinzvqxjaAt4XWXel3UMbQGvq8z7so6hLeB1lXlf\n1jG0NQjvaeJh3my3hnUObeXd1uK/gLnu78PmN6P7bX4zOvBKDbzpwzv19HCsyMDrt4F35lVl\nsSIDr98GXuCVGnj3CO/r16//+vr1WpHN4P3mm2/+9s03lpGCNvDOvJ63WQ/wWtnAu/gDG/Ba\n2cDLboPUwAu82pGB128D70x4G/210u3P27j+Vsk6BRoXH9iquttXrjPv119//d3XX+sOEt8e\nxHXyDZjNeoDXygbexdc2AK+VDbzAKzXwJg8vuw1XAe+MRFuYeSdMxs16gNfKBt5BUpl5gXdO\nom3BW5Zl/wvwbsMG3lF4S/nX/gK8cSIFbeAd/MDmWsBrFCloA29w/3YA3ru7u+ZxTg8npe8q\nWafQ0ji85ZVYZt7YkYI2M+/QtQ3sNgDvrETG+7x9D3iNIgVt4B2Fl6MNhpGCNvCOz7wc57WL\nFLSBd+Yfzm7WA7xWNvDO/EV7zXqA18oGXi6JlBp4gVc7MvD6beBlt0Fq4E0e3skf2Bpxejgp\nZXx6mKMNVzHzzkiUyMzbrAd4rWzgBV6pgTd5ePnAdhXwzkhkDO9UNesBXisbeIFXauBNG95D\nI+AF3hmJrPd5+xbw2kQK2sDLJZFSA29u8HIxumGkoA283AYkNfAmD+/AcV5ufc9KGV/b0Be3\nvltFCtrMvMArNfDmB2/pAAy8USMFbeAdh7d0Z1/gjRopaAPvKLxlKYd2Oc5rECloA697epg/\nIgi8ixIBr/o6gHcH8J64MAd4FyWy3edl5r0KeGck2tQHNuA1jBS0gXfmbUCNOD2clDI+PcwN\nmFcx885ItIl9XuAF3jmJgFd9HcALvMAbN1LQBl5+b4PUwJs+vFPVrAd4rWzgBV6pgTc/eC/X\nRHJVWfxIQRt4A9fzcjG6WaSgDbzj1/NyJ4VdpKANvIELcwbh5e7hdJX/6eFGzLxmkYI2M+/Q\n7yoDXuCdlch4t6F7MTrwmkUK2sDLre9SA2+m8HKc1yJS0Abe/rUN/H7es4B3RiLjfV75nqvK\ngHdOIuBVXwfwAi/wxo0UtIEXeKUG3uTh5e7hqzg9nIK4nrequ30x885IZDzzAu9FwDsjUSK7\nDc16gNfKBl7uHpYaeIFXOzLw+m3gBV6pgTd5ePnbw1flDa9Ia5D4dh/e4F99399VZReZRAra\nwHvDobKx63kHBLwr20Nu9wcG8M6DV+xmqes3/myvnaXWatvJ4/7AGIe3JdeeNvZK74DF8Lb1\nXcOzA/fp14FF3bFbD6z1ckm+XluDx3mHgR6+exghM03/mxTDM6/GG8tvm+02RBx7rj1rn3eN\nQeLbwAu8SoPEt4EXeJUGiW8P8zr+y58aeBHagKZ/YHOP8yK0Ac37I4IIbUDAi5IV8KJkNf0D\nG0Ib0/gv2kNowwJUlKzmwXvMTJn3ZR1DW4PwTt5tsE6vrcz7so6hrZGZd8JkbJ1eW5n3ZR1D\nW2OkMvPmorzbAt5KmfdlHUNbwOsq876sY2hrENTJh3mt02sr876sY2hr+iwLvOkq77aAt1Lm\nfVnH0Bbwusq8L+sY2urDG/ylI5HhLeT/oogwVvy+rl/WVeYv12ZPUshWKI5RXubofR2jvMgR\n4TV5uXqkTrqmbP18hWyE4pgZvHVfxfpjRYTX6afwL6UlH7zT9oHXz3fMFN7MdxuOhvBOvZR3\n/XzAqyEDeIuRZbQ0BO/0q9AjBAReBe0H3huOmkUICLwKyrutrR8qK47Au0DR2ypiDJXASYpC\n/uc47wJFn2uKKK/X9uGNqcz7so6hLeB1lXlf1jG0BbyuMu/LOoa2gNdV5n1Zx9AW8LrKvC/r\nGNoCXleZ92UdQ1vA6yrzvqxjaGsZvLF+mTu/1t9v82v9gVdq4AVebRt4/TbwAq/UwLtHeL/6\n6qu/fPXVWpGB128DL/BKvRd4f/rpp3/+9JPuIPFt4AVepUHi28ALvEqDxLeBF3iVBolvAy/w\nKg0S314Gb6O/VFq4EhRL/6xknUJLzLxV3evLfHYJ2sy8wCs18AKvdmTg9dvAC7xSAy/wakcG\nXr8NvMArNfACr3Zk4PXbwDsOb1mW/S/Auw0beEfhLeVf+wvwbsQG3uBuA/AaRQrawDsH3ru7\nu+ZxTg8npT2dHi6vxDLzbs5m5mW3QWrgBV7tyMDrt4GXow1SA29u8HKc1zBS0AZezrBJDbzA\nqx0ZeP028AKv1MALvNqRgddvAy/wSg28+4G3EaeHk9KeTg/71LwJmHmtbGZe4JUaeIFXOzLw\n+m3gBV6pgRd4tSMDr98GXuCVGniBVzsy8Ppt4OWqMqmBNzd4uZ7XMFLQBl7upJAaeHcCL3cP\np6tdnR7m7mGrSEGbmRd4pQbe/OAtHYCBd1s28AYOlbmzL/Buywbe8UNlpRza5TjvFm3g5Qyb\n1MALvNqRzeD9/vvvf/j+e8tIQRt4gVdq4AVe7cjA67eBF3ilBt79wNso09PDP1SyTqGvXZ0e\n9qh5EzDzWtnMvMArNfACr3Zk4PXbwAu8UgMv8GpHBl6/DbzAKzXwAq92ZOD128A75XrePV5V\nBrwzEm0L3nK3F6MD74xEm4K33O+dFMA7I9Gm4PXcBrSHu4c5PZyCuIetqrt9MfPOSJTCzAu8\nm7CBF3ilBl7g1Y4MvH4beDnOKzXw5gevT816gNfKBl7glRp4gVc7MvD6beAFXqmBF3i1IwOv\n3wZe4JV6GN6LTCIFbeDl1vdh/eDKOoyi9nRtg0/Nm4CZ18pm5gVeqYEXeLUjA6/fBl7glXoU\n3hbCm3k5gRd4pZ4A7wXhzbycwAu8UgMv8GpH3h68A3bUpLctDLxX7e+SyGnwXuzAIOo7zsB7\nA7xjF6OL9COnBK/Xrte4GXhdLR8kvr0GvG25dr3si92KVD986lii0+Cy89oeyNfbGrWhCa/X\nroe6fnP6dWBZaaDFvnfV3Y0wAd6r/tnnecqWbj2ltWrvStwRW9bA0m6+Xltz4G3d+o6QmZbO\nvFPenfNts92GiGPPtWftNqwxSHwbeIFXaZD4NvACr9Ig8e1l8CK0Ac07zovQBrT0YnSEzAS8\nKFkBL0pWwIuSFfCiZAW8KFnNg/eYmTLvyzqGtoDXVeZ9WcfQFvC6yrwv6xjaAl5XmfdlHUNb\nwOsq876sY2gLeF1l3pd1DG0Br6vM+7KOoS3gdZV5X9YxtAW8rjLvyzqGtoDXVeZ9WcfQ1vbh\nLeT/oogwVvy+mq9ryuLlKtYfa/PwykYojlFe5eh9NV9XVfS2ighDbR/eotkOhX8pLRn0lRe8\nl7aK9Uc6a+vwHjOFt/75muVuQ5y9hnTgzXSfN1N4j1Hnms3Dm+fMW2T6ge0IvJWKXrGe4sMb\n9WP5+gMBb1vF9b9i/bEs3pTFyDJayvzl2ji8HOddpMxfru3CG1OZ92UdQ1vA6yrzvqxjaAt4\nXWXel3UMbQGvq8z7so6hLeB1lXlf1jG0BbyuMu/LOoa2gNdV5n1Zx9DWMnhj/TJ3fq2/3+bX\n+gOv1MALvNo28Ppt4AVeqYEXeLVt4PXbwAu8UgMv8GrbwOu3gRd4pQZe4NW2gddvA+9ieL98\n+fKfL1/Wigy8fht4F/9Blf9UWrgShOaImbeqe32Zzy5Bm5kXeKUGXuDVjmwG7++///7f33+3\njBS0gRd4pQZe4NWODLx+G3iBV2rgBV7tyMDrt4F3HN6yLPtfgHcbNvCOwlvKv/YX4I0TKWjP\ngvfPP//8359/6g4S35408wKvXaSgDbxz4L27u2sez/T08H8rWafQ1/8qWafQ0ji85ZVYZt7Y\nkYI2My+7DVIDL/BqRwZevw28HG2QGnhzg5fjvIaRgjbwcoZNauAFXu3IwOu3gRd4pQZe4NWO\nDLx+G3iBV2rg3Q+8jTg9nJT2dHrYp+ZNwMxrZTPzAq/UwAu82pGB128DL/BKDbzAqx0ZeP02\n8AKv1MALvNqRgddvAy9XlUkNvLnBy/W8hpGCNvByJ4XUwLsTeLl7OF3t6vQwdw9bRQrazLzA\nKzXw5gdv6QAMvFEjBW3gDRwqc2df4I0aKWgD7/ihslIO7XKc1yBS0AZezrBJDbzAqx0ZeP02\n8AKv1MALvNqRgddvAy/wSg28+4G3EaeHk9KuTg971LwJmHmtbGZe4JUaeIFXOzLw+m3gBV6p\ngRd4tSMDr98GXuCVGniBVzsy8Ppt4J1yPS9XlVlECtrAG7r1/Uow1/PGjhS0gTdw6zvwmkUK\n2sA75zYg7h5OV3s6PczMaxYpaDPzAq/UwAu82pGB128DL/BKDbyZwstxXotIQRt4OcMmNfAC\nr3Zk4PXbwAu8UgMv8GpHBl6/DbzAKzXw7gfeRpweTkp7Oj3sU/MmYOa1spl5gVdq4AVe7cjA\n67eBF3ilHob3IpNIQXsBvCKtQeLbwAu8SoPEt4EXeJUGiW/rwivSjwy8fht4b4F35KqyvOFt\nIbyZlxN4b4B37HreAQHvyvaQ2z1IogDv0LLWGyFzeN0fBQNLf+nsqk+B94KwuzaHamN4m4DT\n4W2rb8sgLXiv35zquqVp+d2VzNsIC+Bt3T2MkJmWzrzT3ipzbbPdhohjz7Vn7fOuMUh8G3iB\nV2mQ+DbwAq/SIPFt4AVepUHi27fD6x7nbem2j283Lb3iqoNLW469YOngwsm8AOGll16MrhLC\nYtXAqz408MZaNfCqD50ivAjZCHhRsgJelKyAFyUr4EXJaja8zVHf/i+RnLa0d/HWwuXkVZfN\n0mOLd57XWXjFtlbtK9DWbX1tp63xvubC25xvG/j1veGl/Yu2Hi67xujSzu8T9q+83tCDsVds\na9W+Am3d1td22gr0FRveU7P0tFX3nj226tCGPpWn0a2xZltr9hVqay68p5NpW6G+rOAd22to\nVn35wTJ11aXzpLHl/bFXbGvdvtaF16ytzcEbanD+qsveWMPL+9e9Ylvr9rUavLZtbRJe9+vo\nwrdvjbFVnwJbY8221u1rVXhHhzZ8ueLDG4w8e2u0njS2vPM8NXjDr8Sqfa0Fr3FbG4O37Box\nV30KbI1Vx161r5XgtW5rHXhPzs755AOi5ck9uqe96nqjhD8B+Ne9Ylur9hVo67axt9PWeF+c\nYUPJCnhRsgJelKyAFyUr4EXJCnhRsgJelKyAFyUr4EXJCngNdDiw2TXEVoyvw4ntriI2YnQd\nnP/RErENowt4tcQ2jK6DyDpGBmIbRhczr5bYhtEFvFpiG0YX8GqJbRhfHCpTEhvRQHxc0xFb\nESUr4EXJCnhRsgJelKyAFyUr4EXJCnhRsgJelKyAFyUr4EXJ6v/lI+BNRfm/rgAAAABJRU5E\nrkJggg==", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "ggplot(td_theta, aes(gamma, fill = as.factor(topic))) +\n", " geom_histogram(alpha = 0.8, show.legend = FALSE) +\n", " facet_wrap(~ topic, ncol = 3) +\n", " labs(title = \"Distribution of document probabilities for each topic\",\n", " y = \"Number of documents\", x = expression(theta))\n" ] } ], "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.6.0" } }, "nbformat": 4, "nbformat_minor": 2 }