## Not run: ## Original binary Opus files:
# pth = system.file(package = "soil.spec")
# lst <- as.list(list.files(path=pth, pattern="*.0$", full.names=TRUE))
# xx <- read.opus(lst[[1]])
# plot(xx@data)
# ## End(Not run)
Run the code above in your browser using DataLab