{"Package":"webmorphR","Title":"Reproducible Stimuli","Date":"2022-06-01","Version":"0.1.1","Authors@R":"\nc(person(\ngiven = \"Lisa\",\nfamily = \"DeBruine\",\nrole = c(\"aut\", \"cre\", \"cph\"),\nemail = \"debruine@gmail.com\",\ncomment = c(ORCID = \"0000-0002-7523-5539\")\n),\nperson(\ngiven = \"Emily\",\nfamily = \"Cunningham\",\nrole = c(\"pfr\", \"ctb\"),\nemail = \"ekc00004@students.stir.ac.uk\"\n))","Description":"Create reproducible image stimuli,\nspecialised for face images with 'psychomorph' or 'webmorph' templates.","License":"CC BY 4.0","URL":"https://debruine.github.io/webmorphR/,\nhttps://github.com/debruine/webmorphR","BugReports":"https://github.com/debruine/webmorphR/issues","Depends":"R (>= 4.1.0)","Imports":"tools, grDevices, stats, dplyr, jsonlite, magick, geomorph,\nhttr, progress, rsvg, grid, ggplot2","Suggests":"shiny, shinyjs, shinydashboard, shinyWidgets, DT, gifski,\ntestthat, usethis, rmarkdown, covr","Encoding":"UTF-8","RoxygenNote":"7.2.0","NeedsCompilation":"no","Packaged":"2022-06-01 13:44:17 UTC; lisad","Author":"Lisa DeBruine [aut, cre, cph] (),\nEmily Cunningham [pfr, ctb]","Maintainer":"Lisa DeBruine ","Repository":"CRAN","Date/Publication":"2022-06-02 09:30:02 UTC","repoType":"cran","tarballUrl":"ftp://cran.r-project.org/pub/R/src/contrib/webmorphR_0.1.1.tar.gz","jsonAuthors":[{"name":"Lisa DeBruine","email":"debruine@gmail.com","maintainer":true},{"name":"Emily Cunningham","email":"ekc00004@students.stir.ac.uk","maintainer":false}],"readme":"\n\n\n# webmorphR

\n\n\n\n[![DOI](https://zenodo.org/badge/357819230.svg)](https://zenodo.org/badge/latestdoi/357819230)\n[![Lifecycle:\nexperimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)\n[![Codecov test\ncoverage](https://codecov.io/gh/debruine/webmorphR/branch/master/graph/badge.svg)](https://app.codecov.io/gh/debruine/webmorphR?branch=master)\n[![R-CMD-check](https://github.com/debruine/webmorphR/workflows/R-CMD-check/badge.svg)](https://github.com/debruine/webmorphR/actions)\n\n\nThe goal of webmorphR is to make the construction of image stimuli more\nreproducible, with a focus on face stimuli. While face stimuli used in\nresearch can often not be shared for ethical reasons, webmorphR allows\nyou to share recipes for creating stimuli with code, increasing\nreproducibility and encouraging generalisability to new faces.\n\nThis development of this package was funded by ERC grant \\#647910\n(KINSHIP).\n\n## Installation\n\nYou can (hopefully soon) install webmorphR from CRAN with:\n\n``` r\ninstall_packages(\"webmorphR\")\n```\n\nYou can install the development version from\n[GitHub](https://github.com/) with:\n\n``` r\n# install.packages(\"devtools\")\ndevtools::install_github(\"debruine/webmorphR\")\n```\n\n## Use\n\nThe code below produces the following figure reproducibly, and can be\napplied to any set of original images.\n\n![](man/figures/example.jpg)\n\nLoad images with [psychomorph/webmorph\ntemplates](https://debruine.github.io/webmorph/getting-started.html#delineate)\nor automatically delineate them. Use functions like `resize()`,\n`align()` and `crop()` to process the images reproducibly. Use webmorph\nfunctions to create composite or transformed faces. Use the plotting and\nlabelling functions to create figures.\n\n``` r\nlibrary(webmorphR)\n\n# load 6 images from the smiling demo set\noriginal <- demo_stim(dir = \"smiling\",\n pattern = \"002|013|030|064|094|099\") \n\n# resize and delineate the images (using Face++)\n# procrustes align and crop them to 80% size\nprocessed <- original |>\n resize(0.5) |>\n auto_delin(smiling, model = \"fpp106\") |>\n align(procrustes = TRUE) |>\n crop(width = 0.8, height = 0.8, y_off = 0)\n\n# rename and save individual images\nprocessed |>\n rename_stim(prefix = \"aligned_\") |>\n write_stim(dir = \"stimuli/smiling\")\n\n# average faces (using webmorph.org)\navg <- avg(processed)\n\n# combine individual faces in a grid the same height as the average face\ngrid <- plot(processed, \n ncol = 2, \n external_pad = FALSE,\n maxheight = height(avg))\n\n# draw template on the average face and add a label\ntem_viz <- avg |>\n draw_tem() |>\n label(text = \"Composite with Template\",\n size = 30, location = \"+0+10\")\n\n# combine the grid and tem_viz images and plot\nc(grid, tem_viz) |> \n plot(nrow = 1, maxwidth = 1500)\n```\n\n## Helper packages\n\nThere are also two helper packages that contain large demo stimulus\nfiles or functions that require python and dlib.\n\n``` r\ndevtools::install_github(\"debruine/webmorphR.stim\")\ndevtools::install_github(\"debruine/webmorphR.dlib\")\n```","jobInfo":{"package":"webmorphR","version":"0.1.1","parsingStatus":"success","parserVersion":1,"parsedAt":"2022-06-02T12:30:16+0000"}}

Description

Usage

Arguments

Value

See Also

Examples