data with NAs

[vsimko]

I found the following stackoverflow question about NAs in data:
http://stackoverflow.com/questions/26787537

I tried to create a reproducible example:

library(biwavelet)
di <- data.frame(1:100, rnorm(100)) % random data

# setting 10% randomly selected samples to NA
NAids <- cbind(round(runif(nrow(di) * .1, 1, nrow(di))), NA)
di[NAids[,1],] <- NAids

# plotting samples with NAs
par(mar = c(2, 2, 0, 0))
plot(di, type = "s")

wt.t1 = wt(di)
plot(wt.t1)

Error in image.default(x$t, yvals, t(zvals), zlim = zlim, xlim = xlim,  : 
  invalid z limits
Called from: image.default(x$t, yvals, t(zvals), zlim = zlim, xlim = xlim, 
    ylim = rev(ylim), xlab = xlab, ylab = ylab, yaxt = "n", xaxt = "n", 
    col = fill.colors, ...)

# replacing NAs with zeroes
di[is.na(di)] <- 0
par(mar = c(2, 2, 0, 0))
plot(di, type = "s")

wt.t1 = wt(di)
plot(wt.t1)