search for: pos2

...pageNo; uint32 checksum; } __attribute__ ((packed)); The description only says: devide the position into two fields. is it 2 times uint32 or some other values? Thanks in advance ------------------------------------------ OggS continued packet | first page (bos) | not last page | pos1: 0 pos2: 0 serial: 2006538233 pageNo: 0 checksum: 3061487401 OggS continued packet | first page (bos) | not last page | pos1: 0 pos2: 0 serial: 1711341811 pageNo: 0 checksum: 1734746641 OggS continued packet | not first | not last page | pos1: 0 pos2: 0 serial: 2006538233 pageNo: 1 checksum: 317851778...

...r coordinates: distance r and angle th); a, b0 and bt are model parameters point.hazard <- function(pos,a,b0,bt) a * exp(-(pos$r^2/(2*b0^2))) * exp(-(pos$th^2/(2*bt^2))) #point.hazard for a point related to input point pos by time t and speed v hazard <- function(t, v, gam, pos, a, b0, bt) { pos2 <- zredef(pos,-t*v,gam) pos2$th[pos2$th>pi] <- 2*pi-pos2$th[pos2$th>pi] point.hazard(pos2,a,b0,bt) } #Returns a list of polar co-ordinates for a point defined by distance m in direction gam from starting point pos zredef <- function(pos, m, gam) { x <- pos$r*sin(pos$th) + m*sin(...

Can anyone explain how best to go from a dataframe to a table (or better yet a new dataframe) of counts, where the row names in the new table (or dataframe) are the column names of the original df. start w/ DF1 = Pos1 Pos2 Pos3 .... oligo1 G C A oligo2 U U A oligo3 G C C oligo4 C G U oligo5 A A G ..... End with DF2 = G A U C Pos1 2 1 1 1 Pos2 1 1 1 2 Pos3 1 2 1 1 .... I know how to generate the counts of each one column at a ti...

Hi all, I'm building a plot of the values in tmeant (below) against positions 1 to 5, using matplot. tmeant looks like this: case1 case2 pos1 861.8466 818.5909 pos2 961.2841 976.3466 pos3 878.6080 1262.8523 pos4 950.8011 1129.6080 pos5 968.1080 1063.3920 I also have lower (object tl) and upper (object tu) bounds on the confidence intervals as follows: tl: pos1 pos2 pos3 pos4 pos5 case1 761.4777 872.8367 756.7253 806.7503 849.9667...

...all, I'm trying to optimize code and want to avoid for-loops as much as possible. I'm applying a calculation on subvectors from a big one, and I get the subvectors by using a vector of starting positions: x <- 1:10 pos <- c(1,4,7) n <- length(x) I try to do something like this : pos2 <- c(pos, n+1) out <- c() for(i in 1:n){ tmp <- x[pos2[i]:pos2[i+1]] out <- c(out, length(tmp)) } Never mind the length function, I apply a far more complicated one. It's about the use of the indices in the for-loop. I didn't see any way of doing that with an apply,...

...} } dividers <- c(qnorm(0.025), -1, 0, 1, qnorm(0.975)) addInteriorLine(mu+sigma*dividers, mu,sigma) # bquote creates an expression that text plotters can use t1 <- bquote( mu== .(mu)) mtext(bquote( mu == .(mu)), 1, at=mu, line=-1) addInteriorLabel <- function(pos1, pos2, m, s){ area <- abs(100*( pnorm(m+pos1*s,m,s)-pnorm(m+pos2*s, m,s))) mid <- m+0.5*(pos1+pos2)*s text(mid, 0.5*dnorm(mid,m,s),label=paste(round(area,2),"%")) } addInteriorLabel(dividers[1],dividers[2], mu, sigma) addInteriorLabel(dividers[2],dividers[3], mu, sig...

...2txt(rd) pos <- which(tools:::RdTags(rd) == "\\examples") tools::Rd2txt(rd[pos], fragment = TRUE) #> Examples: #> #> Error: 6: Tag \Sexpr not expected in code block # This fails. After prepare_Rd() it works fine: rd2 <- tools:::prepare_Rd(rd, stages = "render") pos2 <- which(tools:::RdTags(rd2) == "\\examples") tools::Rd2txt(rd2[pos2], fragment = TRUE) #> Examples: #> #> # foobar Interestingly, if Rd2txt() is called with the \examples tag only, instead of the 1-element list consisting of the \examples tag, like above and in tools::...

