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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.