search for: ncb

...SEXP Bin, SEXP tolin) { int *Adims, *Bdims; double tol = asReal(tolin); SEXP A, B; PROTECT(A = duplicate(Ain)); PROTECT(B = duplicate(Bin)); Adims = INTEGER(coerceVector(getAttrib(A, R_DimSymbol), INTSXP)); Bdims = INTEGER(coerceVector(getAttrib(B, R_DimSymbol), INTSXP)); int nrA, ncB; double *Ap, *Bp; nrA = Adims[0]; ncB = Bdims[1]; Ap = REAL(A); Bp = REAL(B); /* int info, *ipiv = (int *) R_alloc(nrA, sizeof(int)); */ /* F77_CALL(dgesv)(&nrA, &ncB, Ap, &nrA, ipiv, Bp, &nrA, &info); */ mysolve2(Ap, &nrA, Bp, &ncB, &a...

...newidth)) photonsincidenttodetectorbin <- function(binno, ntotalclouds, avgphotonfromcloud, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth = numberofbins / 6) { sc <- ampmean - ampmode if(sc <= 0) stop("Mean Amplification must be greater than Mode Amplification") ncb <- ncloudsbin(binno, ntotalclouds, numberofbins, linewidth) rg <- rgamma(ncb, ampmean / sc, sc) rp <- rpois(ncb, avgphotonfromcloud) dr <- rg * rp if(sum(dr) > 25000) print(cbind(rg, rp, dr, avgphotonfromcloud, ncb)) return(sum(dr)) } The if-line is included to trigger unu...

...;environment: 140e187f0> $"FUN(newX[, i], ...)" <environment: 1404b6608> $"apply(cbind(-as.integer(numberofbins/2):as.integer(numberofbins/2)), " <environment: 1404b5460> $"FUN(newX[, i], ...)" <environment: 1400f6798> $"photonsdetectedbin(ncb, intensityfromcloud(ncb, intensityfromcloud, " <environment: 1400f55c8> $"sum(rpois(ncloudsbin, sensitivity * intensityfromcloud))" <environment: 1400f53e8> $"rpois(ncloudsbin, sensitivity * intensityfromcloud)" <environment: 1400f5168> $"intensity...

Hello, I'm trying to take the correlation of two distance matrices and get the r2 value ex) Ndisc PS1 Ntet Nsito NcB NcA PS3 NcC NiB NiA PS1 0.08945 Ntet 0.08601 0.02020 Nsito 0.09361 0.02780 0.02260 NcB...

Ein eingebundener Text mit undefiniertem Zeichensatz wurde abgetrennt. Name: nicht verf?gbar URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20130513/fe848ce7/attachment.pl>

...he specified network name is no longer available. [The file is not copied, but the name is placed into the directory. A second attempt works normally, unless one backs out of the folder, then comes back in again, in which case the failure is repeated.] [An attempt to open a VS C++ project with no .NCB file. VS tries to build another file, but fails during the write.] Windows - Delayed Write Failed Windows was unable to save all the data for the file \\Server\icr\active\Copy of Ctrl 4-3-1-33\SKAN_Talk.ncb. The data has been lost. This error may be caused by a failure of your computer hardware or...

