SUM:Use of diag() with lapply

[Alastair Dempster <demp2979@mach1.wlu.ca>]

My thanks to Bill Dunlap, Prof. Ripley and Andy Liaw.

Bill Dunlap's response was that "lapply's 2nd argument must be a
function, not a call to a function
or fancier expression".  His code was:

        new.a <- lapply(a, function(ai){ diag(ai)<-0 ; ai })

Prof. Ripley's answers were the same.
                       lapply(a, function(x) {diag(x) <- 0; x})

Andy Liaw suggested
                       lapply(a, function(x) {
diag(x)<-0;return(x)})

This speed of response on this list is amazing!

Alastair Dempster