search for: 100l

..."C", "D", "E", "G", "H", "I", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "Y"), class = "factor"), ratio = c(99L, 100L, 100L, 1L, 99L, 100L, 100L, 1L, 98L, 100L, 10L, 87L, 3L, 79L, 9L, 12L, 84L, 99L, 1L, 83L, 13L, 100L, 100L, 100L, 100L, 99L, 100L, 100L, 100L, 98L, 2L, 100L, 100L, 100L, 2L, 98L, 100L, 100L, 1L, 99L, 100L, 100L, 98L, 100L, 95L, 5L, 98L, 2L, 3L, 95L, 1L, 1L, 98L)), .Names = c("position", &q...

...32L, 1500L, 1512L, 1530L, 1535L, 1440L, 1441L, 1445L, 1515L, 1517L, 1520L, 1523L, 1525L, 1530L, 1531L, 1537L, 1538L, 1548L, 1550L, 1541L, 1543L, 1558L, 1728L, 1801L, 1811L, 1816L, 1822L, 1928L, 1936L, 1941L, 2000L, 2002L, 2016L, 2024L, 2030L, 2038L, 2045L, 1435L, 1506L, 1540L, 1541L, 1552L, 1810L, 1100L, 1242L, 955L, 1054L, 1056L, 1100L, 1108L, 1111L, 1216L, 1255L, 1316L, 821L, 1000L, 1010L, 1032L, 1039L, 1045L, 1048L, 1056L, 1100L, 1109L, 1220L, 1231L, 1232L, 1235L, 1236L, 1237L, 1238L, 1239L, 1245L, 1246L, 1249L, 1250L, 1253L, 1254L, 1300L, 1301L, 1257L, 1258L, 1305L, 1315L, 1601L, 1025L, 1050L,...

I read enourmous comment about this questions stating that it was answered before.? I?have been looking for the answer for a week without luck !!!? I searched the archives the xts. vignitte , googled for an answer but couldn't find one so her it is: ? the Vignette states that xts "doesn't inforce the duplicate row requirement" but yet when I try to bring in tick stock data from

Hi All, I have a scatter plot produced using ggplot2 and I want to add the regression line to this scatter plot. I suppose I can use geom_smooth() to do this, but for the sake of learning ( I am new both to R and ggplot2), I want to try and add it as a function (something that curve() does in the standard R plotting). I did some search and found that stat_function() can be used for this. But

...TA COFFEE (10)", "SILVER ", "SOYBEAN MEAL ", "SOYBEAN OIL", "SOYBEANS ", "SPCL HIGH GRADE ZINC USD", "STANDARD LEAD USD", "SUGAR WHITE", "WHEAT"), class = "factor"), VALUE = c(500L, 10000L, 420L, 420L, 100L, 5000L, 100L, 50L, 250L, 25L, 25L, 6L, 25L, 10L, 375L, 10L, 500L, 150L, 1120L, 50L, 50L, 50L, 100L, 600L, 50L, 500L, 400L, 400L, 110L)), .Names = c("SHORTDESCRIPTION", "VALUE"), class = "data.frame", row.names = c(NA, -29L)) I want to merge these df: > y=merge(...

...76L, 76L, 76L, 78L, 78L, 78L, 79L, 79L, 80L, 80L, 81L, 81L, 81L, 81L, 82L, 82L, 82L, 83L, 83L, 83L, 84L, 85L, 85L, 85L, 87L, 87L, 87L, 87L, 87L, 87L, 88L, 88L, 88L, 88L, 89L, 89L, 90L, 91L, 91L, 91L, 91L, 91L, 92L, 93L, 93L, 94L, 95L, 95L, 95L, 95L, 96L, 96L, 96L, 97L, 97L, 98L, 98L, 98L, 98L, 99L, 100L, 100L, 100L, 100L, 100L), d = c(15, 27.5, 10.5, 12.25, 14, 32.5, 80, 49.5, 15.25, 13.5, 12.25, 12, 72.5, 68.5, 12, 9.25, 12.75, 13.5, 28, 38, 10.25, 62.5, 73.5, 61.5, 54.5, 40, 24.25, 43, 13, 20.75, 23.25, 25.5, 7.25, 11.25, 60.5, 11.25, 8, 11, 93.25, 8.75, 10.5, 35, 19, 79, 60.5, 64.5, 53.75, 8.75...

Hello, I have an input file: http://r.789695.n4.nabble.com/file/n3700031/testOut.txt testOut.txt where col 1 is chromosome, column2 is start of region, column 3 is end of region, column 4 and 5 is base position, column 6 is total reads, column 7 is methylation data, and column 8 is the strand. I would like a summary output file such as:

...quot;15/05/09", "16/05/09", "23/05/09"), class = "factor"), Analysis = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 3L, 4L, 1L, 3L, 4L), .Label = c("A", "B", "C", "D"), class = "factor"), Startup_cost = c(100L, 120L, 100L, 120L, 100L, 120L, 100L, 50L, 60L, 100L, 50L, 60L), Sup_cost = c(10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L)), .Names = c("Product", "Batch", "Date.in", "Date.out", "Analysis", "Startup_cost", &q...

Inline. Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Wed, Oct 14, 2020 at 3:23 PM 1/k^c <kchamberln at gmail.com> wrote: Is which() invoking c-level code by chance, making it slightly faster > on average? > You do not need

...820, 1210618200, 1210633260, 1210640940, 1210650240, 1210663560, 1210677660, 1210686960, 1210695240, 1210705380), class = c("POSIXct", "POSIXt"), tzone = ""), Score = c(80L, 11L, 81L, 152L, 130L, 122L, 142L, 20L, 1L, 31L, 93L, 136L, 128L, 112L, 48L, 57L, 92L, 108L, 100L, 107L, 81L, 37L, 47L, 70L, 114L, 125L, 99L, 46L, 108L, 106L, 111L, 75L, 75L, 136L, 36L, 13L, 35L, 71L, 105L, 113L, 116L, 116L, 94L, 130L, 102L, 19L, 1L, 33L, 78L, 89L, 115L, 130L, 117L, 105L, 0L, 36L, 80L, 130L, 124L, 124L, 66L, 75L, 57L, 94L, 124L, 165L, 170L, 158L, 127L, 116L, 107L, 118L, 15...

...in for resolving this. I have already started using the version that works for me. But to clarify the second part, please let me paste the what I did and the error message: > set.seed(2024) > data <- data.frame( + Date = sample(seq(Sys.Date() - 5, Sys.Date(), by = "1 days"), 100L, + TRUE), + count = sample(10L, 100L, TRUE) + ) > > # coerce tapply's result to class "data.frame" > res <- with(data, tapply(count, Date, mean)) |> as.data.frame() Error: unexpected '>' in "res <- with(data, tapply(count, Date, mean)) |>"...

...started using the version > that works for me. > > But to clarify the second part, please let me paste the what I did and the > error message: > >> set.seed(2024) >> data <- data.frame( > + Date = sample(seq(Sys.Date() - 5, Sys.Date(), by = "1 days"), 100L, > + TRUE), > + count = sample(10L, 100L, TRUE) > + ) >> >> # coerce tapply's result to class "data.frame" >> res <- with(data, tapply(count, Date, mean)) |> as.data.frame() > Error: unexpected '>' in "res <- with(data, tapply(...

...0.0 + > dput(data) structure(list(V1 = structure(c(1L, 1L, 3L, 3L, 4L, 5L, 6L, 6L, 7L, 2L), .Label = c("chr1", "chr10", "chr2", "chr3", "chr4", "chr5", "chr7"), class = "factor"), V2 = c(500L, 550L, 700L, 1000L, 100L, 450L, 450L, 50034L, 50055L, 50063L), V3 = c(500L, 550L, 700L, 1000L, 100L, 450L, 450L, 50034L, 50055L, 50063L), V4 = structure(c(3L, 3L, 3L, 3L, 3L, 1L, 3L, 2L, 2L, 3L), .Label = c("CG", "CHG", "CHH"), class = "factor"), V5 = c(0L, 0L, 0L, 0L,...

...wrong (or even if its correct and there is room for improvement, im pretty new to this) it would be much appreciated. I've had a simple look at the results and they look fine, but seriously, 500x faster?! function in R; library(compiler) Rrcomp <- cmpfun( function(n, lam, nu, max = 100L) { ans <- integer(n) dist <- dcomp(0:max, lam, nu, max) u <- runif(n) for (i in 1:n) { count <- 0L pr <- dist[1L] while (pr < u[i]) { count <- count + 1L...

...=sigma, log=TRUE)) } theta<-rep(-2,4) fand<-nlogL(theta) fsim<-negll(theta) cat("Check fn vals: expm =",fand," simple=",fsim," diff=",fand-fsim,"\n") cat("time the function in expm form\n") tnlogL<-microbenchmark(nlogL(theta), times=100L) tnlogL cat("time the function in simpler form\n") tnegll<-microbenchmark(negll(theta), times=100L) tnegll ftimes<-data.frame(texpm=tnlogL$time, tsimp=tnegll$time) # ftimes boxplot(log(ftimes)) title("Log times in nanoseconds for matrix exponential and simple MIN fn")

...5L, 85L, 87L, 87L, 87L, 87L, 87L, 87L, 88L, 88L, 88L, 88L, >>>>>>>>> 89L, 89L, 90L, 91L, 91L, 91L, 91L, 91L, 92L, 93L, 93L, 94L, 95L, >>>>>>>>> 95L, 95L, 95L, 96L, 96L, 96L, 97L, 97L, 98L, 98L, 98L, 98L, 99L, >>>>>>>>> 100L, 100L, 100L, 100L, 100L), d = c(15, 27.5, 10.5, 12.25, 14, >>>>>>>>> 32.5, 80, 49.5, 15.25, 13.5, 12.25, 12, 72.5, 68.5, 12, 9.25, >>>>>>>>> 12.75, 13.5, 28, 38, 10.25, 62.5, 73.5, 61.5, 54.5, 40, 24.25, >>>>>>>>> 43,...

...ill had a 10ms difference in the value returned by microbenchmark between the following methods: one with and one without using which(). The difference is reversed from what I expected, since which() is an extra step. microbenchmark( head( dat[which(dat$gender2=="other"),],), times=100L) microbenchmark( head( dat[dat$gender2=="other",],), times=100L) min lq mean head(dat[which(dat$gender2 == "other"), ], ) 62.93803 74.25939 88.4704 head(dat[dat$gender2 == "other", ], ) 71.8914 87....

...ACTIVE_DEVICE. --- R-2.7.0/src/library/grDevices/R/zzz.R 2008-04-27 13:49:11.000000000 +0200 +++ R-2.7.0/src/library/grDevices/R/zzz.R.new 2008-04-27 13:59:37.000000000 +0200 @@ -22,7 +22,7 @@ extras <- if(.Platform$OS.type == "windows") list(windowsTimeouts = c(100L,500L)) else list(bitmapType = if(capabilities("aqua")) "quartz" else if(capabilities("cairo")) "cairo" else "Xlib") - defdev <- Sys.getenv("R_DEFAULT_DEVICE") + defdev <- as.character(Sys.getenv("R_DEFAULT_DEVICE&quot...

...ate the color schemes for lines and points, but I can't use multiple scale_color_manual statement in one ggplot. Jun Shen ####sample data######### df1 <- structure(list(Y2 = c(0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L), X = c(27L, 8L, 33L, 53L, 100L, 52L, 9L, 60L, 50L, 10L, 3L, 30L, 50L, 15L, 90L, 48L, 110L, 75L, 72L, 150L, 47L, 30L), GRP = structure(c(3L, 1L, 3L, 4L, 4L, 4L, 1L, 3L, 3L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 4L), .Label = c("1", "2", "3", "4"), class = "factor")), .Na...

...0L, 148L, 135L, 970L, 222L, 240L, 1332L, 43875L, 210L, 162L, 185L, 180L, 459L, 35854L, 3270L, 162L, 259L, 120L, 9130L, 2120L, 111L, 222L, 595L, 888L, 222L, 189L, 210L, 1740L, 630L, 520L, 120L, 9673L, 160L, 648L, 280L, 378L, 240L, 40L, 444L, 407L, 210L, 185L, 180L, 148L, 110L, 486L, 148L, 756L, 100L, 2750L, 40L, 720L, 1440L, 185L, 259L, 240L, 259L, 150L, 37L, 481L, 222L, 90L, 111L, 5598L, 222L, 222L, 222L, 222L, 322L, 112L, 222L, 690L, 180L, 222L, 12L, 18L, 22L, 12L, 22L, 6L, 30L, 62L, 20L, 30L, 12L, 185L, 10L, 185L, 10L), bandNum = list(0L, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3...