search for: color1

...to run a simple R script as shown below: aov.R ------ 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(&quo...

...locmap$p24d2 ordinate<-data.frame(a$xod,a$yod) plot( a$xod,a$yod, xlim=c(-30,30), ylim=c(-30,30),xlab="",ylab="",type="p", data=ordinate) abline(v=0,h=0) par(new=TRUE) # Define cars vector with 8 values cars <- c(1,1,1,1,1,1,1,1) # Define colors in each sector color1 <- c("grey80","grey80","grey80","grey80","gray80","grey30","grey20","gray10" ) ## gray10=<0.0001, gray20<0.001, gray30<0.01, gray40=<0.05, gray 80=>0.05 # Putting sector levels car_labels <- c(1,2,3...

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 num...

If you are not using an anonymous function and say you had written the function out The below gives me the error > 'f(colordata2$color1)' is not a function, character or symbol' But then how is the anonymous function working? f <- function(col){ ifelse(col == 'blue', 1, 0) } responses <- lapply(colordata2[ -1 ], f(colordata2$color1) ) 'f(colordata2$color1)' is not a function, character or symbol&...

...nction. -- Sent from my phone. Please excuse my brevity. On April 7, 2016 7:31:18 AM PDT, Michael Artz <michaeleartz at gmail.com> wrote: >If you are not using an anonymous function and say you had written the >function out > >The below gives me the error > 'f(colordata2$color1)' is not a >function, >character or symbol' But then how is the anonymous function working? > > >f <- function(col){ > ifelse(col == 'blue', 1, 0) >} >responses <- lapply(colordata2[ -1 ], f(colordata2$color1) ) > >'f(colordata2$color1)'...

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...

...judge the 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...

...be worth using for this calculation. However, if your data frame had multiple color columns in your data 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) } ) n...

Good afternoon, This is my first post, so please be gentle ;) Anyway, here's my question....I've recently put together a Linux Server for our company, replacing an old Novel server. I have the box set up with Samba, as a PDC on our network. So far, just about everything is working correctly. One issue I'm coming up against, though, is printing from DOS. I have Samba

...inbow-type spectrum (like 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/heatm...

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: >

...=c(0, ymax), 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.n...

...0_in_rgb); + OUT_RING (chan, rc_in_rgb); } -static void NV10SetRegCombs_A8plusA8(NVPtr pNv, int pass, int mask_out_bytes) -{ - struct nouveau_channel *chan = pNv->chan; - struct nouveau_grobj *celsius = pNv->Nv3D; - unsigned int rc0_in_alpha = 0, rc0_in_rgb = 0; - unsigned int color0 = 0, color1 = 0; - - if (pass == 1) { - if (~mask_out_bytes & 1) - rc0_in_alpha |= NV10TCL_RC_IN_ALPHA_A_INPUT_TEXTURE1_ARB - | NV10TCL_RC_IN_ALPHA_A_COMPONENT_USAGE_ALPHA - | RC_IN_ONE(ALPHA, B); - - if (~mask_out_bytes & 2) - rc0_in_rgb |= NV10TCL_RC_IN_RGB_A_INPUT_TEXTURE0_ARB - | NV1...

...__ :id end class Flower < ActiveRecord::Base include DRbUndumped belongs_to :garden alias :id__ :id end Garden.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" =>...

This patchset applies some minor fixes to renouveau.xml and then unifies the nv30 and nv40 register definitions. nv30 and nv40 are very similar and have the same offsets for the registers they share. The major differences are: 1. Texture setup is different due to full NPOT support on nv40 2. More advanced blending/render targets on nv40 3. NV30 has fixed function registers, which NV40 lacks The