Diffusion Model Quantiles
	
     
     This will produce predicted values for accuracy, mean reaction time, and
     reaction time quantiles for the given parameter values.

     The default values are typical of fits to real data.

	
     Parameters:

        v     a    z    Ter    η    Sz   St   P0
        

    


     


dyn.load("/var/www/html/cogsys-web/Rpad/corq.so")
corq <- function(x,x1,x2)
.Fortran("corq",as.double(x),numeric(7),numeric(7))

x<-cbind(a,Ter,eta,Sz,v,St,z,P0)

for (i in 1:8) { 
  if (x[i]<.001) {
    print("  ALERT: values cannot be less than .001  "); 
    x[i]=.001;
  } 
}

z<-corq(x,x1,x2)

x1<-z[[2]]
p1<-round(1000*x1[1])/1000
q1<-formatC(z[[2]],mode='integer')

x2<-z[[3]]
p2<-round(1000*x2[1])/1000
q2<-formatC(z[[3]],mode='integer')


HTMLon()
H("div",BR)
H("pre","                           Reaction Time Quantiles  ")
H("pre","         Prob  Mean RT   Q.1   Q.3   Q.5   Q.7   Q.9")
H("pre","Correct:",p1," ",q1[2],"   ",q1[3]," ",q1[4]," ",q1[5]," ",q1[6]," ",q1[7])
H("pre","Error:  ",p2," ",q2[2],"   ",q2[3]," ",q2[4]," ",q2[5]," ",q2[6]," ",q2[7])
HTMLoff()

Please be patient while page loads. Calculations may take a few seconds.

v = drift rate; a = boundary separation; z = starting point; Ter = nondecision component of response time;
η = standard deviation in drift across trials; Sz range of the distribution of starting point (z);
St = range of the distribution of nondecision times; P0 = proportion of contaminants.

Copyright & Programmed 2006 Ratcliff & McKoon Lab | Designed by Andrew Webb


// this makes all Rpad updates to output boxes "yellowfade" in
dojo.event.connect(rpad, "updateResults",
function (rpadResults, data) {
        dojo.fx.html.colorFade(rpadResults, 1500,
        dojo.graphics.color.extractRGB("#FFFF70"),  // from color - bright yellow
        dojo.graphics.color.extractRGB("#FFFFD0")); // to color
});