EQsampleDensity: Samples from a bunch of nodes on a grid.
In MaskJointDensity: Masking, Unmasking and Restoring Confidential Data

Description Usage Arguments Value Author(s) References Examples

EQsampleDensity is used to simulate the nodes from a grid, where the increment of the position of the nodes on each marginal space of the grid is the same.

1	EQsampleDensity(sx, boundaryVec, NoNote = 215, size = 100)

`sx`	Matrix where each column corresponds to a vector
`boundaryVec`	Vector of boundaries of the columns of sx in the order from_1, to_1, from_2, to_2 etc
`NoNote`	Number of nodes
`size`	Size of the sample

See actualPosition

Jordan Morris

no references

##---- 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 (sx, boundaryVec, NoNote = 215, size = 100) 
{
    n <- NoNote
    SXdim <- length(sx[1, ])
    space <- NULL
    for (i in 1:SXdim) {
        a <- boundaryVec[2 * i - 1]
        b <- boundaryVec[2 * i]
        d <- (b - a)/(n - 1)
        space <- c(space, d)
    }
    d <- min(space)
    XP <- NULL
    vectorL <- NULL
    for (i in 1:SXdim) {
        a <- boundaryVec[2 * i - 1]
        b <- boundaryVec[2 * i]
        xposition <- seq(from = a, to = b, by = d)
        L <- length(xposition)
        XP <- c(XP, xposition)
        vectorL <- c(vectorL, L)
    }
    NotePositions <- positions(XP, vectorL)
    H <- Hpi(x = sx)
    fhat <- kde(x = sx, H = H)
    prob <- predict(fhat, x = NotePositions)
    outSample <- actualPosition(vectorL, prob, boundaryVec, size)
    return(outSample)
  }