R/LLscoreA.r

In diffIRT: Diffusion IRT Models for Response and Response Time Data

 LLscoreA=function(pars,rt,x,N,nit,ai,vi,ter,sd2A,sd2V,model,A,W,nq,eps,delta){
    Ap=pars
    result=.C("LLfacA",as.double(rt),as.double(x),as.integer(N),as.integer(nit),as.double(ai),
                    as.double(vi),as.double(sd2A),as.double(sd2V),as.double(ter),as.double(Ap),as.integer(model),
                    as.double(A),as.double(W),as.integer(nq),as.double(eps),
                    as.double(-1),as.double(matrix(0,N)))
    return(result[[16]])
  }