Keon-Woong Moon
2014-4-25
library(compareGroups)
data(predimed)
predimed 데이타의 모든 변수를 그룹별로 비교할거다
res=compareGroups(group ~ . , data=predimed)
표를 만들어라
createTable(res)
그룹별로 나눠서 비교할거다
res = compareGroups(group ~ .-sex-hormo, data=predimed)
모든 환자, 남자환자만, 여자환자만 따로 표를 세개 만든다
alltab=createTable(res)
femaletab=createTable(update(res,subset=sex=="Female"))
maletab=createTable(update(res,subset=sex=="Male"))
표 세개를 합친다.
cbind("ALL"=alltab,"FEMALE"=femaletab,"MALE"=maletab)
Minimal Effort ; maximal result
Nice plots
“Remember that microarray analysis you did six months ago?
We ran a few more arrays.
Can you add them to the project and repeat the same analysis?”
“The statistical analyst who looked at the data I generated previously is no longer available.
Can you get someone else to analyze my new data set using the same methods
(and thus producing a report I can expect to understand)”
“Please write/edit the methods sections for the abstract/paper/grant proposal I am submitting based on the analysis you did several months ago.”
Selected articles published in Nature Genetics between January 2005 and December 2006 that had used profiling with microarrays
Of the 56 items retrieved electronically, 20 articles were considered potentially eligible for the project
The four teams were from
Each team was comprised of 3-6 scientists who worked together to evaluate each article.
Result could be reproduced : n=2
Reproduced with discrepancy : n=6
Could not be reproduced : n=10
First have an idea
e.g. stopping distance correlate with speed ?
All results(figures, tables) manually imported to Word
in a single dynamic document
In literate programming, an analytical document is composed of a descriptive narrative “woven” together with software code and computed results.
Advantages