# expectedPromptIndex ```r expectedPromptIndex(esDf, expectedPromptIndexList, RELEVANTINFO_ES = NULL, RELEVANTVN_ES = NULL) ``` ## Arguments - `esDf`: a data.frame. A single ESM dataset. It must contain the 2 columns that hold the date-time object for when an ESM questionnaire was started and finished, respectively. - `expectedPromptIndexList`: a list. Each list element must also be a list. Each of these inner lists must contain exactly 3 elements: first a character string specifying the ESM questionnaire version; second a vector of at least one integer specifying the daily prompt(s) that the first argument‘s version correspond(s) to, and third an integer specifying the time of day that the first argument‘s version corresponds to. - `RELEVANTINFO_ES`: a list. This list is generated by function `setES`. - `RELEVANTVN_ES`: a list. This list is generated by function `setES` and it is extended once either by function `genDateTime` or by function `splitDateTime`. ## Returns `esDf` with the additional columns PROMPTFALSE and EXPCATEGORY. See Details for more information. ## Details The return values directly correspond to the elements within the second argument: If there are prompt indices (as computed within the function 'esAssign') diverge from the expected prompt indices the variable PROMPTFALSE's value is 1, else 0. The variable EXPCATEGORY corresponds to category, with which the user expects the respective prompt(s) to be combined with. ## Examples ```r # o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o # Prerequisites in order to execute makeShift. Start ---------------- # Use example list delivered with the package RELEVANTINFO_ES <- RELEVANTINFO_ES # Use example list delivered with the package RELEVANTVN_ES <- RELEVANTVN_ESext # Use example list delivered with the package RELEVANTVN_REF <- RELEVANTVN_REFext # esAssigned is a list of datasets, delivered with the package. It is # the result of the assignment of the ESM questionnaires to ALL 8 # participants in the reference dataset. noEndDf <- missingEndDateTime(esAssigned[["ES"]], RELEVANTVN_ES) identDf <- esIdentical(noEndDf, RELEVANTVN_ES) sugShift <- suggestShift(identDf, 100, RELEVANTINFO_ES, RELEVANTVN_ES) keyPromptDf <- sugShift$suggestShiftDf[,c("NEW_PROMPT", "SHIFTKEY")] madeShift <- makeShift(sugShift, referenceDfNew, keyPromptDf, RELEVANTINFO_ES, RELEVANTVN_REF) # Prerequisites in order to execute makeShift. End ------------------- # ------------------------------------------------------- # Run function 23 of 29; see esmprep functions' hierarchy. # ------------------------------------------------------- # Generate second argument of function 'expectedPromptIndex'. It's strongly # recommended to read the explanation of this 2nd argument in the esmprep # vignette, function 'expectedPromptIndex'. expIdxList <- list( # I - the user - expect in the ESM version morningTestGroup that # prompt no.1 is always linked to the value 1. list("morningTestGroup", 1, 1), # I - the user - expect in the ESM version dayTestGroup that # prompt no. 2 and no.3 are always linked to the value 2. list("dayTestGroup", c(2, 3), 2), # Information of all further ESM versions are passed accordingly: list("eveningTestGroup", 4, 3), list("morningControlGroup", 1, 1), list("dayControlGroup", c(2,3), 2), list("eveningControlGroup", 4, 3)) # madeShiftDf$esDf is part of the output of function 'makeShift', if at # least one questionnaire was shifted to a neighboring prompt index. expectedDf <- expectedPromptIndex(madeShift$esDf, expIdxList, RELEVANTINFO_ES, RELEVANTVN_ES) # If no questionnaire is suggested for shifting (see function suggestShift) # use the result of function suggestShift as 1st argument, like this: # expectedDf <- expectedPromptIndex(sugShift$esDf, expIdxList, RELEVANTINFO_ES, # RELEVANTVN_ES) # o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o ``` ## See Also Exemplary code (fully executable) in the documentation of `esmprep` (function 23 of 29).

expectedPromptIndex function