tests/testthat.R

In jlopezsi/MDSConjoint: An implementation of metric and nonmetric conjoint models for marketing decisions

library(testthat)
library(MDSConjoint)
test_check("MDSConjoint")
#context("conjoint estimation")
#data("MDSConjointData")
#osc<-MDSConjointData$osc
#test_that("the result of conjoint estimation is a list of lentgh 3", {
#  expect_equal(class(conjoint.estimation(osc$ratings, osc$bundles, osc$design)), list)
#})