Hi Karen,
Try this:
vec <- c(3,2,6,4,7)
res <- diag(vec)
k <- length(vect)
for(i in 1:k) assign(paste('vec', letters[i], sep = '.'), res[i,])
vec.a
# [1] 3 0 0 0 0
vec.b
# [1] 0 2 0 0 0
HTH,
Jorge
On Tue, Aug 17, 2010 at 6:57 AM, Karen Kotschy <> wrote:
> Dear helpRs
>
> Does anyone have an elegant way of doing the following:
>
> For a given numeric vector, e.g. vec <- c(3,2,6,4,7)
>
> Create a series of vectors where all but 1 of the values are replaced by
> 0's, e.g.
>
> vec.a <- c(3,0,0,0,0)
> vec.b <- c(0,2,0,0,0)
> vec.c <- c(0,0,6,0,0)
> vec.d <- c(0,0,0,4,0)
> vec.e <- c(0,0,0,0,7)
>
> I have looked at `replace', but can't think of a way of making it produce
> the 5 lines above without a for loop.
>
> I would also like to assign the names automatically. I can create them
> easily using paste, but how does one get R to treat the resulting
> character strings as object names to which values can be assigned?
>
> Thanks!
> Karen
>
> ---
> Karen Kotschy
> Centre for Water in the Environment
> University of the Witwatersrand, Johannesburg, South Africa
>
>
> --
> This message has been scanned for viruses and
> dangerous content by MailScanner, and is
> believed to be clean.
>
> ______________________________________________
> R-help@r-project.org mailing list
> 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.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
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.
