[R] problems with reshape

[Luca Braglia]

Hello *

I would like to reshape wide the following dataset:


> rl <- read.dta("intermedi/rapporti_lavoro.dta") [c("id_rl","prog","sil_pi","sil_cf","sil_dat_avv")]
> dim(rl)
[1] 12964     5
> object.size(rl)
1194728 bytes

> head(rl)
  id_rl prog      sil_pi           sil_cf sil_dat_avv
1   638    1 04567XXXXXX NLMDRE64A5XXXXXX  2000-08-03
2  1033    1 54872XXXXXX FLGOIP66A3XXXXXX  2000-11-28
3  1043    2 56849XXXXXX QPWOER52E2XXXXXX  2000-07-07
4  1508    2 54982XXXXXX FJKLSD67P4XXXXXX  2000-12-12
5  1532    2 56849XXXXXX QWERTG50T0XXXXXX  2000-03-30
6  3283    1 12345XXXXXX POIQWE74H0XXXXXX  1999-12-31

Sil_cf and sil_pi are the idvar (sensible data too), prog is the timevar (now dataset is not sorted)

> sapply(rl, class)
      id_rl        prog      sil_pi      sil_cf sil_dat_avv 
  "integer"   "integer" "character" "character"      "Date" 

> apply(rl, 2, function(x) sum(duplicated(x)))
      id_rl        prog      sil_pi      sil_cf sil_dat_avv 
          0       12863        6957        9886       10539 

> range(rl$prog)
[1]   1 101

> table(cut(rl$prog,5))

(0.9,20.9]  (20.9,41]    (41,61]  (61,81.1] (81.1,101] 
     12784         75         42         40         23




So i've scripted

rl.wide  <- reshape(rl, idvar=c("sil_cf","sil_pi"), timevar="prog", direction="wide")

but after a biblic time I got something like "Error: evaluation nested too deeply: infinite recursion".

Any suggestion to perform that reshape? 

Many thanks

Luca