>>>>> "BT" == Berwin A Turlach <[EMAIL PROTECTED]> writes:

    >> tmp <- sapply(1:length(L), function(j, mat, list) 
kronecker(X[j,,drop=FALSE], L[[j]]), mat=X, list=L)

Uups, should proof read more carefully before hitting the send
button.  This should be, of course:

tmp <- sapply(1:length(L),
              function(j, mat, list) kronecker(mat[j,,drop=FALSE], list[[j]]),
              mat=X, list=L)

Cheers,

        Berwin

========================== Full address ============================
Berwin A Turlach                      Tel.: +61 (8) 6488 3338 (secr)   
School of Mathematics and Statistics        +61 (8) 6488 3383 (self)      
The University of Western Australia   FAX : +61 (8) 6488 1028
35 Stirling Highway                   
Crawley WA 6009                e-mail: [EMAIL PROTECTED]
Australia                        http://www.maths.uwa.edu.au/~berwin

______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html

Reply via email to