search for: color2

...- data1<-c(49,47,46,47,48,47,41,46,43,47,46,45,48,46,47,45,49,44,44,45,42,45,45,40 ,49,46,47,45,49,45,41,43,44,46,45,40,45,43,44,45,48,46,40,45,40,45,47,40) matrix(data1, ncol= 4, dimnames = list(paste("subj", 1:12), c("Shape1.Color1", "Shape2.Color1", "Shape1.Color2", "Shape2.Color2"))) Hays.df<-data.frame(rt = data1, subj=factor(rep(paste("subj", 1:12, sep=""), 4)), shape=factor(rep(rep(c("shape1","shape2"), c(12, 12)), 2)), color=factor(rep(c("color1","color2"), c(24, 24)))) I am...

I have 2 mysql tables, Product and Color: Color ID ColorName 1 Red 2 Green 3 Yellow 4 Blue Products ID Color1 Color2 Color3 ProductName 1 ? ? ? Orco 2 ? ? ? Skeletor 3 ? ? ? He-Man I need to display the ColorName to web visitors when they view Products. I can do a number of thin...

Dear All, Consider the following trivial code snippet rm(list=ls()) name_vec <- c("color1", "color2") pdf("test_color.pdf") plot(seq(5), seq(5), main=paste(name_vec[1]," and ",name_vec[2], sep="")) dev.off() What I would like to achieve is rather simple to explain, but it is giving me a headache: how can I have two colors in main? Let us say that I would l...

...e same color, sometimes there is a slight difference. I want to know what most of the observators have chosen (so at least 2) from the 3 observations. E.g. If two out of three observators decide the hair is black, then it's likely not to be brown. Let's say that i have 3 variables: color1, color2, color3. Each have 4 possible levels (fair up to black, 1-4). I would like a new variable containing this 'most frequent judgement'. I have already searched through the knowledge base and many posts but I haven't found what I'm looking for. Is this possible? Thank you in advance!...

...e the palette "Spectral" in RColorBrewer, except with 50 values). I've tried using breaks, and then implementing the breaks in my heatmap.2 command. The breaks work just fine. I guess what I want to control is the range of the: col=(colorpanel(#, low="color1", mid="color2", high="color3")) command. Is there any way to set more values than "low," "mid," and "high?" If that is possible I think it would solve my problem. I've looked over the documentation and searched over previous color/heatmap-related questions, bu...

...contour3d(p,x,x,x,level=mean(p),scale = FALSE,...) } conts=dummy() saveTrianglesAsOFF <- function(scene, filename = "scene.OFF") { scene <- misc3d:::colorScene(scene) triangles <- misc3d:::canonicalizeAndMergeScene(scene, "color", "color2", "alpha", "col.mesh", "fill", "smooth") ve <- misc3d:::t2ve(triangles) f <- file(filename, open = "w") on.exit(close(f)) write("OFF", f) write(...

...max), group = factor(Year), xlab= "Year", auto.key = list(points = FALSE, rectangles = TRUE,space="right",size=2,cex=0.8), upper_2007 = c(upper_limit_winter, upper_limit_spring, upper_limit_summer, upper_limit_autumn), par.settings = list(superpose.polygon = list(col=c(color1,color2,color3,color4,color5,color6,color7,color8))), lower_2007 = c(lower_limit_winter, lower_limit_spring, lower_limit_summer, lower_limit_autumn), panel = function(..., upper_2007,lower_2007) { panel.abline(h = upper_2007[packet.number()]) panel.abline(h = lower_2007[packet.number()...

...wanted to make responses for then you might want to use lapply as > a more compact version of a for loop to repeat this operation. > > colordata2 <- data.frame(id = c(1,2,3,4,5), color1 = c("blue", "red", > "green", "blue", "orange"), color2 = c("orange", "green", > "blue", "red", "red")) > responses <- lapply( colordata2[ -1 ], function(col) { ifelse(col == > 'blue', 1, 0) } ) > names(responses) <- names( colordata2 )[-1] > > where each of the columns ot...

...ta frame that you wanted to make responses for then you might want to use lapply as a more compact version of a for loop to repeat this operation. colordata2 <- data.frame(id = c(1,2,3,4,5), color1 = c("blue", "red", "green", "blue", "orange"), color2 = c("orange", "green", "blue", "red", "red")) responses <- lapply( colordata2[ -1 ], function(col) { ifelse(col == 'blue', 1, 0) } ) names(responses) <- names( colordata2 )[-1] where each of the columns other than the first is handed...

...nses for then you might want to use >lapply as >> a more compact version of a for loop to repeat this operation. >> >> colordata2 <- data.frame(id = c(1,2,3,4,5), color1 = c("blue", "red", >> "green", "blue", "orange"), color2 = c("orange", "green", >> "blue", "red", "red")) >> responses <- lapply( colordata2[ -1 ], function(col) { ifelse(col == >> 'blue', 1, 0) } ) >> names(responses) <- names( colordata2 )[-1] >> >> wher...

Thaks so much! And how would you incorporate lapply() here? On Thu, Apr 7, 2016 at 6:52 AM, David Barron <dnbarron at gmail.com> wrote: > ifelse is vectorised, so just use that without the loop. > > colordata$response <- ifelse(colordata$color == 'blue', 1, 0) > > David > > On 7 April 2016 at 12:41, Michael Artz <michaeleartz at gmail.com> wrote: >

...en.transaction do g = Garden.new("name" => "garden1") g.flowers << Flower.new("name" => "flower1", "color" => "color1") g.flowers << Flower.new("name" => "flower2", "color" => "color2") g.flowers << Flower.new("name" => "flower3", "color" => "color3") g.flowers << Flower.new("name" => "flower4", "color" => "color4") g.flowers << Flower.new("name" =>...