gRbase (version 1.8-5.1)

array-create: Create multidimensional arrays

Description

Alternative ways of creating arrays

Usage

ar_new(names, levels, values, normalize = "none", smooth = 0)

Arguments

names

Names of variables defining table; a character vector or a right hand sided formula.

levels

1) a list with specification of the levels of the factors in names or 2) a vector with number of levels of the factors in names. See 'examples' below.

values

values to go into the parray

normalize

Either "none", "first" or "all". Should result be normalized, see 'Details' below.

smooth

Should values be smoothed, see 'Details' below.

Value

An array.

Details

If normalize="first" then for each configuration of all other variables than the first, the probabilities are normalized to sum to one. Thus f(a,b,c) becomes a conditional probability table of the form p(a|b,c). If normalize="all" then the sum over all entries of f(a,b,c) is one.

If smooth is positive then smooth is added to values before normalization takes place.

See Also

ar_perm, ar_add, ar_prod etc.

Examples

# NOT RUN {
universe <- list(gender=c('male','female'),
                 answer=c('yes','no'),
                 rain=c('yes','no'))
t1 <- ar_new(c("gender","answer"), levels=universe, values=1:4)
t1
t2 <- ar_new(~gender:answer, levels=universe, values=1:4)
t2
t3 <- ar_new(~gender:answer, c(2,2), values=1:4)
t3

## Extract arrays from dataframe (much like xtabs() but with more flexibility)
data(cad1) 
df2xtabs(cad1, ~Sex:AngPec:AMI)
df2xtabs(cad1, c("Sex","AngPec","AMI"))
df2xtabs(cad1, c(1,2,3))

universe <- list(gender=c('male','female'),
                 answer=c('yes','no'),
                 rain=c('yes','no'))
t1 <- ar_new(c("gender","answer"), levels=universe, values=1:4)

t1
t2 <- ar_new(~gender:answer, levels=universe, values=1:4)
t2
t3 <- ar_new(~gender:answer, c(2,2), values=1:4)
t3
# }