R/LOCS.R

Defines functions LinOCS

Documented in LinOCS

LinOCS <- 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(0,0,0),
	       c(0,0,0),
	       c(0,0,0),
	       c(1,0,0),
	       c(2,0,0),
	       c(2,0,0),
	       c(3,0,0),
	       c(3,0,0),
	       c(4,0,0),
	       c(5,0,0),
	       c(5,0,0),
	       c(6,0,0),
	       c(7,0,0),
	       c(7,0,0),
	       c(8,0,0),
	       c(9,0,0),
	       c(9,0,0),
	       c(10,0,0),
	       c(11,0,0),
	       c(12,0,0),
	       c(13,0,0),
	       c(14,0,0),
	       c(15,0,0),
	       c(16,0,0),
	       c(17,0,0),
	       c(18,0,0),
	       c(19,0,0),
	       c(20,0,0),
	       c(21,0,0),
	       c(22,0,0),
	       c(23,0,0),
	       c(25,0,0),
	       c(26,0,0),
	       c(27,0,0),
	       c(28,0,0),
	       c(30,0,0),
	       c(31,0,0),
	       c(33,0,0),
	       c(34,0,0),
	       c(35,0,0),
	       c(37,0,0),
	       c(39,0,0),
	       c(40,0,0),
	       c(43,0,0),
	       c(45,0,0),
	       c(46,0,0),
	       c(49,0,0),
	       c(51,0,0),
	       c(53,0,0),
	       c(54,0,0),
	       c(56,0,0),
	       c(58,0,0),
	       c(60,0,0),
	       c(62,0,0),
	       c(64,0,0),
	       c(67,0,0),
	       c(69,0,0),
	       c(71,0,0),
	       c(74,0,0),
	       c(76,0,0),
	       c(80,0,0),
	       c(81,0,0),
	       c(84,0,0),
	       c(86,0,0),
	       c(89,0,0),
	       c(92,0,0),
	       c(94,0,0),
	       c(97,0,0),
	       c(100,0,0),
	       c(103,0,0),
	       c(106,0,0),
	       c(109,0,0),
	       c(112,0,0),
	       c(115,0,0),
	       c(117,0,0),
	       c(122,0,0),
	       c(126,0,0),
	       c(128,0,0),
	       c(131,0,0),
	       c(135,0,0),
	       c(135,0,0),
	       c(135,1,0),
	       c(135,2,0),
	       c(135,3,0),
	       c(135,4,0),
	       c(135,6,0),
	       c(135,6,0),
	       c(135,8,0),
	       c(135,9,0),
	       c(135,10,0),
	       c(135,11,0),
	       c(135,13,0),
	       c(135,13,0),
	       c(135,15,0),
	       c(135,17,0),
	       c(135,17,0),
	       c(135,19,0),
	       c(135,21,0),
	       c(135,22,0),
	       c(135,23,0),
	       c(135,25,0),
	       c(135,26,0),
	       c(135,27,0),
	       c(135,29,0),
	       c(135,31,0),
	       c(135,32,0),
	       c(135,33,0),
	       c(135,35,0),
	       c(135,36,0),
	       c(135,38,0),
	       c(135,40,0),
	       c(135,42,0),
	       c(135,44,0),
	       c(135,46,0),
	       c(135,47,0),
	       c(135,49,0),
	       c(135,51,0),
	       c(135,52,0),
	       c(135,54,0),
	       c(135,56,0),
	       c(135,57,0),
	       c(135,59,0),
	       c(135,62,0),
	       c(135,63,0),
	       c(135,65,0),
	       c(135,67,0),
	       c(135,69,0),
	       c(135,72,0),
	       c(135,73,0),
	       c(135,76,0),
	       c(135,78,0),
	       c(135,80,0),
	       c(135,82,0),
	       c(135,84,0),
	       c(135,87,0),
	       c(135,88,0),
	       c(135,90,0),
	       c(135,93,0),
	       c(135,95,0),
	       c(135,98,0),
	       c(135,101,0),
	       c(135,103,0),
	       c(135,106,0),
	       c(135,107,0),
	       c(135,110,0),
	       c(135,113,0),
	       c(135,115,0),
	       c(135,118,0),
	       c(135,121,0),
	       c(135,124,0),
	       c(135,127,0),
	       c(135,129,0),
	       c(135,133,0),
	       c(135,135,0),
	       c(135,138,0),
	       c(135,141,0),
	       c(135,144,0),
	       c(135,148,0),
	       c(135,150,0),
	       c(135,155,0),
	       c(135,157,0),
	       c(135,160,0),
	       c(135,163,0),
	       c(135,166,0),
	       c(135,170,0),
	       c(135,174,0),
	       c(135,177,0),
	       c(135,180,0),
	       c(135,184,0),
	       c(135,188,0),
	       c(135,192,0),
	       c(135,195,0),
	       c(135,200,0),
	       c(135,203,0),
	       c(135,205,0),
	       c(135,210,0),
	       c(135,214,0),
	       c(135,218,0),
	       c(135,222,0),
	       c(135,226,0),
	       c(135,231,0),
	       c(135,236,0),
	       c(135,239,0),
	       c(135,244,0),
	       c(135,249,0),
	       c(135,254,0),
	       c(135,255,1),
	       c(135,255,5),
	       c(135,255,10),
	       c(135,255,15),
	       c(135,255,20),
	       c(135,255,23),
	       c(135,255,28),
	       c(135,255,33),
	       c(135,255,38),
	       c(135,255,43),
	       c(135,255,45),
	       c(135,255,49),
	       c(135,255,54),
	       c(135,255,59),
	       c(135,255,65),
	       c(135,255,70),
	       c(135,255,74),
	       c(135,255,80),
	       c(135,255,84),
	       c(135,255,90),
	       c(135,255,95),
	       c(135,255,98),
	       c(135,255,104),
	       c(135,255,110),
	       c(135,255,116),
	       c(135,255,120),
	       c(135,255,125),
	       c(135,255,131),
	       c(135,255,137),
	       c(135,255,144),
	       c(135,255,149),
	       c(135,255,154),
	       c(135,255,158),
	       c(135,255,165),
	       c(135,255,172),
	       c(135,255,179),
	       c(135,255,186),
	       c(135,255,191),
	       c(135,255,198),
	       c(135,255,203),
	       c(135,255,211),
	       c(135,255,216),
	       c(135,255,224),
	       c(135,255,232),
	       c(135,255,240),
	       c(135,255,248),
	       c(135,255,254),
	       c(135,255,255),
	       c(140,255,255),
	       c(146,255,255),
	       c(153,255,255),
	       c(156,255,255),
	       c(161,255,255),
	       c(168,255,255),
	       c(172,255,255),
	       c(177,255,255),
	       c(182,255,255),
	       c(189,255,255),
	       c(192,255,255),
	       c(199,255,255),
	       c(204,255,255),
	       c(210,255,255),
	       c(215,255,255),
	       c(220,255,255),
	       c(225,255,255),
	       c(232,255,255),
	       c(236,255,255),
	       c(240,255,255),
	       c(248,255,255),
	       c(255,255,255))[ round(seq(beg,end,length = n)), ]

    rgb(M[,1]/255,
	M[,2]/255,
	M[,3]/255)
}

Try the hexbin package in your browser

Any scripts or data that you put into this service are public.

hexbin documentation built on March 31, 2023, 9:02 p.m.