Vision-open

Einige Daten aus dem 3-Wort-Experiment können Triggercode-orientiert ausgewertet werden, dh. es werden Kenngrößen für die Meßwerte nach Triggercodes bestimmt. Eine davon ist die Pseudovergenz an den Eichtargets. Unter Pseudovergenz wird die Differenz zwischen den monokularen Meßwerten von li. und re. Auge verstanden, bei Fixation auf Targets an derselben Stelle. Die gemessene Vergenz unter monokularen Bedingungen ist die Heterophorie. Es werden 20%-getrimmte Mittelwerte verwendet. Die Funktion pseudonull bestimmt die Pseudovergenz einer Meßreihe qrea an der Targetposition i. Alle Pseudovergenzen der Meßreihe (und weitere 8 Vergenzmittelungen) kommen in eine Zeile des Dataframe psvg.

psvg_1.R

psvg <- data.frame(row.names=names(ausw.liste))
psvg[1:(35+8)] <- NA
pseudonull <- function (i,qrea) {
c(
mean(qrea$hl[qrea$tgl==i&qrea$tgl2==i&qrea$t>n2],trim=0.2,na.rm=T)-mean(qrea$hr[qrea$tgl==i+7&qrea$tgl2==i+7&qrea$t>n2],trim=0.2,na.rm=T),
mean(qrea$hl[qrea$tgl==i&qrea$tgl2==i&qrea$t<n2],trim=0.2,na.rm=T)-mean(qrea$hr[qrea$tgl==i+7&qrea$tgl2==i+7&qrea$t<n2],trim=0.2,na.rm=T),
mean(qrea$hl[qrea$tgl==i&qrea$tgl2==i&qrea$t>n2],trim=0.2,na.rm=T)-mean(qrea$hr[qrea$tgl==i+7&qrea$tgl2==i+7&qrea$t<n2],trim=0.2,na.rm=T),
mean(qrea$hl[qrea$tgl==i&qrea$tgl2==i&qrea$t<n2],trim=0.2,na.rm=T)-mean(qrea$hr[qrea$tgl==i+7&qrea$tgl2==i+7&qrea$t>n2],trim=0.2,na.rm=T),
mean(qrea$hl[qrea$tgl==i&qrea$tgl2==i],trim=0.2,na.rm=T)-mean(qrea$hr[qrea$tgl==i+7&qrea$tgl2==i+7],trim=0.2,na.rm=T)
)
}
fdx <- function (qrea) {
c(
mean(yrea$vg,trim=0.2,na.rm=T),
mean(qrea$vg[qrea$tgl!=0&qrea$tgl<=7&qrea$t<n/2],trim=0.2,na.rm=T),
mean(qrea$vg[qrea$tgl>7&qrea$tgl<=14&qrea$t<n/2],trim=0.2,na.rm=T),
mean(qrea$vg[qrea$tgl!=0&qrea$tgl<=7&qrea$t>n/2],trim=0.2,na.rm=T),
mean(qrea$vg[qrea$tgl>7&qrea$tgl<=14&qrea$t>n/2],trim=0.2,na.rm=T),
mean(yrea$vg[abs(yrea$hl+5)<0.5],trim=0.2,na.rm=T),
mean(yrea$vg[abs(yrea$hl  )<0.5],trim=0.2,na.rm=T),
mean(yrea$vg[abs(yrea$hl-5)<0.5],trim=0.2,na.rm=T)
)
}