Dear William,
Here is one way using Henrique's solution:
Make <- function(x, nR, nC){
m <- matrix(0, nrow = nR, ncol = nC)
diag(m) <- x[1]
diag(m[-1,]) <- x[2]
m
}
Make(x = c(1,2), nR = 5, nC = 4)
HTH,
Jorge
On Sat, Jul 4, 2009 at 11:59 AM, William Simpson <
[email protected]> wrote:
> Thanks everyone for the help.
>
> I should have said that I want to do this generally, not as a one-off.
> So I want a function to do it. Like this
>
> tp<-function(x, nr, nc)
> {
> matrix( c(x,rep(0, nr-length(x)+1)), nrow=nr, ncol=nc)
> }
>
> tp(x=c(1,2), nr=5, nc=4)
>
> This one looks good -- the warning message is annoying though...
>
>
> Bill
>
> ______________________________________________
> [email protected] 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]]
______________________________________________
[email protected] 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.