...newidth)) photonsincidenttodetectorbin <- function(binno, ntotalclouds, avgphotonfromcloud, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth = numberofbins / 6) { sc <- ampmean - ampmode if(sc <= 0) stop("Mean Amplification must be greater than Mode Amplification") ncb <- ncloudsbin(binno, ntotalclouds, numberofbins, linewidth) return(sum(rgamma(ncb, ampmean / sc, sc) * rpois(ncb, avgphotonfromcloud))) } photonsdetectedbin <- function(binno, ntotalclouds, avgphotonfromcloud, sensitivity, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth = numbero...

Dear All, would you please provide your thoughts on the following: let us say I have: a <-c(1,5,8,15,32,69) b <-c(8.5,33) and I would like to extract from "a" the two values that are closest to the values in "b", where the length of this vectors may change but b will allways be shorter than "a". So at the end based on this example I should have the result

Hello, I am brand new in this site as well as in R. Please accept my early apology if it's not the right place to ask such a question. I have the following equation: b=[2(1-a)(1+2a)^0.5]/(1+3a) How can I solve the above equation for 'a' using R? Thanks in advance. KD [[alternative HTML version deleted]]

Dear all, I am a R beginner, and I am looking for a way to do the same thing for all levels of a column in a table. Basically, I have a bunch of protein sequences composed of different amino acid residues, and each residue is represented by an uppercase letter. I want to calculate the ratio of different amino acid residues at each position of the proteins. Here is an example table: Proteins

...wer that! http://www.sciencenews.org/view/generic/id/340450/title/Crime_numbers_may_mislead_ Cheers, Bert -- Bert Gunter Genentech Nonclinical Biostatistics Internal Contact Info: Phone: 467-7374 Website: http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm

...> > > > -- > > > > Bert Gunter > > Genentech Nonclinical Biostatistics > > > > Internal Contact Info: > > Phone: 467-7374 > > Website: > > > http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb > -biostatistics/pdb-ncb-home.htm > > > > -- > > Bert Gunter > Genentech Nonclinical Biostatistics > > Internal Contact Info: > Phone: 467-7374 > Website: > > http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb > -biostatistics/pdb-ncb-home.htm > -- Thoma...

Hi everyone! I?m working on behalf of the Nightclub & Bar 2011 Convention and Trade Show to get the word out about America?s biggest and most important bar, nightclub and beverage event of the year! I hope it?s ok I?m posting this? Now in its 26th year, NCB is hitting Las Vegas March 7-9, 2011. Work hard and play harder with more than 28,000 industry professionals for networking, education and some serious fun! You?re guaranteed the best in nightlife and networking with NCB?s legendary parties at Las Vegas' premier nightclubs, bars and restaurants...

...y of their users possess, and can be dangerous because they > seem to "work". > > JN > -- Bert Gunter Genentech Nonclinical Biostatistics Internal Contact Info: Phone: 467-7374 Website: http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm

....R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. -- Bert Gunter Genentech Nonclinical Biostatistics Internal Contact Info: Phone: 467-7374 Website: http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm

I have a data in the following form : CIN TRN_TYP 9079954 1 9079954 2 9079954 3 9079954 4 9079954 5 9079954 4 9079954 5 9079954 6 9079954 7 9079954 8 9079954 9 9079954 9 . . . . . . there are 100 types of CIN (9079954,12441087,15246633,...) and respective TRN_TYP first of all, I want this data to be

...ister a new name on a server so that clients can locate it by broadcasting its NetBIOS name. At this point, this little VB code does register the name successfully, but it's not listed in "net name" and "net send" to it fails: ====== Private Sub Command1_Click() Dim ncbInfo As NCB Dim sMachine As String * NCBNAMSZ Dim bRet As Byte '===========1. Send RESET With ncbInfo .ncb_command = NCBRESET End With bRet = Netbios(ncbInfo) MsgBox ncbInfo.ncb_retcode, , ncbInfo.ncb_num '===========2. Register name sM...

suppose I have two sets of vectors: x1,x2,...,xN and y1,y2,...,yN. I want N correlations: cor(x1,y1), cor(x2,y2), ..., cor(xN,yN). my sets of vectors are arranged as data frames x & y (vector=column): x <- data.frame(a=rnorm(10),b=rnorm(10),c=rnorm(10)) y <- data.frame(d=rnorm(10),e=rnorm(10),f=rnorm(10)) cor(x,y) returns a _matrix_ of all pairwise correlations: cor(x,y)

Hello all, I cannot seem to figure out this seemingly simple procedure. I want to sort a data frame by a specified character vector. So for : df.. <- data.frame(Season=rep(c("Summer","Fall","Winter","Spring"),4),Obs= runif(length(rep(c("Summer","Fall","Winter","Spring"),4)))) I want to sort the data frame

I have a stupid problem that is currently driving me crazy... Let us suppose that I want to draw a big red square in the middle of my current device (say X11) I tried the following code : pushViewport(viewport(xscale=c(0,1), yscale=c(0,1)), just=c("center", "center")) vp1 <- viewport(x=unit(0.5, "native"), y=unit(0.5, "native"), width=unit(0.4,