BTY <- function(n, beg = 1, end = 256)
{
if(beg < 1 || end < 1 || beg > 256 || end > 256)
stop("`beg' and `end' must be numbers in the interval [1,256]")
M <- rbind(c(7,7,254),
c(23,23,252),
c(30,30,250),
c(36,36,248),
c(40,40,247),
c(44,44,245),
c(47,47,243),
c(50,50,242),
c(52,52,240),
c(55,55,239),
c(57,57,238),
c(59,59,236),
c(61,61,235),
c(63,63,234),
c(65,65,233),
c(66,66,231),
c(68,68,230),
c(69,69,229),
c(71,71,228),
c(72,72,227),
c(74,74,226),
c(75,75,225),
c(76,76,225),
c(78,78,224),
c(79,79,223),
c(80,80,222),
c(81,81,221),
c(82,82,221),
c(84,84,220),
c(85,85,219),
c(86,86,218),
c(87,87,218),
c(88,88,217),
c(89,89,216),
c(90,90,216),
c(91,91,215),
c(92,92,214),
c(93,93,214),
c(94,94,213),
c(95,95,213),
c(96,96,212),
c(97,97,212),
c(98,98,211),
c(98,98,210),
c(99,99,210),
c(100,100,209),
c(101,101,209),
c(102,102,208),
c(103,103,208),
c(104,104,208),
c(105,105,207),
c(105,105,207),
c(106,106,206),
c(107,107,206),
c(108,108,205),
c(109,109,205),
c(110,110,204),
c(110,110,204),
c(111,111,204),
c(112,112,203),
c(113,113,203),
c(114,114,202),
c(114,114,202),
c(115,115,202),
c(116,116,201),
c(117,117,201),
c(118,118,200),
c(118,118,200),
c(119,119,200),
c(120,120,199),
c(121,121,199),
c(121,121,199),
c(122,122,198),
c(123,123,198),
c(124,124,198),
c(124,124,197),
c(125,125,197),
c(126,126,197),
c(127,127,196),
c(128,128,196),
c(128,128,195),
c(129,129,195),
c(130,130,195),
c(130,130,194),
c(131,131,194),
c(132,132,194),
c(133,133,193),
c(133,133,193),
c(134,134,193),
c(135,135,192),
c(136,136,192),
c(136,136,192),
c(137,137,191),
c(138,138,191),
c(139,139,191),
c(139,139,190),
c(140,140,190),
c(141,141,190),
c(142,142,189),
c(142,142,189),
c(143,143,189),
c(144,144,188),
c(144,144,188),
c(145,145,188),
c(146,146,187),
c(147,147,187),
c(147,147,187),
c(148,148,186),
c(149,149,186),
c(149,149,186),
c(150,150,185),
c(151,151,185),
c(152,152,185),
c(152,152,184),
c(153,153,184),
c(154,154,184),
c(154,154,183),
c(155,155,183),
c(156,156,182),
c(157,157,182),
c(157,157,182),
c(158,158,181),
c(159,159,181),
c(159,159,181),
c(160,160,180),
c(161,161,180),
c(162,162,180),
c(162,162,179),
c(163,163,179),
c(164,164,178),
c(164,164,178),
c(165,165,178),
c(166,166,177),
c(167,167,177),
c(167,167,176),
c(168,168,176),
c(169,169,176),
c(169,169,175),
c(170,170,175),
c(171,171,174),
c(172,172,174),
c(172,172,173),
c(173,173,173),
c(174,174,173),
c(174,174,172),
c(175,175,172),
c(176,176,171),
c(177,177,171),
c(177,177,170),
c(178,178,170),
c(179,179,169),
c(179,179,169),
c(180,180,168),
c(181,181,168),
c(181,181,167),
c(182,182,167),
c(183,183,166),
c(184,184,166),
c(184,184,165),
c(185,185,165),
c(186,186,164),
c(186,186,164),
c(187,187,163),
c(188,188,163),
c(189,189,162),
c(189,189,162),
c(190,190,161),
c(191,191,161),
c(191,191,160),
c(192,192,159),
c(193,193,159),
c(194,194,158),
c(194,194,158),
c(195,195,157),
c(196,196,157),
c(196,196,156),
c(197,197,155),
c(198,198,155),
c(199,199,154),
c(199,199,153),
c(200,200,153),
c(201,201,152),
c(201,201,151),
c(202,202,151),
c(203,203,150),
c(204,204,149),
c(204,204,149),
c(205,205,148),
c(206,206,147),
c(206,206,146),
c(207,207,146),
c(208,208,145),
c(209,209,144),
c(209,209,143),
c(210,210,143),
c(211,211,142),
c(211,211,141),
c(212,212,140),
c(213,213,139),
c(214,214,138),
c(214,214,138),
c(215,215,137),
c(216,216,136),
c(216,216,135),
c(217,217,134),
c(218,218,133),
c(219,219,132),
c(219,219,131),
c(220,220,130),
c(221,221,129),
c(221,221,128),
c(222,222,127),
c(223,223,126),
c(224,224,125),
c(224,224,124),
c(225,225,123),
c(226,226,122),
c(226,226,121),
c(227,227,119),
c(228,228,118),
c(229,229,117),
c(229,229,116),
c(230,230,114),
c(231,231,113),
c(232,232,112),
c(232,232,110),
c(233,233,109),
c(234,234,107),
c(234,234,106),
c(235,235,104),
c(236,236,103),
c(237,237,101),
c(237,237,100),
c(238,238,98),
c(239,239,96),
c(239,239,94),
c(240,240,92),
c(241,241,91),
c(242,242,89),
c(242,242,86),
c(243,243,84),
c(244,244,82),
c(245,245,80),
c(245,245,77),
c(246,246,74),
c(247,247,72),
c(247,247,69),
c(248,248,65),
c(249,249,62),
c(250,250,58),
c(250,250,54),
c(251,251,49),
c(252,252,44),
c(253,253,37),
c(253,253,28),
c(254,254,13))[ round(seq(beg,end, length = n)), ]
rgb(M[,1]/255,
M[,2]/255,
M[,3]/255)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.