-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
30 changed files
with
1,018 additions
and
69 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,8 @@ | ||
| title: embedpdf | ||
| author: Jeffrey Girard | ||
| version: 0.2.0 | ||
| quarto-required: ">=1.3.0" | ||
| contributes: | ||
| shortcodes: | ||
| - embedpdf.lua | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,35 @@ | ||
| function pdf(args, kwargs) | ||
| local data = pandoc.utils.stringify(args[1]) | ||
| local width = pandoc.utils.stringify(kwargs['width']) | ||
| local height = pandoc.utils.stringify(kwargs['height']) | ||
| local class = pandoc.utils.stringify(kwargs['class']) | ||
| local border = pandoc.utils.stringify(kwargs['border']) | ||
|
|
||
| if width ~= '' then | ||
| width = 'width="' .. width .. '" ' | ||
| end | ||
|
|
||
| if height ~= '' then | ||
| height = 'height="' .. height .. '" ' | ||
| end | ||
|
|
||
| if class ~= '' then | ||
| class = 'class="' .. class .. '" ' | ||
| end | ||
|
|
||
| if border ~= '' then | ||
| border = 'border="' .. border .. '" ' | ||
| end | ||
|
|
||
| -- detect html | ||
| if quarto.doc.isFormat("html:js") then | ||
| return pandoc.RawInline('html', '<object data="' .. data .. '" type="application/pdf"' .. width .. height .. class .. border .. '><p>Unable to display PDF file. <a href="' .. data .. '">Download</a> instead.</p></object>') | ||
| else | ||
| return pandoc.Null() | ||
| end | ||
|
|
||
| end | ||
|
|
||
| function embedpdf(...) | ||
| return pdf(...) | ||
| end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,17 @@ | ||
| { | ||
| "hash": "757ae8f9435577e3ea1b0f57aef93c29", | ||
| "result": { | ||
| "engine": "knitr", | ||
| "markdown": "---\ntitle: \"SAS 2024 Conference\"\ndescription: \"Society for Affective Science\"\nauthor: \"Dasha Yermol\"\ndate: \"2024-03-02\"\nimage: conference.webp\ndraft: false\ncategories:\n - announcement\n - conference\nformat:\n html:\n code-fold: true\n code-summary: \"Show the code\"\n page-layout: full\n toc: false\n---\n\n\n\n### Does Smile Synchrony Predict Working Alliance Quality in Psychotherapy?\n\n\n\n\n\n\n\n\n<style>\n.pdf {\n width: 100%;\n height: 600px;\n border: 4px solid grey;\n margin: 0;\n}\n</style>\n\n\n\n{{< pdf SAS2024.pdf class=pdf >}}\n\n\n\n\n## Additional Figures Below\n\n### Histograms of Variables:\n\n::: {.cell}\n::: {.cell-output-display}\n{width=672}\n:::\n:::\n\n\n\n\n\n::: {.cell}\n::: {.cell-output-display}\n{width=672}\n:::\n:::\n\n\n\n## Figures including all sessions and patients (without clustering):\n\n::: {.cell}\n\n```{.r .cell-code}\ndata %>% \n ggplot(mapping = aes(x = fisher_z, y = wai)) +\n geom_point() +\n geom_smooth(method = \"lm\", se = FALSE, fullrange = TRUE) +\n labs(\n x = \"Smile Synchrony\",\n y = \"Working Alliance Scores\",\n title = \"Working Alliance by Smile Synchrony\"\n )\n```\n\n::: {.cell-output-display}\n{width=672}\n:::\n:::\n\n###### In this figure, each dot represents the relationship between working alliance scores and smile synchrony (including all sessions from patients)\n##\n\n::: {.cell}\n\n```{.r .cell-code}\ndata %>% \n ggplot(mapping = aes(x = fisher_z, y = wai, colour = factor(patient_id))) +\n geom_point() +\n geom_smooth(mapping = aes(group = patient_id), method = \"lm\", se = FALSE, fullrange = TRUE) +\n labs(\n colour = \"Patient ID\",\n x = \"Smile Synchrony\",\n y = \"Working Alliance Scores\",\n title = \"Working Alliance by Smile Synchrony\"\n )\n```\n\n::: {.cell-output-display}\n{width=672}\n:::\n:::\n\n###### In this figure, each line represents the relationship between working alliance scores and smile synchrony for each patient. This figure includes data from all sessions.\n\n##\n\n## Figures split by individual patients:\n\n::: {.cell}\n\n```{.r .cell-code}\ndata %>% \n group_by(patient_id) %>%\n ggplot(mapping = aes(x = fisher_z, y = wai)) + \n geom_point() +\n geom_smooth(mapping = aes(group = patient_id), method = \"lm\", se = FALSE, fullrange = TRUE) +\n labs(title = \"Working Alliance by Smile Synchrony for each Patient\",\n x = \"Smile Synchrony\",\n y = \"Working Alliance Scores\") +\n scale_x_continuous(breaks=seq(from=0.2,to=0.4,by=0.1)) +\n coord_cartesian(xlim = c(0.2, 0.4), ylim = c(0, 70)) +\n theme_gray(base_size = 12) +\n theme(plot.title = element_text(hjust = 0.5)) +\n facet_wrap(~patient_id, ncol = 8) +\n theme(panel.spacing = grid::unit(1, \"lines\"))\n```\n\n::: {.cell-output-display}\n{width=100%}\n:::\n:::\n\n###### Each subfigure represents the relationship between working alliance scores and smile synchrony for each patient. This figure includes data from all sessions, but we have some missing data (e.g., patient #1025, patient #1072).\n\n##\n\n\n::: {.cell}\n\n```{.r .cell-code}\ndata %>% \n group_by(session) %>%\n ggplot(mapping = aes(x = session, y = wai)) + \n coord_cartesian(ylim = c(20, 65)) +\n geom_point() +\n geom_smooth(mapping = aes(group = patient_id), method = \"lm\", se = FALSE, fullrange = TRUE) +\n labs(title = \"Working Alliance Scores across Sessions\",\n x = \"Session\",\n y = \"Working Alliance Scores\") +\n theme_gray(base_size = 12) +\n theme(plot.title = element_text(hjust = 0.5)) +\n facet_wrap(~patient_id)\n```\n\n::: {.cell-output-display}\n{width=100%}\n:::\n:::\n\n\n##\n\n\n::: {.cell}\n\n```{.r .cell-code}\ndata %>% \n group_by(session) %>%\n ggplot(mapping = aes(x = session, y = fisher_z)) +\n geom_point() +\n geom_smooth(mapping = aes(group = patient_id), method = \"lm\", se = FALSE, fullrange = TRUE) +\n labs(title = \"Smile Synchrony across Sessions\",\n x = \"Session\",\n y = \"Smile Synchrony\") +\n scale_y_continuous(breaks=seq(from=0.2,to=0.4,by=0.1)) +\n theme_gray(base_size = 12) +\n theme(plot.title = element_text(hjust = 0.5)) +\n facet_wrap(~patient_id)\n```\n\n::: {.cell-output-display}\n{width=100%}\n:::\n:::\n", | ||
| "supporting": [ | ||
| "index_files" | ||
| ], | ||
| "filters": [ | ||
| "rmarkdown/pagebreak.lua" | ||
| ], | ||
| "includes": {}, | ||
| "engineDependencies": {}, | ||
| "preserve": {}, | ||
| "postProcess": true | ||
| } | ||
| } |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Binary file not shown.
Oops, something went wrong.