search for: hsv

I would like to replace a few varaibles within a data frame. For example, in the dataframe below (contrived) I would like to replace the current housesize value only if the Location is HSV. However, I would like to leave the other values intact. I tried "ifelse", but I don't really need the else condition. test_data2_df<-data.frame(Variables=c("SQR Footage","SQR Footage","SQR Footage","SQR Footage","SQR Footage&quo...

Full_Name: Jae Choi Version: 1.6.1 OS: linux (x86) Submission from: (NULL) (142.176.61.245) Hello, Any attempts to access the "hsv" function returns the following type of error: Error in hsv(h = seq(start, ifelse(start > end, 1, 0) + end, length = n)%%1, : color intensity 1.25, not in [0,1] (the above was generated from the demo command: > pie(rep(1, 24), col = rainbow(24), radius = 0.9) ) When hsv is...

...de: persp(x, y, z, col = cm.colors(10)[floor(9 * hgt + 1)], theta = 35) I hadn't seen the cm.colors function before; it's very nice! I wanted to modify it a bit to allow the start and end colors as well as the max saturation to be specified, and I think I may have turned up a bug in the hsv() function. Here's the evidence of the bug: Look at the results of these two calls to hsv: > hsv(h=0.833333333333333,s=0.5,v=1) [1] "#FF8080" > hsv(h=0.8333333333333333,s=0.5,v=1) [1] "#FF80FF" I think the 3 color components are listed as hex values in Blue, Green,...

...v "#FF99FF" "#FF7FFF" "1" > Why I think it happens The function has an unnecessary right parentheses immediately preceding ", v=1" which causes the "v=1" to be added to the vector rather than being interpreted as an argument to hsv(). > cm.colors function (n) { k <- n%/%2 if (2 * k == n) { c(hsv(h = 6/12, s = seq(0.5, 0, length = k + 1)[-k - 1], v = 1), hsv(h = 10/12, s = seq(0, 0.5, length = n - k + 1)[-1]), v = 1) } else { c(hsv(h = 6/12, s = seq(0.5, 0, leng...

...nom(x,s, pr= 0.4)), + xlab = "x", ylab = "s", zlab="density", theta = 150) > title(tit <- "negative binomial density(x,s, pr = 0.4) vs. x & s") > > image (x,size, log10(dnb), main= paste("log [",tit,"]")) Error in hsv(h, s, v, gamma) : invalid HSV color Execution halted And the last lines in mva-Ex.Rout are: > prcomp(USArrests, scale = TRUE) Standard deviations: [1] 1.5748783 0.9948694 0.5971291 0.4164494 Rotation: PC1 PC2 PC3 PC4 Murder -0.5358995 -0.4181809 0.3412...

Hi, Is there a way to incorporate an R object x to a file already containing R objects? It seems that 'save' is not capable to do this. If I save x to a file containing previously saved data, then I will lose this data. I use the funcion hsv in .Rprofile but it is recognized. Couriously, if I source .Rprofile when R is already running I do not get any error message. Thank you.

I couldn't find this in online help or the archives: Is there any R function or object giving the mapping of the colornames as given by colors() into the hsv() model? Regards -- Dr. Jens Oehlschl?gel-Akiyoshi MD FACTORY GmbH Bayerstrasse 21 80335 M?nchen Tel.: 089 545 28-27 Fax.: 089 545 28-10 http://www.mdfactory.de -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac....

I couldn't find this in online help or the archives: Is there any R function or object giving the mapping of the colornames as given by colors() into the hsv() model? Regards -- Dr. Jens Oehlschl?gel-Akiyoshi MD FACTORY GmbH Bayerstrasse 21 80335 M?nchen Tel.: 089 545 28-27 Fax.: 089 545 28-10 http://www.mdfactory.de -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac....

Hi, I would have expected that I get always 3 colors as result which is not true: hcl.colors(3, alpha=c(0, 0.5, 1)) # 3 colors rainbow(3, alpha=c(0, 0.5, 1)) # 3 colors heat.colors(3, alpha=c(0, 0.5, 1)) # 3 colors terrain.colors(3, alpha=c(0, 0.5, 1)) # 6 colors cm.colors(3, alpha=c(0, 0.5, 1)) # 6 colors topo.colors(3, alpha=c(0, 0.5, 1)) # 9 colors R-Version and

Hi Martin, Great that you follow this. My original intention was to be able to translate colornames to hsv because this would allow using colornames to cut out a certain part of the colorwheel for colorcoding (HSV component H, see my code below) I think internally we might have colors represented as Colornames, ColorIntegers, ColorHexcodes, ColorRGBs, ColorHSVs (ColorCMYs?) however the R-user probabl...

...w is the code. cm.colors <- function (n) { # from red from=0 # to blue to=8/12 if ((n <- as.integer(n[1])) > 0) { even.n <- n%%2 == 0 k <- n%/%2 l1 <- k + 1 - even.n l2 <- n - k + even.n c(if (l1 > 0) hsv(h = from, s = seq(0.5, ifelse(even.n, 0.5/k, 0), length = l1), v = 1), if (l2 > 1) hsv(h = to, s = seq(0, 0.5, length = l2)[-1], v = 1)) } else character(0) } > I think it would be useful to h...

...omoteMem2Reg) or that you rewrite the alloca by declaring a static local, and rewriting the code to use that instead of the alloca result. Mark Mendell From: llvm-dev <llvm-dev-bounces at lists.llvm.org> On Behalf Of Bruce Hoult via llvm-dev Sent: December 14, 2018 3:27 PM To: jjones at prc-hsv.com Cc: LLVM Developers Mailing List <llvm-dev at lists.llvm.org> Subject: Re: [llvm-dev] LLVM Backend for a platform with no (normal) stack You said you can allocate memory? On Fri, Dec 14, 2018 at 12:09 PM JD Jones <jjones at prc-hsv.com<mailto:jjones at prc-hsv.com>> wrote: T...

...rgive someone new to LLVM? And if your forgiveness stretches that far, perhaps you could clue me on just how I was rude so that I can avoid it in the future? More thanks, JD Jones From: Bruce Hoult [mailto:brucehoult at sifive.com] Sent: Friday, December 14, 2018 1:29 PM To: jjones at prc-hsv.com Cc: LLVM Developers Mailing List <llvm-dev at lists.llvm.org> Subject: Re: [llvm-dev] LLVM Backend for a platform with no (normal) stack Having your function prologue call malloc() and epilogue call free() (or similar functions) instead of bumping a stack pointer is not a problem. Tha...

...of the parameters in each part to get the length, but passes the full alpha vector in: terrain.colors <- function (n, alpha, rev = FALSE) { if ((n <- as.integer(n[1L])) > 0) { k <- n%/%2 h <- c(4/12, 2/12, 0/12) s <- c(1, 1, 0) v <- c(0.65, 0.9, 0.95) cols <- c(hsv(h = seq.int(h[1L], h[2L], length.out = k), s = seq.int(s[1L], s[2L], length.out = k), v = seq.int(v[1L], v[2L], length.out = k), alpha = alpha), hsv(h = seq.int(h[2L], h[3L], length.out = n - k + 1)[-1L], s =...

I want to get a lighter shade of a color...I have a lot of colored objects and want each one printed as a foreground against a slightly lighter background. I thought I could try something like changing the alpha channel by first converting it to rgb. But prior to trying that, I'm stuck with how to get the color after converting using col2rgb() to be interpreted again as a color, rather than

...elp me... I need advice in the following: I need two sets of colors for B and F which are easy to distinguish (when printed on a color laser printer), represent cardinality (ie have an intuitive mapping to an interval) or at least ordinality. I have experimented with the following: Bcolors <- hsv(.6, seq(0.2, 1, length=5), 1) Fcolors <- hsv(seq(.1,0, length=5), seq(0.2, 1, length=5) this is what you see in the plot. What colors would you use? Do you think that varying both brightness and hue helps to distinguish colors? Should I change saturation, too? Thanks, Tamas PS.: The plot...

...sting palette() function. Of course I don't mind if the R Core Team changes the function name or any other part of the code. Thanks, Arni arni.colors <- function(n, palette=c("temperature", "depth"), rgb.matrix=FALSE, plot.colors=FALSE) { rgb2hsv <- function(v) rgb(v[1], v[2], v[3]) palette <- match.arg(palette) x <- seq(0, 1, length=n) if(palette == "temperature") { r <- 1 / (1+exp(20-35*x)) g <- pmin(pmax(0,-0.8+6*x-5*x^2), 1) b <- dnorm(x,0.25,0.15) / max(dnorm(x,0.25,0.15)) } else {...

I suggest to add a new function to create a vector of n ``contiguous'' colors with tails in two colors. This function is similar to `cm.colors' but the colors can be choosen by hsv values. This function could be used e.g. as alternative to the default ``col.regions'' in `levelplot'. Perhaps the arguments in the following code could be simplified. Wolfram Fischer #--- twotailed.colors.R twotailed.colors <- function( n = 7 # number of colors to be...

Hello All, ? Am replicating in R an analysis I did earlier using SAS. See this as a test of whether I'm ready to start using R in my day-to-day work. ? Just finished replicating a Kaplan Meier analysis. Everything seems to work out fine except for one thing. The 95% CI around my estimate for the median is substantially larger in R than in SAS. For example, in SAS I have a median of 3.29 with a

Thanks for your response. Please see below. From: Bruce Hoult [mailto:brucehoult at sifive.com] Sent: Thursday, December 13, 2018 5:58 PM To: jjones at prc-hsv.com Cc: LLVM Developers Mailing List <llvm-dev at lists.llvm.org> Subject: Re: [llvm-dev] LLVM Backend for a platform with no (normal) stack Do you have a register that you can store a memory address >> yes in and an addressing mode that allows you to add (or subtract) a consta...