GitPlanet

Cheap and reliable Node.js hosting starts at $3/month, and $1/month static HTML hosting

Created with love in Canada, visit hostnodejs.com today

Feel like to post an Ad? Learn Details
All Projects → tjmahr → rprime

tjmahr / rprime

Licence: GPL-2.0 license
R package for dealing with Eprime txt files

Programming Languages

r
7636 projects

Labels

psychologypsychology-experimentseprime

Projects that are alternatives of or similar to rprime

MouseView.js
Attentional mouse tracking. Alternative to online eye tracking. Eye tracking without the eyes!
Stars: ✭ 46 (+109.09%)
Mutual labels:  psychology, psychology-experiments
convert-eprime
Python functions to convert E-Prime files to csvs. Not currently being developed, but issues and PRs welcome!
Stars: ✭ 36 (+63.64%)
Mutual labels:  psychology-experiments, eprime
JATOS
Just Another Tool for Online Studies
Stars: ✭ 60 (+172.73%)
Mutual labels:  psychology, psychology-experiments
awesome-psychology
An awesome list of psychology courses, videos and books. Please, contribute!
Stars: ✭ 68 (+209.09%)
Mutual labels:  psychology, psychology-experiments
habitus
🏄 State-of-the-art Tracker for emotions, habits and thoughts. | Gamified. | Anonymous and open source. | Healthiest version of you
Stars: ✭ 23 (+4.55%)
Mutual labels:  psychology, psychology-experiments
Openmx
Repository for the OpenMx Structural Equation Modeling package
Stars: ✭ 60 (+172.73%)
Mutual labels:  psychology
Efaqa Corpus Zh
❤️Emotional First Aid Dataset, 心理咨询问答、聊天机器人语料库
Stars: ✭ 170 (+672.73%)
Mutual labels:  psychology
Neuropsydia.py
A Python Module for Creating Experiments, Tasks and Questionnaires.
Stars: ✭ 51 (+131.82%)
Mutual labels:  psychology
W3 Goto World
🍅 Git/AWS/Google 镜像 ,SS/SSR/VMESS节点,WireGuard,IPFS, DeepWeb,Capitalism 、行业研究报告的知识储备库
Stars: ✭ 7,886 (+35745.45%)
Mutual labels:  psychology
copycat
Modern port of Melanie Mitchell's and Douglas Hofstadter's Copycat
Stars: ✭ 84 (+281.82%)
Mutual labels:  psychology
catlearn
Formal Psychological Models of Categorization and Learning
Stars: ✭ 21 (-4.55%)
Mutual labels:  psychology
Lab.js
Online research made easy
Stars: ✭ 140 (+536.36%)
Mutual labels:  psychology
Awesome Social Engineering
A curated list of awesome social engineering resources.
Stars: ✭ 1,110 (+4945.45%)
Mutual labels:  psychology
Opensesame
Graphical experiment builder for the social sciences
Stars: ✭ 173 (+686.36%)
Mutual labels:  psychology
Manager Resources
😎 A curated list of resources for front-line engineering managers
Stars: ✭ 58 (+163.64%)
Mutual labels:  psychology
human-memory
Course materials for Dartmouth course: Human Memory (PSYC 51.09)
Stars: ✭ 239 (+986.36%)
Mutual labels:  psychology
Psychopy
For running psychology and neuroscience experiments
Stars: ✭ 1,020 (+4536.36%)
Mutual labels:  psychology
Pypsy
psychometrics package, including MIRT(multidimension item response theory), IRT(item response theory),GRM(grade response theory),CAT(computerized adaptive testing), CDM(cognitive diagnostic model), FA(factor analysis), SEM(Structural Equation Modeling) .
Stars: ✭ 123 (+459.09%)
Mutual labels:  psychology
Psycho.r
An R package for experimental psychologists
Stars: ✭ 113 (+413.64%)
Mutual labels:  psychology
Books
Books worth spreading
Stars: ✭ 161 (+631.82%)
Mutual labels:  psychology
View All Similar Projects ➔

rprime

Build Status Coverage Status CRAN_Status_Badge

rprime is an R package for parsing .txt generated by E-Prime, a program for running psychological experiments.

Overview

The main workflow for rprime involves:

  1. read_eprime: reliably read in data from an Eprime log (.txt) file.
  2. FrameList: extract the text in each "LogFrame" in the file, storing each log-frame as an R list.
  3. preview_levels, preview_eprime: explore the structure of the parsed data.
  4. keep_levels, drop_levels, filter_in, filter_out: select and filter particular levels from the txt-file.
  5. to_data_frame: make a data-frame from the parsed data.

Installation

To get the current, released version from CRAN:

install.packages("rprime")

Examples

Getting data into R

Load the file with read_eprime and parse its contents with FrameList.

library("rprime")
# Read in an Eprime text file
experiment_lines <- read_eprime("data/SAILS/SAILS_001X00XS1.txt")

# Extract and parse the log-frames from the file
experiment_data <- FrameList(experiment_lines)

Exploring

In the text file, frames were distinguished by the procedure they are running as well as the their level of nesting. Get an overview of the different types of frames with preview_levels.

# There are six different kinds of frames in this file
preview_levels(experiment_data)
#> Level Counts: 
#>  Eprime.Level       Running         Procedure freq
#>             1        Header            Header    1
#>             3 PracticeBlock PracticeTrialProc   10
#>             2  PracticeList      PracticeProc    1
#>             3    TrialLists         TrialProc   70
#>             2     BlockList         BlockProc    7
#>             1          <NA>              <NA>    1

Get a preview of the data in each kind of frame with preview_frames.

