Heatmap_function: Documentation of the Heatmap_function

In jmybhm/Impute_Mobile_Health: A package to impute missing values in mobile health data

Description

Heatmap_function draws heatmap in which each row is a week with horizontal bar as day of week.

Usage

Heatmap_function(variable_vector, plot_title)

Arguments

variable_vector	Variable, in vector format, that we want to draw heatmap of weekly pattern
date_vector	Date variable in POSIXct format. Needs to be of the same length as the variable vector
plot_title	Title of the plot

Value

None

Author(s)

Jimin Lauren Yoo

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (variable_vector, plot_title)
{
    mod7 = length(variable_vector)%%7
    end = length(variable_vector) - mod7
    heatmap_dat = matrix(variable_vector[0:end], nrow = 7)
    row.names(heatmap_dat) = c("Sunday", "Monday", "Tuesday",
        "Wednesday", "Thursday", "Friday", "Saturday")
    heatmap_dat <- heatmap_dat[nrow(heatmap_dat):1, ]
    heatmap_dat[heatmap_dat == 0] <- NA
    my_palette <- colorRampPalette(c("light blue", "dark blue"))(n = 299)
    heatmap(heatmap_dat, Rowv = NA, Colv = NA, col = my_palette,
        srtCol = 45, main = plot_title)
  }

jmybhm/Impute_Mobile_Health documentation built on July 23, 2019, 2:11 a.m.