tests/testthat/test-GetWeight.R

In WtTopsis: Weighted Method for Multiple-Criteria Decision Making

test_that("GetWeight works", {
  expect_equal(2 * 2, 4)
  Subject	<-c(	1	,	2	,	3	,	4	,	5	,	6	,	7	,	8	,	9	,	10	,	11	,	12	,	13	,	14	,	15	,	16	,	17	,	18	,	19	,	20	,	21	)
  SYZ	<-c(	0	,	0.2773501	,	0.2773501	,	0.2773501	,	0	,	0	,	0.2773501	,	0.2773501	,	0.2773501	,	0	,	0	,	0.2773501	,	0.2773501	,	0.2773501	,	0	,	0	,	0.2773501	,	0.2773501	,	0.2773501	,	0	,	0.2773501	)
  YFYL	<-c(	0.09166985	,	0.27500955	,	0.1833397	,	0.27500955	,	0.27500955	,	0.1833397	,	0.3666794	,	0.3666794	,	0.09166985	,	0.1833397	,	0.09166985	,	0.1833397	,	0.27500955	,	0	,	0	,	0.1833397	,	0.27500955	,	0.27500955	,	0.09166985	,	0	,	0.27500955	)
  RM	<-c(	0.09759001	,	0.29277002	,	0.19518001	,	0.19518001	,	0.19518001	,	0.29277002	,	0.29277002	,	0.29277002	,	0.09759001	,	0.29277002	,	0.09759001	,	0.19518001	,	0.29277002	,	0	,	0	,	0.19518001	,	0.29277002	,	0.29277002	,	0.09759001	,	0	,	0.29277002	)
  LHYY	<-c(	0.2672612	,	0.2672612	,	0	,	0.2672612	,	0	,	0.2672612	,	0.2672612	,	0.2672612	,	0.2672612	,	0.2672612	,	0	,	0.2672612	,	0	,	0	,	0.2672612	,	0	,	0.2672612	,	0.2672612	,	0.2672612	,	0	,	0.2672612	)
  LC	<-c(	0.33927557	,	0.08481889	,	0.25445668	,	0	,	0	,	0.16963779	,	0.08481889	,	0.08481889	,	0.25445668	,	0.16963779	,	0.25445668	,	0.25445668	,	0.08481889	,	0.33927557	,	0.33927557	,	0.25445668	,	0.16963779	,	0.16963779	,	0.25445668	,	0.33927557	,	0.08481889	)
  TSRQ	<-c(	0.2425356	,	0.2425356	,	0	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0	,	0.2425356	,	0	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0.2425356	,	0	,	0.2425356	)
  GYSD	<-c(	0.09766115	,	0.10750427	,	0.33141849	,	0.07948151	,	0.06983927	,	0.11761523	,	0.11215799	,	0.22414858	,	0.22542082	,	0.33819261	,	0.04332312	,	0.33819261	,	0.33819261	,	0.10549547	,	0.0249426	,	0	,	0.33819261	,	0.10375451	,	0.33819261	,	0.14058251	,	0.33819261	)
  BLFY	<-c(	0.000071 	,	0.000012 	,	0.000014 	,	0.000018 	,	0.000035 	,	0.000018 	,	0.000014 	,	0.000018 	,	0.000018 	,	0.000035 	,	0.000071 	,	0.000035 	,	0.000035 	,	0.000024 	,	0.000018 	,	0.000014 	,	0.000035 	,	0.707107 	,	0.000071 	,	0.000014 	,	0.707107)
  XKQJ	<-c(	0.3508232	,	0.2631174	,	0.2631174	,	0.3508232	,	0.1754116	,	0.0877058	,	0.0877058	,	0.0877058	,	0.0877058	,	0.1754116	,	0.3508232	,	0.2631174	,	0.3508232	,	0.1754116	,	0.1754116	,	0.2631174	,	0.1754116	,	0.0877058	,	0.0877058	,	0	,	0.1754116	)
  YYJH	<-c(	0.07124705	,	0.2849882	,	0.1424941	,	0	,	0.35623525	,	0.07124705	,	0.2849882	,	0.2849882	,	0.07124705	,	0.1424941	,	0	,	0.1424941	,	0.21374115	,	0.07124705	,	0.35623525	,	0.35623525	,	0.21374115	,	0.2849882	,	0.1424941	,	0.2849882	,	0.1424941	)
  Normalresult<-data.frame(Subject	,	SYZ	,	YFYL	,	RM	,	LHYY	,	LC	,	TSRQ	,	GYSD	,	BLFY	,	XKQJ	,	YYJH)

  SYZ	<-c(	0.84248	,	0.1009807	)
  YFYL	<-c(	0.92150948	,	0.05031761	)
  RM	<-c(	0.92659373	,	0.04705827	)
  LHYY	<-c(	0.86682144	,	0.08537625	)
  LC	<-c(	0.9326553	,	0.0431724	)
  TSRQ	<-c(	0.93059368	,	0.04449403	)
  GYSD	<-c(	0.91895891	,	0.05195269	)
  BLFY	<-c(	0.2291085	,	0.4941923	)
  XKQJ	<-c(	0.94564471	,	0.03484533	)
  YYJH	<-c(	0.92573243	,	0.04761041	)
 Weightresult<-data.frame(SYZ	,	YFYL	,	RM	,	LHYY	,	LC	,	TSRQ	,	GYSD	,	BLFY	,	XKQJ	,	YYJH)
 row.names(Weightresult)<-c("WeightEij","weight")
 weight<-GetWeight(Normalresult)
 weight<-data.frame(weight)
 expect_identical(round(weight,4),round(Weightresult,4))
  })