preview_frames(experiment_data)
#> 
#>  Eprime.Level Running Procedure
#>             1  Header    Header
#> List of 22
#>  $ Eprime.Level       : num 1
#>  $ Eprime.LevelName   : chr "Header_"
#>  $ Eprime.Basename    : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber : chr "1"
#>  $ Procedure          : chr "Header"
#>  $ Running            : chr "Header"
#>  $ VersionPersist     : chr "1"
#>  $ LevelName          : chr "LogLevel10"
#>  $ Experiment         : chr "SAILS"
#>  $ SessionDate        : chr "12-01-2013"
#>  $ SessionTime        : chr "11:00:00"
#>  $ SessionTimeUtc     : chr "5:00:00 PM"
#>  $ Dilaect            : chr "Yes"
#>  $ Subject            : chr "001"
#>  $ ExpTyp             : chr "X"
#>  $ Age                : chr "00"
#>  $ Gender             : chr "X"
#>  $ Session            : chr "1"
#>  $ ChildNativeDialect : chr "S"
#>  $ RandomSeed         : chr "-676084859"
#>  $ Group              : chr "1"
#>  $ Display.RefreshRate: chr "60.004"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"
#> 
#>  Eprime.Level       Running         Procedure
#>             3 PracticeBlock PracticeTrialProc
#> List of 25
#>  $ Eprime.Level            : num 3
#>  $ Eprime.LevelName        : chr "PracticeBlock_1"
#>  $ Eprime.Basename         : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber      : chr "2"
#>  $ Procedure               : chr "PracticeTrialProc"
#>  $ Running                 : chr "PracticeBlock"
#>  $ Practice                : chr "1"
#>  $ Sound                   : chr "LAKE1.WAV"
#>  $ Correct                 : chr "Word"
#>  $ Module                  : chr "LAKE"
#>  $ Color                   : chr "red"
#>  $ WordImage               : chr "lake"
#>  $ NonWordImage            : chr "notlake"
#>  $ PuzzleImage             : chr "up"
#>  $ Cycle                   : chr "1"
#>  $ Sample                  : chr "1"
#>  $ TrialSlide.OnsetDelay   : chr "197"
#>  $ TrialSlide.OnsetTime    : chr "899413"
#>  $ TrialSlide.DurationError: chr "-999999"
#>  $ TrialSlide.RTTime       : chr "0"
#>  $ TrialSlide.ACC          : chr "0"
#>  $ TrialSlide.RT           : chr "0"
#>  $ TrialSlide.RESP         : chr ""
#>  $ TrialSlide.CRESP        : chr ""
#>  $ Response                : chr "Word"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"
#> 
#>  Eprime.Level      Running    Procedure
#>             2 PracticeList PracticeProc
#> List of 11
#>  $ Eprime.Level      : num 2
#>  $ Eprime.LevelName  : chr "PracticeList_1"
#>  $ Eprime.Basename   : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber: chr "12"
#>  $ Procedure         : chr "PracticeProc"
#>  $ Running           : chr "PracticeList"
#>  $ Cycle             : chr "1"
#>  $ Sample            : chr "1"
#>  $ PuzzleMovie       : chr "up"
#>  $ TrainingNonWord   : chr "notlake"
#>  $ TrainingWord      : chr "lake"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"
#> 
#>  Eprime.Level    Running Procedure
#>             3 TrialLists TrialProc
#> List of 25
#>  $ Eprime.Level            : num 3
#>  $ Eprime.LevelName        : chr "TrialLists_1"
#>  $ Eprime.Basename         : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber      : chr "13"
#>  $ Procedure               : chr "TrialProc"
#>  $ Running                 : chr "TrialLists"
#>  $ Sound                   : chr "LAKE23B.WAV"
#>  $ Correct                 : chr "Word"
#>  $ LakeLevel1              : chr "8"
#>  $ Module                  : chr "LAKE"
#>  $ Color                   : chr "blue"
#>  $ WordImage               : chr "lake"
#>  $ NonWordImage            : chr "notlake"
#>  $ PuzzleImage             : chr "butterfly"
#>  $ TrialSlide.OnsetDelay   : chr "119"
#>  $ TrialSlide.OnsetTime    : chr "1023939"
#>  $ TrialSlide.DurationError: chr "-999999"
#>  $ TrialSlide.RTTime       : chr "0"
#>  $ TrialSlide.ACC          : chr "0"
#>  $ TrialSlide.RT           : chr "0"
#>  $ TrialSlide.RESP         : chr ""
#>  $ TrialSlide.CRESP        : chr ""
#>  $ Response                : chr "Word"
#>  $ Cycle                   : chr "1"
#>  $ Sample                  : chr "1"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"
#> 
#>  Eprime.Level   Running Procedure
#>             2 BlockList BlockProc
#> List of 11
#>  $ Eprime.Level      : num 2
#>  $ Eprime.LevelName  : chr "BlockList_1"
#>  $ Eprime.Basename   : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber: chr "23"
#>  $ Procedure         : chr "BlockProc"
#>  $ Running           : chr "BlockList"
#>  $ PuzzleMovie       : chr "butterfly"
#>  $ TrainingNonWord   : chr "notlake"
#>  $ TrainingWord      : chr "lake"
#>  $ Cycle             : chr "1"
#>  $ Sample            : chr "1"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"
#> 
#>  Eprime.Level Running Procedure
#>             1    <NA>      <NA>
#> List of 20
#>  $ Eprime.Level       : num 1
#>  $ Eprime.LevelName   : logi NA
#>  $ Eprime.Basename    : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber : chr "90"
#>  $ Procedure          : logi NA
#>  $ Running            : logi NA
#>  $ Experiment         : chr "SAILS"
#>  $ SessionDate        : chr "12-01-2013"
#>  $ SessionTime        : chr "11:00:00"
#>  $ SessionTimeUtc     : chr "5:00:00 PM"
#>  $ Dilaect            : chr "Yes"
#>  $ Subject            : chr "001"
#>  $ ExpTyp             : chr "X"
#>  $ Age                : chr "00"
#>  $ Gender             : chr "X"
#>  $ Session            : chr "1"
#>  $ ChildNativeDialect : chr "S"
#>  $ RandomSeed         : chr "-676084859"
#>  $ Group              : chr "1"
#>  $ Display.RefreshRate: chr "60.004"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"

