Commit 4a7fab8c authored by Birte Gestefeld's avatar Birte Gestefeld
Browse files

daten und r code

parents
File added
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/FixationStability.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/FixationStability.R', encoding = 'UTF-8')
# fixation stability & accuracy in the antisaccade task
# parameters are determined for correct antisaccades and false prosaccades separately
rm(list = ls())
library(eye1)
library(here)
library(data.table)
library(tidyverse)
library(ggplot2)
library(fields)
library(NISTunits)
library(raster)
library(foreach)
source(
"C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Data_analysis\\pix2deg.R"
)
source(
"C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Data_analysis\\MS_Toolbox_R\\smoothdata.R"
)
RMS = function(sig) {
sqrt(mean((sig) ^ 2))
}
setwd(
"C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Data\\Prosaccade\\Session1"
)
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Data\\Prosaccade\\Session1\\FixationStability")
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Figures\\FixationStability\\Prosaccade\\Session1")
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Figures\\FixationStability\\Prosaccade\\Session1")
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Figures\\FixationStability\\Prosaccade\\Session1")
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Figures\\FixationStability")
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Figures\\FixationStability\\Prosaccade")
dir.create("C:\\Users\\Birte\\Desktop\\Projektarbeit Neurokognitive Psychologie\\Figures\\FixationStability\\Prosaccade\\Session1")
install.packages("devtools")
install.packages("devtools")
install.packages("devtools")
install.packages("devtools")
install.packages("devtools")
devtools::install_github("donaldRwilliams/vICC")
install.packages("vICC")
rm(list = ls())
library(vICC)
library(ggplot2)
congruent <- subset(flanker, cond == 0)
flanker
dat <- congruent[unlist(tapply(1:nrow(congruent),
congruent$id,
head, 25)), ]
fit <- vicc(
y = dat$rt,
group = dat$id,
chains = 2,
iter = 500,
burnin = 10,
type = "pick_group"
)
fit
plts <- plot(fit)
plts$plot_icc1 +
theme(axis.text.x=element_text(angle=90, hjust=1),
legend.title = element_blank()) +
xlab("Group")
fit <- vicc(
y = dat$rt,
group = dat$id,
chains = 2,
iter = 500,
burnin = 10,
type = "pick_tau"
)
fit
fit <- vicc(
y = dat$rt,
group = dat$id,
chains = 2,
iter = 500,
burnin = 10,
type = "pick_none"
)
plts <- plot(fit)
plts$plot_icc1 +
theme(axis.text.x=element_text(angle=90, hjust=1),
legend.title = element_blank()) +
xlab("Group")
fit
plts$plot_icc2 +
theme(axis.text.x=element_text(angle=90, hjust=1),
legend.title = element_blank()) +
xlab("Group")
View(congruent)
View(dat)
tapply(1:nrow(congruent),
congruent$id,
head, 25)
1:nrow(congruent)
congruent$id
tail(congruent$id)
head(congruent$id)
head(congruent$id,25)
View(dat)
install.packages("rptR")
library(rptR)
data(BeetlesBody)
str(BeetlesBody)
View(BeetlesBody)
View(BeetlesBody)
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/ReactionTimesProsaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FixationStability.R', encoding = 'UTF-8')
source(
paste(here(),"/Data_analysis/pix2deg.R",sep="")
)
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FixationStability.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FixationStability.R', encoding = 'UTF-8')
split_file= strsplit(files[f], split = " ")
split_file
filename<-split_file[[1]][1]
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FixationStability.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/TargetSaccadeProsaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/TargetSaccadeProsaccade.R', encoding = 'UTF-8')
View(first_sac)
source(
paste(here(),"/Data_analysis/pix2deg.R",sep="")
)
pix2deg(1920, 1920, 380, 600)
35/2
pix2deg(1080, 1080, 215, 600)
p = ggplot(first_sac) +
geom_point(aes(x=end_x,y=end_y), color="blue", size=3) +
geom_point(aes(x=target_xpos_deg,y=target_ypos_deg),color="red", size = 5)+
xlim(-17.5, 17.5) +
ylim(-10, 10)
print(p)
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/TargetSaccadeProsaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/TargetSaccadeProsaccade.R', encoding = 'UTF-8')
print(p)
ggsave(
p,
filename = paste(
here(),"/Figures/TargetSaccades/Prosaccade/Session1/FirstSac",filename,".tiff",
sep=""
),
height=10,
width=12)
paste(
here(),"/Figures/TargetSaccades/Prosaccade/Session1/FirstSac",filename,".tiff",
sep=""
)
p
ggsave(
p,
filename = paste(
here(),"/Figures/TargetSaccades/Prosaccade/Session1/FirstSac",filename,".tiff",
sep=""
),
height=10,
width=12)
p = ggplot(first_sac) +
geom_point(aes(x=end_x,y=end_y), color="blue", size=3) +
geom_point(aes(x=target_xpos_deg,y=target_ypos_deg),color="red", size = 5)+
xlim(-17.5, 17.5) +
ylim(-10, 10)
ggsave(
p,
filename = paste(
here(),"/Figures/TargetSaccades/Prosaccade/Session1/FirstSac",filename,".tiff",
sep=""
),
height=10,
width=12)
setwd("C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Figures/TargetSaccades/Prosaccade/Session1/")
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/TargetSaccadeProsaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/TargetSaccadeProsaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Prosaccade/FiguresReactionTimesProsaccades.R')
paste(
here(),"/Data/Prosaccade/Session1/ReactionTimes/MeanRT/",
filename_tmp,
".Rdata",
sep = ""
)
save(
medianRT,
recRT,
logRT,
mean_log,
sd_log,
q,
file = paste(
here(),"/Data/Prosaccade/Session1/ReactionTimes/MeanRT/",
filename_tmp,
".Rdata",
sep = ""
)
)
files <- list.files(getwd(), pattern="*.Rdata")
files
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/ReactionTimesAntisaccades.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/ReactionTimesAntisaccades.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FixationStabilityAntisaccades.R', encoding = 'UTF-8')
f
rp1_start2
missing_start2
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FixationStabilityAntisaccades.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FixationStabilityAntisaccades.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FixationStabilityAntisaccades.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/TargetSaccadeAntisaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/TargetSaccadeAntisaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/TargetSaccadeAntisaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/TargetSaccadeAntisaccade.R', encoding = 'UTF-8')
filename_tmp<-file[[1]][1]
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/TargetSaccadeAntisaccade.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FiguresReactionTimesAntisaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FiguresReactionTimesAntisaccades.R')
setwd(paste(here(),"/Data/Antisaccade/Session1/ReactionTimes",sep=""))
files <- list.files(getwd(),pattern = "*.Rdata")
tiff(file=paste(here(),"/Figures/ReactionTimes/Antisaccade/Session1/RT_ca",filename,".tiff",sep=""),
width=6, height=4, units="in", res=100)
hist(RT_ca)
dev.off()
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FiguresReactionTimesAntisaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FiguresReactionTimesAntisaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/Antisaccades/FiguresReactionTimesAntisaccades.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/ReactionTimesMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/ReactionTimesMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FixationStabilityMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FixationStabilityMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/TargetSaccadeMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/TargetSaccadeMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/TargetSaccadeMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/TargetSaccadeMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/TargetSaccadeMemoryGuided.R', encoding = 'UTF-8')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
tiff(file=paste(here(),"/Figures/ReactionTimes/MemoryGuided/Session1/RT",filename,".tiff"),
width=6, height=4, units="in", res=100)
source('C:/Users/Birte/Desktop/Projektarbeit Neurokognitive Psychologie/Data_analysis/MemoryGuided/FiguresReactionTimesMemoryGuided.R')
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment