# Here is the prototypical categorical edit: men cannot be pregnant.
E <- editarray(c(
"gender \%in\% c('male','female')",
"pregnant \%in\% c('yes','no')",
"if( gender == 'male' ) pregnant == 'no'"
)
)
E
# an editarray has a summary method:
summary(E)
# A yes/no variable may also be modeled as a logical:
editarray(expression(
gender \%in\% c('male','female'),
pregnant \%in\% c(TRUE, FALSE),
if( gender == 'male' ) pregnant == FALSE
)
)
# or, shorter:
editarray(c(
"gender \%in\% c('male','female')",
"pregnant \%in\% c(TRUE, FALSE)",
"if( gender == 'male' ) !pregnant"
)
)
# the \\\%in\\\% statement may be used at will
editarray(c(
"gender \%in\% c('male','female')",
"pregnant \%in\% c(TRUE, FALSE)",
"positionInHousehold \%in\% c('marriage partner', 'child', 'other')",
"maritalStatus \%in\% c('unmarried','married','widowed','divorced')",
"if( gender == 'male' ) !pregnant",
"if( maritalStatus \%in\% c('unmarried','widowed','divorced')) !positionInHousehold \%in\% c('marriage partner','child')"
)
)
Run the code above in your browser using DataLab