mixturedata<-list(n=200, y=c(
  1.87,  5.76,  6.07,  1.60,  4.96,  3.32,  1.40,  6.79,  6.04,  4.34,  1.61,  4.33,
  7.51,  6.33,  2.20,  3.08,  6.75,  7.36,  5.43,  3.63,  2.18,  1.57,  6.56,  2.63,
  2.78,  0.31,  4.98,  6.34,  2.43,  6.17,  2.58,  5.19,  6.82,  1.71,  1.02,  5.25,
  6.60,  1.81,  1.18,  1.91,  3.28,  2.53,  6.08,  6.20,  0.54,  1.44,  5.26,  1.73,
  1.68,  1.79,  7.06,  5.88,  0.63,  7.42,  6.23,  5.71,  1.74,  3.09,  3.14,  1.81,
  1.99,  2.04,  6.17,  2.54,  2.59,  3.18,  2.27,  2.66,  1.22,  0.16,  6.29,  4.45,
  2.34,  2.10,  3.21,  3.55,  6.42,  0.69,  6.08,  6.15, -0.04,  7.22,  3.54,  5.73,
  2.23,  0.27,  1.67,  2.61,  0.74,  2.08,  3.69,  4.74,  5.21,  6.13,  4.64,  5.55,
  7.24,  6.09,  0.61,  5.60,  1.46,  1.06,  1.58,  6.83,  7.60,  3.33,  4.15, -0.24,
  2.25,  2.57,  0.88,  2.15,  0.53,  6.26,  6.58,  7.17,  1.80,  5.99,  5.08,  0.76,
  6.74,  4.37,  5.87,  4.32,  1.78,  5.83,  4.67,  6.84,  6.77,  2.10,  6.69,  2.74,
  6.12,  7.15,  0.92,  2.00,  4.41,  2.38,  0.95,  2.47,  2.38,  3.02,  1.94,  5.95,
  0.93,  4.92,  1.17,  6.19,  1.70,  3.53,  6.54,  2.03,  1.78,  4.90,  7.12,  3.49,
  1.65,  0.63,  2.02,  2.12,  1.95,  5.21,  2.84,  0.75,  5.01,  5.54,  6.22,  3.07,
  5.84,  6.78,  5.80,  6.60,  1.46,  3.26,  4.18,  4.51,  1.41,  1.54,  1.03,  2.69,
  3.04,  1.46,  0.64,  3.73,  2.72,  1.68,  3.07,  6.31,  1.51,  6.84,  1.59,  7.58,
  0.79,  2.96,  6.69,  5.59,  6.36,  6.09,  0.99,  5.67))