Publications by Leonardo Sutandi
BEH1_indiv_setup
This script combines 5 blocks to 1 data set for each participant (change info in “Data set Configuration”). Script also prepare merging for each group (done in BEH2) and checks for validity effect per DON’T FORGET TO TAG REMOVED ARTIFACT-EPOCH IN DATASET CONF Look for “# Particpant ID” to configure participant details R Setup knitr::...
2292 sym R (21867 sym/24 pcs) 3 img
BEH2_merge
R Setup knitr::opts_chunk$set(echo = TRUE) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1 ##...
493 sym R (5819 sym/12 pcs)
BEH3_visualise
About This script visualise the data. R Setup Load data sets filepath <- "C:/R/exp_1/results/BEH/merged_group_dataset/" mergedC <- read_csv(paste0(filepath, "mergedC.csv")) mergedMA <- read_csv(paste0(filepath, "mergedMA.csv")) mergedMO <- read_csv(paste0(filepath, "mergedMO.csv")) mergedM <- read_csv(paste0(filepath, "mergedM.csv")) allGro...
374 sym Python (29670 sym/40 pcs) 9 img
exp_1 (EEG3 - LMM)
LMM Instruction Read Dataset fullData <- read_csv("C:/R/exp_1/results/eeg/fullData.csv") Behavioural Data # lmer(rtDet ~ 1 + group + trialType + cuePos + (1|id), data = data) Select Comparisons # Change for every comparisons data <- fullData |> filter(cuePos == "Left", hemis == "right", ROI == "Occ") EEG Data #QQ #Resid...
160 sym 1 img
exp_1 (BEH - Step 2 - Merge & Visualise)
R Setup About this script # 1) Combine all participant to their respective groups, then visualise them (by validity). 2) all groups are combined and visualised (by validity). 3) Visualise group differences C Read Dataset # Read all C participants # C_4 <- read_csv("C:/R/exp_1/results/BEH/indv_merge_dataset/C_4.csv") # C_5 <- read_csv("C:/R/exp_...
298 sym 7 img
exp_1 (BEH - Step 3 - LMM)
Load Dataset fullData <- read_csv("C:/R/exp_1/results/BEH/merged_group_dataset/allGroups.csv") LMM Instruction # lmer(outcome ~ 1 + predictor + (1|participant) + (1|item), data = data) # # random effects = interior parentheses (1|X) > participant, item; left of | vary by grouping factor on right | # fixed effect = not in parentheses > outcome...
129 sym 1 img
exp_1 (BEH - Individual Setup - Step 1)
# This script combines 4 blocks to 1 dataset for each participant (change info in "Dataset Configuration") R Setup Dataset Configuration # Select Participant grp <- "MA" num <- "20" ID <- paste0("participant_", num) participantSave <- paste0(grp, "_", num) # MA / MO / C block_1 <- read_csv(paste0("C:/MATLAB/exp_1/results/BEH/", grp, "/", I...
226 sym Python (7756 sym/11 pcs) 5 img
exp_1 (BEH - Merge & Visualise - Step 2)
R Setup About this script # 1) Combine all participant to their respective groups, then visualise them (by validity). 2) all groups are combined and visualised (by validity). 3) Visualise group differences C Read Dataset # Read all C participants # C_4 <- read_csv("C:/R/exp_1/results/BEH/indv_merge_dataset/C_4.csv") # C_5 <- read_csv("C:/R/exp_...
261 sym 6 img
exp_1 (BEH - LMM - Step 3)
Load Dataset fullData <- read_csv("C:/R/exp_1/results/BEH/merged_group_dataset/allGroups.csv") LMM Instruction # lmer(outcome ~ 1 + predictor + (1|participant) + (1|item), data = data) # # random effects = interior parentheses (1|X) > participant, item; left of | vary by grouping factor on right | # fixed effect = not in parentheses > outcome...
110 sym 1 img
ANOVA-Project1
knitr::opts_chunk$set(echo = TRUE) library(tidyverse) library(rstatix) library(lsr) library(ggpubr) library(flextable) library(emmeans) library(tableone) Dataset Upload Demographics vars <- c("age", "gender") cat <- c("gender") demotable <- CreateTableOne(vars = vars, data = demo, factorVars = cat) demotable ## ## ...
731 sym R (26144 sym/35 pcs) 2 img 22 tbl