DPPlotChangePoint: Plot change-points indicated by 1 or 0 using DP approach

In boris109able/ChangePointCalc: Estimate change-points via Sparse Group Lasso and Dynamic Programming.

Description

Plot change-points indicated by 1 or 0 using DP approach

Usage

DPPlotChangePoint(sol, n, p, breaks = NULL)

Arguments

sol	solution of DP approach
n	total number of data
p	dimension of data
breaks	list of breaks where to put a tick on the x-axis

Author(s)

Bingwen Zhang

References

Bingwen Zhang, Jun Geng and Lifeng Lai, Detecting changes in regression models via sparse group lasso, http://users.wpi.edu/~bzhang/icassp_v1.pdf

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 (sol, n, p, breaks = NULL) 
{
    t_sum = mat.or.vec(n, 1)
    for (i in 1:length(sol)) {
        t_sum[sol[i]] <- 1
    }
    t_sum[1] <- 0
    t_sum[n] <- 0
    plotData <- data.frame(pos = 1:length(t_sum), normL1 = t_sum)
    plotTsum <- ggplot(plotData, aes(pos, normL1))
    {
        if (is.null(breaks)) {
            plotTsum + geom_point() + theme_bw(base_size = 16) + 
                xlab("Number of Observations") + ylab("Change-point") + 
                scale_x_continuous(breaks = seq(1, n, floor(n/10))) + 
                scale_y_continuous(breaks = c(0, 1))
        }
        else {
            plotTsum + geom_point() + theme_bw(base_size = 16) + 
                xlab("Number of Observations") + ylab("Change-point") + 
                scale_x_continuous(breaks = breaks) + scale_y_continuous(breaks = c(0, 
                1))
        }
    }
  }

boris109able/ChangePointCalc documentation built on May 13, 2019, 12:34 a.m.