X = c(0.5, 0.61, 0.6, 0.8, 0.78, 0.7, 0.9)
Y = c(0.44, 0.15, 0.77, 0.88, 0.22, 0.99, .33)
deltaX = c(1, 0, 1, 1, 0, 1, 0)
deltaY = c(1, 0, 1, 0, 1, 1, 1)
dabrSurf = survDabrowska(X, Y, deltaX, deltaY)$DabrowskaEst
grid = 0.1
survPMFPlot(bivarSurf = dabrSurf, gridWidthX = grid, gridWidthY = grid,
scaleGapX = 1, scaleGapY = 1,
XAxisLabel = "X", YAxisLabel = "Y", timeLabelScale = 1,
axisLabelScale = 1,
labelSkipX = 0, labelSkipY = 0, roundX = 2, roundY = 2,
plotLabel = "Bivariate PMF")
Run the code above in your browser using DataLab