diff --git a/associations.org b/associations.org index 8a41522..6d6cc89 100644 --- a/associations.org +++ b/associations.org @@ -5,7 +5,7 @@ #+NAME: sassociation1 -#+BEGIN_SRC R :results output list org :exports results +#+BEGIN_SRC R :results output list org library(data.table) readRDS("plfsdata/plfsacjdata.rds")->worker worker$standardwage->worker$wage @@ -42,7 +42,7 @@ #+NAME: sassociation2 -#+BEGIN_SRC R :results output list org :exports results +#+BEGIN_SRC R :results output list org lm(wage~sex+age+years_edu, data=worker)->t summary(t) @@ -184,7 +184,7 @@ #+end_src #+NAME: sassociation3 -#+BEGIN_SRC R :results output graphics :exports results :file bsample2.png :width 2500 :height 1500 :res 300 +#+BEGIN_SRC R :results output graphics :file bsample2.png :width 2500 :height 1500 :res 300 library(data.table) readRDS("plfsdata/plfsacjdata.rds")->worker worker$standardwage->worker$wage @@ -205,7 +205,7 @@ [[file:bsample2.png]] #+NAME: roughwork -#+BEGIN_SRC R :results output list org :exports results +#+BEGIN_SRC R :results output list org worker->t t[,years_edu:=as.numeric(years_edu)] t[years_edu==0,category:=3]