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.

Reply via email to