<div class="row justify-content-center">
<div class="col-auto d-none d-md-block pt-2 ps-2">
<aside id="sidebar" class="card">
- <div class="card-body">
+ <section class="card-body">
<p>Tags</p>
<!--# include file="/tag-index-body.html" -->
- </div>
+ </section>
</aside>
- </div> <!-- end of column -->
+ </div> <!-- end of column 1 -->
<div class="col-xs-11 col-sm-11 col-md-8 col-lg-9 col-xl-9 col-xxl-9 pt-2 ps-2 pe-2">
- <section id="content" class="content inlinepage">
+ <main id="content" class="content inlinepage">
{{{contents}}}
- </section>
- </div>
- </div>
- </div>
+ </main>
+ </div> <!-- end of column 2 -->
+ </div> <!-- end of row -->
+ </div> <!-- end of container -->
{{>footer}}
</body>
(setq org-html-htmlize-output-type 'css) ; default: 'inline-css
(setq org-time-stamp-custom-formats '("%A %e %B %Y" . "%A %e %B %Y at %H:%M"))
(setq org-display-custom-times t)
-(setq org-html-container-element "section") ;; TODO - check
+(setq org-html-container-element "div") ;; TODO - check
(setq my-blog-base-folder "~/websites/stage.vanrenterghem.biz")
(setq my-blog-source-folder "~/websites/stage.vanrenterghem.biz/source")
(setq my-blog-target-folder "~/websites/stage.vanrenterghem.biz/target")
(insert "#+END_export\n")
(insert preview)
;(insert (concat "#+INCLUDE: \"" relpath "\" :only-contents t :lines \"1-10\"\n"))
- (insert "\n")
+ (insert "\n")
(insert (concat "[[file:" relpath "][Read More...]]\n"))
(insert "#+BEGIN_export html\n")
- (insert "<\/section>\n")
+ (insert "</section> <!-- END CARD-BODY-->\n")
(insert "#+END_export\n")
))
;; kill the first hrule to make this look OK
#+OPTIONS: toc:nil \r
#+date: <2019-09-16 22:03:03>\r
\r
-* What \r
After having read the first part of a Rcpp tutorial which compared native R vs C++ implementations of a Fibonacci sequence generator, I resorted to drawing the so-called Golden Spiral using R.\r
\r
-* Details\r
Libraries used in this example are the following\r
\r
#+BEGIN_SRC R :session R\r
#+RESULTS:\r
: TRUE\r
\r
-* Result\r
With everything now ready in the right coordinate system, it's now only a matter of setting some options to make the output look acceptable.\r
#+BEGIN_SRC R :session R :results output file graphics :file ../assets/golden_spiral-ggplot-coord-fixed.png :width 800 :height 800 :exports both\r
ggplot(df, aes(x=X1,y=X2)) +\r
y = "")\r
#+END_SRC\r
\r
-* Note on how this post was written.\r
-After a long hiatus, I set about using emacs, org-mode and ESS together to create this post. All code is part of an .org file, and gets exported to markdown using the orgmode conversion - C-c C-e m m.\r
+Note on how this post was written: After a long hiatus, I set about using emacs, org-mode and ESS together to create this post. All code is part of an .org file, and gets exported to markdown using the orgmode conversion - C-c C-e m m.\r
#+filetags: :R:analysis:
#+title: Explore Australian road fatalities.
-** Road fatalities in Australia
-:PROPERTIES:
-:CUSTOM_ID: road-fatalities-in-australia
-:END:
Recently inspired to doing a little analysis again, I landed on a
dataset from
[[https://bitre.gov.au/statistics/safety/fatal_road_crash_database.aspx]],
** Trends
:PROPERTIES:
:CUSTOM_ID: trends
+:HTML_CONTAINER_CLASS: card-body
:END:
I started by looking at the trends - what is the approximate number of
road fatalities a year, and how is it evolving over time? Are there any
** What age group is most at risk in city traffic?
:PROPERTIES:
:CUSTOM_ID: what-age-group-is-most-at-risk-in-city-traffic
+:HTML_CONTAINER_CLASS: card-body
:END:
Next, I wondered if there were any particular ages that were more at
risk in city traffic. I opted to quickly bin the data to produce a
** Hypothesis
:PROPERTIES:
:CUSTOM_ID: hypothesis
+:HTML_CONTAINER_CLASS: card-body
:END:
Based on the above, I wondered - are people above 65 more likely to die
in slow traffic areas? To make this a bit easier, I added two variables
** Conclusion
:PROPERTIES:
:CUSTOM_ID: conclusion
+:HTML_CONTAINER_CLASS: card-body
:END:
It's possible to conclude older people are over-represented in the
fatalities in lower speed zones. Further ideas for investigation are