-
Notifications
You must be signed in to change notification settings - Fork 0
/
_Autoreport-1.Rmd
133 lines (80 loc) · 2.46 KB
/
_Autoreport-1.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
---
title: "R Notebook"
output: html_notebook
---
---
```
print(paste0("Git Update Started at: ", Sys.time()))
CommitMessage <- paste("updated on: ", Sys.time(), sep = "")
wd <- "~/serdarbalci"
setorigin <- "git remote set-url origin git@github.com:sbalci/MyJournalWatch.git \n"
gitCommand <- paste("cd ", wd, " \n git add . \n git commit --message '", CommitMessage, "' \n", setorigin, "git push origin master \n", sep = "")
system(command = paste(gitCommand, "\n") , intern = TRUE, wait = TRUE)
Sys.sleep(5)
print(paste0("Git Update Ended at: ", Sys.time()))
```
---
## Describe results of analysis
Copy/paste t-tests Directly to Manuscripts: https://neuropsychology.github.io/psycho.R//2018/06/19/analyze_ttest.html
https://github.com/neuropsychology/psycho.R
```r
# Load packages
library(tidyverse)
# devtools::install_github("neuropsychology/psycho.R") # Install the latest psycho version
library(psycho)
```
```r
df <- psycho::affective # Load the data
df
```
```r
results <- t.test(df$Age ~ df$Sex) # Perform a simple t-test
results
```
```r
psycho::analyze(results)
```
```r
t.test(df$Adjusting ~ df$Sex,
var.equal=TRUE,
conf.level = .90) %>%
psycho::analyze()
```
```r
t.test(df$Adjusting,
mu = 0,
conf.level = .90) %>%
psycho::analyze()
```
```r
t.test(df$Adjusting ~ df$Sex) %>%
psycho::analyze() %>%
summary()
```
# citation
```{r PubMed references}
PMID_25783680 <- RefManageR::ReadPubMed("25783680", database = "PubMed")
cit_25783680 <- paste0(PMID_25783680$title, " ", PMID_25783680$journal, " ", "PMID: https://www.ncbi.nlm.nih.gov/pubmed/?term=", PMID_25783680$eprint, " ", "doi: https://doi.org/", PMID_25783680$doi)
```
My next citation is here^[`r # cit_25783680`].
```{r dimension badge}
PMID_25783680 <- RefManageR::ReadPubMed("25783680", database = "PubMed")
dimensionBadge <- paste0(
"<script async='' charset='utf-8' src='https://badge.dimensions.ai/badge.js'></script>
<span class='__dimensions_badge_embed__' data-doi='",
PMID_25783680$doi,
"' data-style='small_circle'></span>"
)
```
`r # dimensionBadge`
```r
PMID_25783680 <- RefManageR::ReadPubMed("25783680", database = "PubMed")
altmetricBadge <- paste0(
"<script type='text/javascript' src='https://d1bxh8uas1mnw7.cloudfront.net/assets/embed.js'></script>
<span class='altmetric-embed' data-badge-popover='right' data-badge-type='donut' data-doi='",
PMID_25783680$doi,
"'></span>"
)
```
`r # altmetricBadge`
-