# NOT RUN {
library("NMOF")
## overview
packageDescription("NMOF")
help(package = "NMOF")
## code from the book
showExample("equations.R")
showExample("exampleLS.R", chapter = 13)
## show NEWS file
news(Version >= "0.40-0", package = "NMOF")
## vignettes
vignette(package = "NMOF")
nss <- vignette("DEnss", package = "NMOF")
print(nss)
edit(nss)
## book website
browseURL("http://nmof.net")
browseURL("http://enricoschumann.net/NMOF/")
## more examples
file.show(system.file("NMOFex/README", package = "NMOF"))
file.show(system.file("NMOFex/NMOFman.R", package = "NMOF"))
## unit tests
file.show(system.file("unitTests/test_results.txt", package = "NMOF"))
# }
# NOT RUN {
test.rep <- readLines(system.file("unitTests/test_results.txt", package = "NMOF"))
nt <- gsub(".*\\(([0-9]+) checks?\\).*", "\\1",
test.rep[grep("\\(\\d+ checks?\\)", test.rep)])
message("Number of unit tests: ", sum(as.numeric(nt)))
# }
Run the code above in your browser using DataLab