preview_eprime (not demonstrated here) does both kinds of previews (levels and frames).

Filtering

Use keep_levels and drop_levels to filter frames according to nesting level.

# Filter (out) by depth of nesting
not_level_1 <- drop_levels(experiment_data, 1)
preview_levels(not_level_1)
#> Level Counts: 
#>  Eprime.Level       Running         Procedure freq
#>             3 PracticeBlock PracticeTrialProc   10
#>             2  PracticeList      PracticeProc    1
#>             3    TrialLists         TrialProc   70
#>             2     BlockList         BlockProc    7

# Filter (in) by depth of nesting
just_level_3 <- keep_levels(experiment_data, 3)
preview_levels(just_level_3)
#> Level Counts: 
#>  Eprime.Level       Running         Procedure freq
#>             3 PracticeBlock PracticeTrialProc   10
#>             3    TrialLists         TrialProc   70

Use filter_in and filter_out to filter frames using attribute values. Use repeated filtering statements to drill down into the list of frames.

# Filter (out) by attribute values
no_header <- filter_out(experiment_data, "Running", values = "Header")
preview_levels(no_header)
#> Level Counts: 
#>  Eprime.Level       Running         Procedure freq
#>             3 PracticeBlock PracticeTrialProc   10
#>             2  PracticeList      PracticeProc    1
#>             3    TrialLists         TrialProc   70
#>             2     BlockList         BlockProc    7
#>             1          <NA>              <NA>    1

# Filter (in) by attribute values
not_practice <- filter_in(experiment_data, "Running", "TrialLists")
preview_levels(not_practice)
#> Level Counts: 
#>  Eprime.Level    Running Procedure freq
#>             3 TrialLists TrialProc   70

# Drill down further into the trials by filtering again
sue_trials <- filter_in(not_practice, "Module", "SUE")
preview_eprime(sue_trials)
#> Level Counts: 
#>  Eprime.Level    Running Procedure freq
#>             3 TrialLists TrialProc   30
#> 
#>  Eprime.Level    Running Procedure
#>             3 TrialLists TrialProc
#> List of 25
#>  $ Eprime.Level            : num 3
#>  $ Eprime.LevelName        : chr "TrialLists_5"
#>  $ Eprime.Basename         : chr "SAILS_001X00XS1"
#>  $ Eprime.FrameNumber      : chr "57"
#>  $ Procedure               : chr "TrialProc"
#>  $ Running                 : chr "TrialLists"
#>  $ Sound                   : chr "SUE4.WAV"
#>  $ Correct                 : chr "Word"
#>  $ SueLevel1               : chr "10"
#>  $ Module                  : chr "SUE"
#>  $ Color                   : chr "blue"
#>  $ WordImage               : chr "sue"
#>  $ NonWordImage            : chr "notsue"
#>  $ PuzzleImage             : chr "madagascar"
#>  $ TrialSlide.OnsetDelay   : chr "127"
#>  $ TrialSlide.OnsetTime    : chr "1360767"
#>  $ TrialSlide.DurationError: chr "-999999"
#>  $ TrialSlide.RTTime       : chr "0"
#>  $ TrialSlide.ACC          : chr "0"
#>  $ TrialSlide.RT           : chr "0"
#>  $ TrialSlide.RESP         : chr ""
#>  $ TrialSlide.CRESP        : chr ""
#>  $ Response                : chr "Word"
#>  $ Cycle                   : chr "1"
#>  $ Sample                  : chr "41"
#>  - attr(*, "class")= chr [1:2] "EprimeFrame" "list"

Exporting

Convert to a dataframe with to_dataframe. Attribute names in the log-frames become column names in the dataframe.

