# Re: [R] frequency tables

Date: Tue 21 Jun 2005 - 05:19:54 EST

Kevin J Emerson a écrit :
> R-masters,
>
> I have a problem that I have been working on for a while and it seems
> that there may be a simple solution that I have yet to figure out, so I
> thought that I would venture to post to the help list.
>
> Let's say there was a data.frame with three vectors, two that are
> factors identifying the data, and one that holds the frequency of
> occurrence (the events are binary, yes or no). I would like to perform
> logistic regression on this data, and it seems that I need a vector of
> 0s and 1s for input into lrm. How might I convert between a frequency
> table and a vector of binary data while still maintaining all identifier
> information?
>
> I have thought about using the rep command over and over again and
> basically building the data.frame "by hand" but that seems long and
> tedious. Is there a quick and dirty way of doing this?
>
> Kevin

Hi Kevin,

I don't know lrm so can't answer on this point. However, you can fit log reg models using the "regular" glm. See ?glm. There are 3 ways to fit the model:

1. Fit binomial data with the syntax cbind(y, n - y) ~ x1 + x2, where y is the count of events of interest, and n the sample size for the covariate patterns defined by x1 and x2
2. Fit proportions, with the syntax y/n ~ x1 + x2, weights = n
3. "Unfold" the data as you suggest. I guess many people wrote utility functions for this purpose. One of them is available in the package aod (on CRAN) and is called splitbin:

> data(orob2)

```   seed     root  n  y
1  O75     BEAN 39 10
2  O75     BEAN 62 23
3  O75     BEAN 81 23
4  O75     BEAN 51 26
5  O75     BEAN 39 17
```

6 O75 CUCUMBER 6 5
> res <- splitbin(cbind(y, n - y) ~ root + seed, orob2)  > res[1:39, ]

id y root seed
1 1 0 BEAN O75
2 1 0 BEAN O75
3 1 0 BEAN O75
4 1 0 BEAN O75
5 1 0 BEAN O75
6 1 0 BEAN O75
7 1 0 BEAN O75
8 1 0 BEAN O75
9 1 0 BEAN O75
10 1 0 BEAN O75
11 1 0 BEAN O75
12 1 0 BEAN O75
13 1 0 BEAN O75
14 1 0 BEAN O75
15 1 0 BEAN O75
16 1 0 BEAN O75
17 1 0 BEAN O75
18 1 0 BEAN O75
19 1 0 BEAN O75
20 1 0 BEAN O75
21 1 0 BEAN O75
22 1 0 BEAN O75
23 1 0 BEAN O75
24 1 0 BEAN O75
25 1 0 BEAN O75
26 1 0 BEAN O75
27 1 0 BEAN O75
28 1 0 BEAN O75
29 1 0 BEAN O75
30 1 1 BEAN O75
31 1 1 BEAN O75
32 1 1 BEAN O75
33 1 1 BEAN O75
34 1 1 BEAN O75
35 1 1 BEAN O75
36 1 1 BEAN O75
37 1 1 BEAN O75
38 1 1 BEAN O75
39 1 1 BEAN O75

```--
Dr Renaud Lancelot, vétérinaire
Projet FSP régional épidémiologie vétérinaire
C/0 Ambassade de France - SCAC
BP 834 Antananarivo 101 - Madagascar