removed str half-hour variable - can always be re-created; latest run

MTUS-W6-adult-episodes-data-processing.Rmd

@@ -704,7 +704,7 @@ kable(caption = "Distribution of missing location",
   MTUSW6UKdiaryEps_DT <- mtusUKEpsDT[, .(survey, ba_survey, ba_diarypid, ba_pid, main, sec,
                                          inout, eloc, mtrav,
                                          r_date, r_dow, 
-                                         time, str_epStartTime,
+                                         time,
                                          r_epStartDateTime, r_epEndDateTime)]
   
   mtusUKEpsDT <- NULL

MTUS-W6-adult-episodes-data-processing.html

@@ -118,7 +118,7 @@ $(document).ready(function () {
 
 <h1 class="title toc-ignore">MTUS World 6 Data Processing</h1>
 <h4 class="author"><em>Ben Anderson (<a href="mailto:b.anderson@soton.ac.uk">b.anderson@soton.ac.uk</a>, <a href="mailto:/@dataknut">/@dataknut</a>)</em></h4>
-<h4 class="date"><em>Last run at: 2017-05-19 18:40:48</em></h4>
+<h4 class="date"><em>Last run at: 2017-05-22 10:41:32</em></h4>
 
 </div>
 
@@ -188,7 +188,7 @@ $(document).ready(function () {
 ## Unrecognized record type 7, subtype 18 encountered in system file</code></pre>
 <pre><code>## re-encoding from CP1252</code></pre>
 <pre><code>##    user  system elapsed 
-## 211.301   8.466 222.597</code></pre>
+## 220.660  10.173 246.557</code></pre>
 <p>We have loaded 11,501,221 rows of data for 11 countries.</p>
 <pre class="r"><code>kable(caption = &quot;Number of diaries per year&quot;,
       ba_tidyNum(table(mtusEpsW6DT$survey,droplevels(mtusEpsW6DT$countrya)) # removes unused countries
@@ -3307,7 +3307,7 @@ kable(caption = &quot;Check 1/2 hour coding (as string)&quot;,t)</code></pre>
   MTUSW6UKdiaryEps_DT &lt;- mtusUKEpsDT[, .(survey, ba_survey, ba_diarypid, ba_pid, main, sec,
                                          inout, eloc, mtrav,
                                          r_date, r_dow, 
-                                         time, str_epStartTime,
+                                         time,
                                          r_epStartDateTime, r_epEndDateTime)]
   
   mtusUKEpsDT &lt;- NULL
@@ -3366,12 +3366,9 @@ kable(caption = &quot;Check 1/2 hour coding (as string)&quot;,t)</code></pre>
 <td align="left">time</td>
 </tr>
 <tr class="odd">
-<td align="left">str_epStartTime</td>
-</tr>
-<tr class="even">
 <td align="left">r_epStartDateTime</td>
 </tr>
-<tr class="odd">
+<tr class="even">
 <td align="left">r_epEndDateTime</td>
 </tr>
 </tbody>
@@ -3894,7 +3891,7 @@ kable(
 </tbody>
 </table>
 <hr />
-<p><strong>Meta:</strong> Analysis completed in: 5.606 seconds using <a href="https://cran.r-project.org/package=knitr">knitr</a> in <a href="http://www.rstudio.com">RStudio</a>.</p>
+<p><strong>Meta:</strong> Analysis completed in: 6.158 seconds using <a href="https://cran.r-project.org/package=knitr">knitr</a> in <a href="http://www.rstudio.com">RStudio</a>.</p>
 </div>
 </div>
 <div id="references" class="section level1 unnumbered">