.Rhistory

###############
# Preparation #
###############
#Clean workspace
rm(list=ls(all=T))
#Set working directory
setwd(dirname(getwd()))
getwd()
#Import used libraries
library(MASS)
library(grid)
library(magrittr)
library(data.table)
library(dplyr)
library(lmerTest)
library(MuMIn)
library(lattice)
library(lme4)
library(sjPlot)
library(ggplot2)
library(gridExtra)
library(psych)
library(languageR)
library(car)
library(dplyr)
library(sjmisc)
library(tidyr)
library(yarrr)
library(car)
library(plyr)
library(ggsignif)
library(effects)
inverse <- function(x) {-1000/x};
# Read in & preprocessing #
###########################
# Read in Lexical Variables
lexicalVars = read.csv("stimuli/lexicalVariables.csv")
lexicalVars$Length = nchar(as.character(lexicalVars$Word))
setnames(lexicalVars, c("SemD_P2_W"), c("SemD"))
lexicalVars = lexicalVars[,c("Word","SemD","Freq","Length")]
summary(lexicalVars)
str(lexicalVars)
armstrongStimuli = read.table("stimuli/Armstrong2016_Stimuli", sep=",", header=TRUE)
armstrongStimuli = merge(armstrongStimuli, lexicalVars, by="Word", all.x = TRUE)
str(armstrongStimuli)
summary(armstrongStimuli)
# Get stimuli & properties
###############################
armstrongStimuli = read.table("stimuli/Armstrong2016_Stimuli.csv", sep=",", header=TRUE)
armstrongStimuli = merge(armstrongStimuli, lexicalVars, by="Word", all.x = TRUE)
str(armstrongStimuli)
summary(armstrongStimuli)
str(armstrongStimuli)