info_tab <-
tabItem(tabName = "info_tab",
fluidRow(
box(
title = tags$b("lrd: An app for quickly scoring lexical data"),
collapsible = TRUE,
solidHeader = TRUE,
status = "primary",
width = 12,
p(" "),
HTML("<b>Application written by: </b>
Nicholas P. Maxwell, Erin M. Buchanan"),
p(" "),
HTML("<b>Cite our paper:</b> Maxwell, N. P., Huff, M. J, & Buchanan, E. M. The lrd Package: An R Package and Shiny Application for Processing Lexical Data."),
p(" "),
HTML("<b>How to navigate the app</b>:
Use the navigation side bar on the left to select
the type of data you are trying to score. You can
score free recall, cued recall, and sentence answers. <br>
On each page, you can upload your data and answer key
to score the data. Each of these boxes can be closed to view
other output from the function."),
p(" "),
HTML("<b>Arrange Data</b>:
Use the arrange data function to convert responses in wide
format (i.e., one row per participant) to long format (i.e.,
one row per answer per participant. All functions assume your data
is in long format!"),
p(" "),
HTML("<b>What is the scoring cutoff?</b>
Studies with open ended responses often have typos and other spelling
mistakes. The scoring cutoff ranges from 0 (most strict, must be
spelled exactly correct according to the answer key) to 5 (least
strict and many things will match, so choose this carefully).
What is this number? The score represents the number of insertions,
deletions, and substitutions one might need to convert the given
response to the answer key (Levenshtein distance). Therefore, a 1
represents one letter difference, while 5 represents 5 changes.")
) # box
) #fluidrow
) #close page
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.