# NOT RUN {
x <- t(read.table("http://ashipunov.info/shipunov/open/dolbli.txt", h=TRUE, sep="\t"))
data <- x[1:45, ] # one of two lakes selected
data.I <- Infill(data)
summary(data.I)
plot(data.I)
# }
Run the code above in your browser using DataLab