get_strata: get strata

In UBESP-DCTV/equationer: Equations of Energy Requirements

Description

Extract the equation(s) strata

Usage

## S3 method for class 'eqs_bag'
get_last_update(x)

## Default S3 method:
get_reference(x)

## S3 method for class 'eqs'
get_reference(x)

## S3 method for class 'eqs_bag'
get_reference(x)

get_strata(x)

## S3 method for class 'eq'
get_strata(x)

## S3 method for class 'eqs'
get_strata(x)

## S3 method for class 'eqs_bag'
get_strata(x)

Arguments

x	the object

Value

(chr) levels' strata for the equation x

(list) of the strata (factors) for the equations included in the eqs x.

Methods (by class)

• eqs_bag: Extract the last date in which eqs_bag has been updated.

• default: Extract the strata of the given equation object.

• eqs: Extract the strata of the given eqs object.

• eqs_bag: Extract the strata of the given eqs_bag object.

• eq: Extract the strata of the given equation object.

• eqs: Extract the strata of the given eqs object.

• eqs_bag: Extract and merge the levels for all the strata in any equations of the eqs_bag object.

Examples

library(equationer)
eq_test <- eq(age = 0.1, bmi = -0.3,
    name    = "eq_test",
    outcome = "kcal/day",
    strata = list(sex = "female")
)
get_outcome(eq_test)

eq2_test <- eq(age = 0.1, bmi = -0.3,
    name    = "eq2_test",
    outcome = "kcal/day",
    strata = list(sex = "female", nyha = 1)
)
get_strata(eq2_test)
library(equationer)
eq_test <- eq(age = 0.1, bmi = -0.3,
    name    = "eq_test",
    outcome = "kcal/day",
    strata = list(sex = "female")
)
eq2_test <- eq(age = 0.1, bmi = -0.3,
    name    = "eq2_test",
    outcome = "kcal/day",
    strata = list(sex = "male")
)

eqs_test <- eqs(eq_test, eq2_test, name = "eqs-test")
get_strata(eqs_test)
library(equationer)
eq_test <- eq(age = 0.1, bmi = -0.3,
    name    = "eq_test",
    outcome = "kcal/day",
    strata = list(sex = "female")
)
eq2_test <- eq(age = 0.1, bmi = -0.3,
    name    = "eq2_test",
    outcome = "kcal/day",
    strata = list(sex = "male")
)

eq3_test <- eq(age = -0.1, bmi = 0.3,
    name    = "eq_test",
    outcome = "kcal/day",
    strata = list(sex = "male", nyha = 1)
)
eq4_test <- eq(age = -0.1, bmi = 0.3,
    name    = "eq2_test",
    outcome = "kcal/day",
    strata = list(sex = "unknown", nyha = 2)
)

eqs_test <- eqs(eq_test, eq2_test, name = "eqs-test")
eqs2_test <- eqs(eq3_test, eq4_test, name = "eqs2-test")

eqs_bag1_test <- eqs_bag(eqs_test, eqs2_test,
    name = "a",
    reference = "b"
)
get_strata(eqs_bag1_test)

UBESP-DCTV/equationer documentation built on Jan. 17, 2021, 6:30 p.m.