inst/tests/test_s4.R

In mroughan/LinePicking: Probability density function for distance between points

library("LinePicking")

context("Check LinePicking objects")

pdf()
test_that("Objects can be printed and plotted", {
  tmp <- LinePickingAllProblems(print=FALSE)
  problems <- sapply(tmp,function(x)x$problem)
  for (i in problems){
    index <- which(problems==i)
    parameters<-as.numeric(tmp[[index]]$parameters)
    LP <- CreateLinePicking(problem=i,parameters=parameters)
    plot(LP)
    plot(LP,dist='CDF')
  }
})
dev.off()