data/Problem8.2c.R

In ehassler/MontgomeryDAE: MontgomeryDAE - Data and examples from Montgomery's "Design and Analysis of Experiments"

Problem8.2c <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2'
	),
	"OrderQuantity" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1
	),
	"Re-orderPoint" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1
	),
	"SetupCost" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1
	),
	"BackorderCost" = c(
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1
	),
	"CarryingCost" = c(
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1
	),
	"AvgAnnualCost" = c(
		95,
		134,
		158,
		190,
		92,
		187,
		155,
		185,
		189,
		154,
		135,
		96,
		193,
		152,
		137,
		98
	))