# Export to dataframe
sue_trials_df <- to_data_frame(sue_trials)
str(sue_trials_df)
#> 'data.frame':    30 obs. of  27 variables:
#>  $ Eprime.Level            : num  3 3 3 3 3 ...
#>  $ Eprime.LevelName        : chr  "TrialLists_5" "TrialLists_5" ...
#>  $ Eprime.Basename         : chr  "SAILS_001X00XS1" "SAILS_001X00XS1" ...
#>  $ Eprime.FrameNumber      : chr  "57" "58" ...
#>  $ Procedure               : chr  "TrialProc" "TrialProc" ...
#>  $ Running                 : chr  "TrialLists" "TrialLists" ...
#>  $ Sound                   : chr  "SUE4.WAV" "SUE15.WAV" ...
#>  $ Correct                 : chr  "Word" "NotWord" ...
#>  $ SueLevel1               : chr  "10" "2" ...
#>  $ Module                  : chr  "SUE" "SUE" ...
#>  $ Color                   : chr  "blue" "blue" ...
#>  $ WordImage               : chr  "sue" "sue" ...
#>  $ NonWordImage            : chr  "notsue" "notsue" ...
#>  $ PuzzleImage             : chr  "madagascar" "madagascar" ...
#>  $ TrialSlide.OnsetDelay   : chr  "127" "98" ...
#>  $ TrialSlide.OnsetTime    : chr  "1360767" "1364450" ...
#>  $ TrialSlide.DurationError: chr  "-999999" "-999999" ...
#>  $ TrialSlide.RTTime       : chr  "0" "0" ...
#>  $ TrialSlide.ACC          : chr  "0" "0" ...
#>  $ TrialSlide.RT           : chr  "0" "0" ...
#>  $ TrialSlide.RESP         : chr  "" "" ...
#>  $ TrialSlide.CRESP        : chr  "" "" ...
#>  $ Response                : chr  "Word" "NotWord" ...
#>  $ Cycle                   : chr  "1" "1" ...
#>  $ Sample                  : chr  "41" "42" ...
#>  $ SueLevel2               : chr  NA NA ...
#>  $ SueLevel3               : chr  NA NA ...

# Don't need every column
columns_to_keep <- c("Eprime.Basename", "Module", "Sample", 
                     "Correct", "Response")
sue_trials_df <- sue_trials_df[columns_to_keep]
head(sue_trials_df)
#>   Eprime.Basename Module Sample Correct Response
#> 1 SAILS_001X00XS1    SUE     41    Word     Word
#> 2 SAILS_001X00XS1    SUE     42 NotWord  NotWord
#> 3 SAILS_001X00XS1    SUE     43 NotWord     Word
#> 4 SAILS_001X00XS1    SUE     44    Word     Word
#> 5 SAILS_001X00XS1    SUE     45 NotWord  NotWord
#> 6 SAILS_001X00XS1    SUE     46    Word     Word

Note: rprime thinks that all the values in the final dataframe are character values. You can use type_convert in the readr package to correct the column types:

# Right now the sample numbers are stored as character values
str(sue_trials_df)
#> 'data.frame':    30 obs. of  5 variables:
#>  $ Eprime.Basename: chr  "SAILS_001X00XS1" "SAILS_001X00XS1" ...
#>  $ Module         : chr  "SUE" "SUE" ...
#>  $ Sample         : chr  "41" "42" ...
#>  $ Correct        : chr  "Word" "NotWord" ...
#>  $ Response       : chr  "Word" "NotWord" ...

library("readr")
sue_trials_df <- type_convert(sue_trials_df)
# Now, they are stored as integers...
str(sue_trials_df)
#> 'data.frame':    30 obs. of  5 variables:
#>  $ Eprime.Basename: chr  "SAILS_001X00XS1" "SAILS_001X00XS1" ...
#>  $ Module         : chr  "SUE" "SUE" ...
#>  $ Sample         : int  41 42 43 44 45 ...
#>  $ Correct        : chr  "Word" "NotWord" ...
#>  $ Response       : chr  "Word" "NotWord" ...
Note that the project description data, including the texts, logos, images, and/or trademarks, for each open source project belongs to its rightful owner. If you wish to add or remove any projects, please contact us at [email protected].