unmask: the main function
In ElsevierSoftwareX/SOFTX-D-15-00040: density approximant

Description Usage Arguments Details Value Note Author(s) References Examples

The final code for the density approximant of the original data

1	unmask(ystar, noisefile, noise)

`ystar`	masked data
`noisefile`	a file containing the information of noise
`noise`	noise used to mask the data y

no details needed

`unmaskedVariable`	synthetic data for y
`prob`	estimated mass function for y
`meanOfNoise`	the sample mean of noise
`meanOfSquaredNoise`	the sample mean of the second moment of the noise

no further notes

Yan-Xia

no reference needed

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

y<-rnorm(100,0,1)
ymask<-mask(y,noisefile="noise.bin", a1=min(y), b1=max(y), noise=createNoise(length(y)),
       maxorder=100, EPS=1e-06)
write(ymask$ystar, "ystar.dat")
ystar<-scan("ystar.dat")
y1<-unmask(ystar,noisefile="noise.bin", noise=noise)
print(y1$unmaskedVariable)