data/Problem8.23b.R

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

Problem8.23b <- 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,
		136,
		93,
		187,
		153,
		139,
		99,
		191,
		150
	))