Convert object label/attribute label coding.

Convert object label/attribute label coding to an object by attribute data frame.

Usage

categoryReshape(x)

Arguments

x

A matrix or data frame with at least two columns.

Details

categoryReshape attempts to convert the first two columns of its input into a data frame in which rows represent objects and columns attributes. For each object, a value of 1 indicates that the object has that attribute, and a value of 0 that it does not. In set membership terms, a 1 indicates that the object is a member of that set and a 0 that it is not.

Value

A data frame (see Details).

Author

Jim Lemon

See also

makeIntersectList

Examples

 ns<-sample(1:8,20,TRUE)
 objects<-0
 for(i in 1:length(ns)) objects<-c(objects,rep(i,ns[i]))
 attributes<-"Z"
 for(i in 1:length(ns)) attributes<-c(attributes,sample(LETTERS[1:8],ns[i]))
 setdf<-data.frame(objects[-1],attributes[-1])
 categoryReshape(setdf)
#>    A B C D E F G H
#> 1  0 0 1 1 1 1 1 1
#> 2  1 1 1 1 1 1 1 1
#> 3  0 0 1 0 0 0 0 0
#> 4  1 0 1 0 1 1 1 0
#> 5  1 0 1 1 1 1 1 1
#> 6  0 1 1 0 1 0 1 1
#> 7  1 1 1 0 1 1 1 1
#> 8  1 1 1 1 0 1 0 1
#> 9  0 0 1 0 1 0 1 0
#> 10 0 0 1 0 0 1 0 0
#> 11 1 1 1 1 1 1 1 1
#> 12 0 0 1 1 0 1 0 0
#> 13 0 0 0 0 0 0 0 1
#> 14 1 1 1 1 1 1 1 1
#> 15 1 1 0 0 1 1 0 0
#> 16 0 1 1 1 1 0 1 0
#> 17 1 1 1 1 1 1 1 1
#> 18 1 1 0 1 1 1 1 1
#> 19 1 0 1 0 0 1 1 0
#> 20 1 1 1 1 1 1 1 1