R/BTY.R

Defines functions BTY

Documented in BTY

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)
}
edzer/hexbin documentation built on April 18, 2024, 2:38 p.m.