...-s*B[1,9] eigs.B<-eigen(B) #eigs.B #obtain $values(growth rate) and $vectors(stable stage dist) dom.pos<-which.max(eigs.B[["values"]]) #extract the dominant eigen value L1<-Re(eigs.B[["values"]][dom.pos]) #extract only the real part of the eigenvalue (Re) #L1 ###ssd dom.pos2<-which.max(eigs.B[["vectors"]]) #create index for dominant eigenvector w<-Re(eigs.B[["vectors"]][,dom.pos2]) #extracting the real part of the eigenvector (Re) ssd<-w/sum(w) eigen.values[i]<-L1 #storing values from each iteration ssd.values[i,]<-ssd #rv.values[i]...

...ng: Data<-read.table("Tree.txt", header=T, sep=",") attach(Data) ped<-pedigree(id, dadid, momid, sex, aff) par(xpd=T) plot.pedigree(ped) This is my data looks like without the last 3 individuals it works perfect,when i add them i get the following error: Error in if (min(pos2) < 0) { : missing value where TRUE/FALSE needed famid,id,dadid,momid,sex,aff 1,8860,9972,8856,2,0 1,8855,9972,8856,2,0 1,8859,9976,8860,2,0 1,8854,9971,8855,2,0 1,8863,9975,8859,2,0 1,8858,9975,8859,2,0 1,8865,9975,8859,2,0 1,9969,9970,8854,1,0 1,8864,9980,8863,2,0 1,8862,9980,8863,2,0 1,23834,...

....331 ms 49.778 ms 49.286 ms 19 srp2-0.hstntxtid-rtr1.texas.rr.com (24.93.33.145) 48.566 ms 48.574 ms 48.577 ms 20 pos3-0.hstntxeas-rtr1.houston.rr.com (24.28.96.198) 49.660 ms 49.827 ms 49.730 ms 21 srp0-0.hstntxbis-rtr1.houston.rr.com (24.28.96.2) 49.648 ms 49.556 ms 49.479 ms 22 pos2-0.hstntxbis-ubr1.houston.rr.com (24.28.96.37) 49.763 ms 49.793 ms 49.818 ms 23 * * * 24 * * * 25 * * * 26 * * * 27 * * * Thank you VV _________________________________________________________________ The new MSN 8: advanced junk mail protection and 2 months FREE* http://join.msn....

Hi everyone, I am desperately looking for a method to interpolate strings within an SQL statement as follows: I get a lot of rows out of a database (in my example POSITION_to_ZIPCODE Database with holds records for German ZIP Code <--> Gauss-Krueger Coordinate System ) and want this to be selected and computed individually row by row as follows: library(RODBC) channel <-

Hello everyone, I am currently working with some data where I need to select the first occurrence of a value after the occurrence of another value. The data has two columns, one with a time and one with occurence of certain events. The column of data I want to select from looks like this (and each of these events have a corresponding time in another column). Stat71 OutMag FirstResp InMag

Dear all, I have a data frame in which the columns need to be ordered. The first column X is at the right position, but the remaining columns X1-Xn should be ordered like this: X1, X2, X3 etc instead of like below. > colnames(pos1) [1] "X" "X1" "X10" "X11" "X12" "X13" "X14" "X15" "X16"

...all, I'm trying to optimize code and want to avoid for-loops as much as possible. I'm applying a calculation on subvectors from a big one, and I get the subvectors by using a vector of starting positions: x <- 1:10 pos <- c(1,4,7) n <- length(x) I try to do something like this : pos2 <- c(pos, n+1) out <- c() for(i in 1:n){ tmp <- x[pos2[i]:pos2[i+1]] out <- c(out, length(tmp)) } Never mind the length function, I apply a far more complicated one. It's about the use of the indices in the for-loop. I didn't see any way of doing that with an apply,...

This is a first draft of a subvolume quota implementation. It is possible to limit subvolumes and any group of subvolumes and also to track the amount of space that will get freed when deleting snapshots. The current version is functionally incomplete, with the main missing feature being the initial scan and rescan of an existing filesystem. I put some effort into writing an introduction into

...eSysA. shlwapi: Add a stub for SHSetDefaultDialogFont. advapi32: Remove outdated comment. localspl: Implement AddMonitor. winspool: Use the backend for AddMonitor. dlls: Do not use __WINE_ALLOC_SIZE between void and *. Dmitry Timoshkov (11): gdi32: Don't use pOS2->usWeightClass, some fonts don't set it correctly. winex11.drv: Fix the scan codes keypad keys section to match the vkeys one. kernel32: Use a kernel error code. winedevice: Wine PE loader is able to resolve forwards to not yet loaded modules. user32: Make GetMonitorI...