On 10/31/18 3:47 PM, jim holtman wrote:
s2 <- apply(x*x, 2, sum)
s2
[1] 55 330
<SNIP>
It seems to me to be more "natural" (and perhaps more amenable to
generalisation) to do:
s2 <- apply(x,2,function(v){sum(v^2)})
But it's probably just a matter of taste.
cheers,
Rolf
--
Technical Editor ANZJS
Department of Statistics
University of Auckland
Phone: +64-9-373-7599 ext. 88276
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.