incidence (version 1.7.0)

group_names: extract and set group names

Description

extract and set group names

Usage

group_names(x, value)

group_names(x) <- value

# S3 method for default group_names(x, value)

# S3 method for default group_names(x) <- value

# S3 method for incidence group_names(x, value = NULL)

# S3 method for incidence group_names(x) <- value

Arguments

x

an incidence() object.

value

character vector used to rename groups

Value

an integer indicating the number of groups present in the incidence object.

Details

This accessor will return a

Examples

Run this code
# NOT RUN {
i <- incidence(dates = sample(10, 100, replace = TRUE), 
               interval = 1L,
               groups = sample(letters[1:3], 100, replace = TRUE))
i
group_names(i)

# change the names of the groups
group_names(i) <- c("Group 1", "Group 2", "Group 3")
i

# example if there are mistakes in the original data, e.g. 
# something is misspelled
set.seed(50)
grps <- sample(c("child", "adult", "adlut"), 100, replace = TRUE, prob = c(0.45, 0.45, 0.05))
i <- incidence(dates = sample(10, 100, replace = TRUE), 
               interval = 1L,
               groups = grps)
colSums(get_counts(i))

# If you change the name of the mis-spelled group, it will be merged with the
# correctly-spelled group
gname <- group_names(i)
gname[gname == "adlut"] <- "adult"
# without side-effects
print(ii <- group_names(i, gname))
colSums(get_counts(i))  # original still has three groups
colSums(get_counts(ii))
# with side-effects
group_names(i) <- gname
colSums(get_counts(i))
# }

Run the code above in your browser using DataCamp Workspace