[R] Margins to fill matrix

[Stefan Petersson]

Yes! That's excactly what I need. Thank You so much!
 Den 11 sep 2014 21:20 skrev "David L Carlson" <dcarlson at tamu.edu>:

> You want r2dtable():
>
> > ?r2dtable
> > set.seed(42)
> > a <- r2dtable(1, seats, mandates)
> addmargins(a[[1]])
>       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
>  [1,]    2    3    1    0    6    2    1    2   17
>  [2,]    8    0    1    1   11    0    2    1   24
>  [3,]    8    0    5    2    7    1    1    4   28
>  [4,]   10    5    3    1    6    3    0    2   30
>  [5,]   13    4    1    4    9    0    2    1   34
>  [6,]    8    2    2    0   17    3    4    0   36
>  [7,]   13    0    2    6    9    2    3    5   40
>  [8,]   12    4    4    3   12    3    3    3   44
>  [9,]   14    3    3    2   18    0    4    2   46
> [10,]   19    2    2    0   17    5    5    0   50
> [11,]  107   23   24   19  112   19   25   20  349
>
>
> -------------------------------------
> David L Carlson
> Department of Anthropology
> Texas A&M University
> College Station, TX 77840-4352
>
> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org]
> On Behalf Of Stefan Petersson
> Sent: Thursday, September 11, 2014 7:13 AM
> To: Charles Determan Jr
> Cc: r-help at r-project.org
> Subject: Re: [R] Margins to fill matrix
>
> I have :
>
> rs <- c(3, 2, 3, 4)
> cs <- c(4, 5, 3)
>
> And want:
>
> > matrix
>     [,1] [,2] [,3]
> [1,] 1    2    0
> [2,] 1    0    1
> [3,] 1    1    1
> [4,] 1    2    1
>
> The rowSums in the above matrix is equal to sum(rs) and colSums is
> equal to sum(cs). It's sort of a matrix expansion where the margins
> are known beforehand...
>
> I hope I make sense.
>
>
> 2014-09-11 14:09 GMT+02:00 Charles Determan Jr <deter088 at umn.edu>:
> > Do you have an example of what you would like your output to look like?
> It
> > is a little difficult to fully understand what you are looking for.  You
> > only have 18 values but are looking to fill at 10x8 matrix (i.e. 80
> values).
> > If you can clarify better we may be better able to help you.
> >
> > Charles
> >
> >
> > On Thu, Sep 11, 2014 at 3:47 AM, Stefan Petersson <stefan at inizio.se>
> wrote:
> >>
> >> Hi,
> >>
> >> I have two vector of margins. Now I want to create "fill" matrix that
> >> reflects the margins.
> >>
> >>  seats <- c(17,24,28,30,34,36,40,44,46,50)
> >>  mandates <- c(107,23,24,19,112,19,25,20)
> >>
> >> Both vectors adds up to 349. So I want a 10x8 matrix with row sums
> >> corresponding to "seats" and column sums corresponding to "mandates".
> >>
> >> ______________________________________________
> >> R-help at 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.
> >
> >
> >
> >
> > --
> > Dr. Charles Determan, PhD
> > Integrated Biosciences
>
> ______________________________________________
> R-help at 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]]