Shige's Research Blog

Friday, February 26, 2021

Thunderbird conversation mode

 Just discovered Thunderbird conversations extension that displays Thunderbird emails like Gmail. Very cool. 

Thursday, February 25, 2021

Convert email to event or task

 I just found out that Thunderbird can convert an email into an event or task with deadline. This is extremely useful for me. 

Monday, February 15, 2021

Using tikzDevice in R Markdown document

 When I was LaTeX user in the past, I like TikZ and tikzDevice a lot. After switching to R Markdown, however, I gradually forgot about them. Today I spent some time figuring out how to make TikZ and tikzDevice work for R Markdown. Here is some simple code: 

---
title: "Using tikzDevice"
output: 
  pdf_document: 
    latex_engine: xelatex
    keep_tex: yes
    includes:
      in_header: setup.tex
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
```{r, fig.cap="Without tikzDevice"}
x<- rnorm(10)
y<-x +rnorm(5,sd=0.25)
model <- lm(y~x)
rsq<- summary(model)$r.squared
rsq<- signif(rsq,4)
plot(x, y, main='Hello \\LaTeX!')
abline(model,col='red')
mtext(paste("Linear model:$R^{2}=",
            rsq, "$"), line=0.5)
legend('bottomright',legend=paste("$y = ",round(coef(model)[2],3),'x +',round(coef(model)[1],3),'$',sep =''), bty ='n')
```
```{r, echo=FALSE}
library(tikzDevice)
```
```{r, echo=FALSE, message=FALSE, results='hide'}
tikz('latexEx.tex',width=7,height=4.5)
x<- rnorm(10)
y<-x +rnorm(5,sd=0.25)
model <- lm(y~x)
rsq<- summary(model)$r.squared
rsq<- signif(rsq,4)
plot(x, y, main='Hello \\LaTeX!')
abline(model,col='red')
mtext(paste("Linear model:$R^{2}=",
            rsq, "$"), line=0.5)
legend('bottomright',legend=paste("$y = ",round(coef(model)[2],3),'x +',round(coef(model)[1],3),'$',sep =''), bty ='n')
dev.off()
```
```{r, fig.cap="With tikzDevice", message=FALSE, engine='tikz'}
\input{latexEx.tex}

Saturday, January 30, 2021

ggfittext

ggfittext provides some useful text displaying capability to ggplot2, including a new geom called geom_bar_text

Friday, January 08, 2021

BayesPostEst

 Finally a modern Bayesian implementation of the Zelig package here.

Wednesday, December 30, 2020

Estimating and testing GLMs with `emmeans`

This post shows how to use emmeans package to generate first difference with confidence intervals. 

Monday, November 30, 2020

Getting past the little hiccups to getting plotly animations into slides

 Very helpful post regarding how to use plotly graph in xaringan slides. 

Counter