tests/testthat/test-Function_minorization.R

In MMAD: An R Package of Minorization-Maximization Algorithm via the Assembly--Decomposition Technology

test_that("Function minorization", {
  Function_obj<-list()
  Function_obj$dimension<-2
  Function_obj$components<-list()
  Function_obj$components[[1]]<-list(coefficient=c(1/2,1/2),parameter= c(-1,-2),functions="Logarithmic")
  Function_obj$components[[2]]<-list(coefficient= c(2/3,1/3),parameter= c(-1,-2),functions="Logarithmic")
  Function_obj$components[[3]]<-list(coefficient= c(1/3,2/3),parameter=c(-1,-2),functions="Logarithmic")
  Function_obj$components[[4]]<-list(coefficient=c(12,15,9,-6,-6),parameter=c(1,2,3,-1,-2),functions="Linear_combination")

  Surrogate_function<-Function_minorization(Function_obj,input=c(4,2))
  expect_type(Surrogate_function, "list")
  expect_length(Surrogate_function, 3)
  expect_equal(Surrogate_function$Constant,0)
})