Diffusion Model Prediction for the Reaction Time Distribution 
       for Correct Responses

     
     This will produce the predicted reaction time distribution for correct
     responses 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/cordist.so")
  cordist <- function(x,tt,ff)
  .Fortran("cordist",as.double(x),numeric(2500),numeric(2500))

  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<-cordist(x,tt,ff)
  tt<-z[[2]]
  ff<-z[[3]]
  plot(tt[1:2000],ff[1:2000],type='l',xlim=c(0,2))

  HTMLon()
  showgraph()

Please be patient while graph 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
});