R devel - Nov 2006 - packBits (PR#9374)

Full_Name: Prokaj Vilmos
Version: R 2-4-0
OS: Windows
Submission from: (NULL) (193.224.79.8)


PackBits(rbinom(32,1,0.5)==1,"integer")
does not work. 

z<-packBits(rbinom(32,1,.5)==1,"integer")
Error in packBits(x, type) : argument 'x' must be raw, integer or
logical


Taking a closer look at the C code 
main/character.c  do_packBits rutin
one can find the following checking

 if (TYPEOF(x) != RAWSXP && TYPEOF(x) != RAWSXP && TYPEOF(x) !=
INTSXP)
     errorcall(call, _("argument 'x' must be raw, integer or
logical"));

It's obvious that some of the RAWSXP should be LGLSXP

On 11/21/2006 12:09 AM, prokaj at cs.elte.hu wrote:
> Full_Name: Prokaj Vilmos
> Version: R 2-4-0
> OS: Windows
> Submission from: (NULL) (193.224.79.8)
> 
> 
> PackBits(rbinom(32,1,0.5)==1,"integer")
> does not work. 
> 
> z<-packBits(rbinom(32,1,.5)==1,"integer")
> Error in packBits(x, type) : argument 'x' must be raw, integer or
logical
> 
> 
> Taking a closer look at the C code 
> main/character.c  do_packBits rutin
> one can find the following checking
> 
>  if (TYPEOF(x) != RAWSXP && TYPEOF(x) != RAWSXP &&
TYPEOF(x) != INTSXP)
>      errorcall(call, _("argument 'x' must be raw, integer or
logical"));
> 
> It's obvious that some of the RAWSXP should be LGLSXP
Yes, thanks for the report.  I'll fix it.

Duncan Murdoch

On 11/21/2006 12:09 AM, prokaj at cs.elte.hu wrote:
> Full_Name: Prokaj Vilmos
> Version: R 2-4-0
> OS: Windows
> Submission from: (NULL) (193.224.79.8)
> 
> 
> PackBits(rbinom(32,1,0.5)==1,"integer")
> does not work. 
> 
> z<-packBits(rbinom(32,1,.5)==1,"integer")
> Error in packBits(x, type) : argument 'x' must be raw, integer or
logical
> 
> 
> Taking a closer look at the C code 
> main/character.c  do_packBits rutin
> one can find the following checking
> 
>  if (TYPEOF(x) != RAWSXP && TYPEOF(x) != RAWSXP &&
TYPEOF(x) != INTSXP)
>      errorcall(call, _("argument 'x' must be raw, integer or
logical"));
> 
> It's obvious that some of the RAWSXP should be LGLSXP
No need for me to fix this:  Brian Ripley got there first.

Duncan Murdoch