Displaying 1 result from an estimated 1 matches for "hdiag".
Did you mean:
diag
2001 Mar 19
0
DUP=T/F
...matrix(0,sampleT,1)
G <- matrix(0,ns,1)
}
else
{C <-model$C
u <- input.data(data)
G <- matrix(0,ns,ms)
}
x <-model$parms
h0 <- abs(d*x)+eps*(x==0.0)
D <- matrix(1e20, n,(length(x)*(length(x) + 3))/2)
Daprox <- matrix(0,n,r)
Hdiag <- matrix(0,n,length(x))
Haprox <- matrix(0,n,r)
storage.mode(D) <-"double"
storage.mode(Daprox)<-"double"
storage.mode(Haprox)<-"double"
storage.mode(Hdiag )<-"double"
D <-.Fortran("gend",
D...