Search Archives

Hi, Do you try 'RSiteSearch("Branch Bound")'? -- Noia Raindrops noia.raindrops at gmail.com

Use backreference: as.numeric(gsub("^(.*)-$", "-\\1", as.character(temp))) -- Noia Raindrops noia.raindrops at gmail.com

Use triple colon operator: gplots:::balloonplot.default -- Noia Raindrops noia.raindrops at gmail.com

Hi, Try this: order(A)[!duplicated(sort(A))] -- Noia Raindrops noia.raindrops at gmail.com

Sorry, How about this? invisible(capture.output(source(...))) # or sink("/dev/null") source(...) sink() -- Noia Raindrops noia.raindrops at gmail.com

Hi, You missed a close bracket. node4:{ ... nodeDef:{ node4:{ ... # need a close bracket here } }, -- Noia Raindrops noia.raindrops at gmail.com

Hi, ?cat Read item sep in argument section. And try: cat("X = ", B, sep = "") -- Noia Raindrops noia.raindrops at gmail.com

Hello, I thing you need to install X11.app. see: http://support.apple.com/kb/HT5293 -- Noia Raindrops noia.raindrops at gmail.com

Hello, Add 'envir' arugment: load(workspace_name, envir = globalenv()) # or load(workspace_name, envir = parent.frame()) -- Noia Raindrops noia.raindrops at gmail.com

Try this: table(nDeaths = rep(0:4, c(109, 65, 22, 3, 1))) ## or as.table(array(c(109L, 65L, 22L, 3L, 1L), dimnames = list(nDeaths = 0:4))) -- Noia Raindrops noia.raindrops at gmail.com

Hi, Yes you can. As William says, the 'seq_len' approach seems to be better. 'head' function is the wrapper for 'seq_len' approach and slower. I didn't know that '-length(x)' approach is slow for long vectors.... -- Noia...

Hello, try this: x <- c("SELECT [public_tblFiche].[Fichenr], [public_tblArtnr].[Artnr]", "SELECT public_tblFiche.Fichenr, public_tblArtnr.Artnr") # > The square backets [ and ] should removed x <- gsub("[][]", "", x) # > and xxx_xxx.xxx should become \"xxx\".\"xxx\"\".\"xxx\" x <- gsub("([[:alpha...

'grep' does not change strings. Use 'gsub' or 'regmatches': # gsub Front <- gsub("^.*?([1-9][0-9]*\\.).*?$", "\\1", a) End <- gsub("^.*?(\\.[0-9]*[1-9]).*?$", "\\1", a) # regexpr and regmatches (R >= 2.14.0) Front <- regmatches(a, regexpr("[1-9][0...

Hello, Use 'parse' for converting from character to expression: x <- c(100, 50, 10, 1, 0.1, 0.05, 0.001) plot(log(x), yaxt = "n") parse(text = sprintf("e^%d", axTicks(2))) ## expression(e^-6, e^-4, e^-2...

Hi, try below: x <- c(1:20) y <- c(1, 5, 10, 14) x[ c( (y[1]+2):(y[2]-1), (y[2]+2):(y[3]-1), (y[3]+2):(y[4]-1) ) ] x[unlist(lapply(1:(length(y) - 1...

Hello, If argument 'local' is FALSE, 'source' function is evaluating the file in global environment and object 'a' is not in global environment. Function's environment is just local. And environment() in a function returns the function's environment. test...

Hello, For example: url <- c("http://www.example.com", "http://www.example5.com") res <- vector("list", length(url)) for (i in 1:length(url)) res[[i]] <- try(readLines(url[i]), silent = TRUE) res[[2]] ## [1] "Error in file(con, \"r...

How about this? read.table(text = "Granitic Hills 16-20 PZ Loamy Upland 16-20 PZ Sandy Loam Upland 12-16 PZ / Sandy Loam, Deep 12-16 PZ Loamy Upland 12-16 PZ / Sandy Loam Upland 12-16 PZ Loamy...

The cbind method to data.frame is just a wrapper for data.frame(...). So character columns are converted to factors. dat <- cbind(data.frame(x = 1:3), a = c("a", "b", "c"), b = c("a", "a", "c")) str(dat) ## 'data...

Hello, Each block of probs range from p00 to p10 is last value before the block. Example: probs: .1 .1 .5 .5 .5 .9 .9 vec1 : 0 0 0 0 0 1 1 probs: .9 .9 .5 .5 .5 .1...