search for: nrec

Displaying 12 results from an estimated 12 matches for "nrec".

Did you mean: nre
2010 Jan 03
2
plot question
..."datum") # # Not sure if I got the row.names correct, I may need to use as.character (I believe I did use #that in the interactive session). attach(glucose) summary(glucose) ncol <- length(names(glucose)) xrange <- range(1, ncol) yrange <- range(0, max(!is.na(glucose[1:ncol]))) nrecs <- nrow(glucose) colors <- rainbow(nrecs) linetype <- c(1:nrecs) plot(xrange, yrange, type="n", xlab="Measurement moment",  ylab="Glucose (mmol/liter)") for (i in 1: nrecs) {   daily_values <- glucose[i,]   lines(daily_values, type="b", lwd=1.5,...
2011 Jul 19
1
Lattice plot problem outputting to jpeg
...ots_1.jpg",height=600,width=600) pdf("Z:\\My Documents\\PROJECTS\\Access Policy\\AccessDAPlots_1.pdf") #png("Z:\\My Documents\\PROJECTS\\Access Policy\\AccessDAPlots_1.png") #tiff("Z:\\My Documents\\PROJECTS\\Access Policy\\AccessDAPlots_1.tiff") while (irec <= nrec) { con_new<-consultants[irec] spec_new<-specialty[irec] spec_cons_new<-spec_cons[irec] if (spec_cons_new!=spec_cons_old || irec==nrec ) { strip_name[con_count]<-paste(spec_old,'\n',con_old) if (spec_new!=spec_old || irec==nrec) { spec_old&...
2011 May 24
2
escape characters in shell commands
...ke this string up with the file name I get from file.choose(): filename = file.choose() #get the number of lines in the file # first make a command string with the filename in it cmd = paste('findstr /R /N "^" ', filename, ' | find /C ":"', sep=""') nrec = as.numeric(shell(cmd)) But R puts in escape characters for the ": > cmd [1] "findstr /R /N \"^\" D:\\my_dir\\my_file | find /C \":\"" and shell(cmd) does not work properly. And > nrec=shell('findstr /R /N "^"D:\\my_dir\\my_file | find /C &q...
2002 Apr 26
4
Memory "leak" in readChar (PR#1483)
...he memory leak is in readChar header <-paste("This is a very long and boring text header which appears", "at the beginning of each chunk of an even longer and duller", "file which contains mostly binary data") nchars <- nchar(header) nrecs <-2000 ntries <- 100 ## Write a test file stream <- file("/tmp/gunge") open(stream,open="wb") for(irec in 1:nrecs){ ## This writes null-ended strings unless you use the eos=NULL option writeChar(header,stream,eos=NULL) } close(stream) ## Read in the file ntries t...
2004 Nov 17
1
Re: variations on the theme of survSplit
...vs <- as.matrix(covs) }else{ n.covs <- 0 } } ordered.t <- t(apply(cbind(onset,time.dep),1,sort,na.last=TRUE)) tot.time.dep <- apply(ordered.t,1,function(x) sum(!is.na(x))) ordered.t <- cbind(rep(0, nrow(ordered.t)), ordered.t) npars <- 4+n.time.dep+n.covs nrecs <- sum(tot.time.dep) new.x <- as.data.frame(matrix(nr=nrecs, nc=npars)) names(new.x) <- c("start", "stop", "event", names(time.dep),names(covs),"episode") this.rec<-0 for(i in 1:length(onset)) { for(j in 1:tot.time.dep[i]) { thi...
2010 Aug 16
1
lmomRFA-package: regsimq()
Hi List! I?m using regsimq() from the ?lmomRFA?-package to calculate error bounds for diverse distributions. For example: regsimq(gumfit$qfunc, nrec = lmom.data$n, f = lcdfgum, boundprob = c(0.025, 0.975)) Several times I got this error massage: Fehler in quantile.default(ou, probs = boundprob, type = 6) : missing values and NaN's not allowed if 'na.rm' is FALSE So my question is, can I change 'na.rm' = FALSE into '...
2006 Nov 20
2
problem with loop to put data into array with missing data for some files
....beg -360)} #since sp prefers -180 to 180 encoding lons <- seq(lon.beg, lon.end, length=nx) lons[lons > 180] <- lons[lons > 180]-360 #since sp prefers -180 to 180 encoding #read flat file into R (header first) dims <- scan("/tmp/wgrib.output", nlines=1, quiet=T) nrec <- dims[1]*dims[2] indata <- paste("indata.", i, j, mon2, sep="") indata <- scan("/tmp/wgrib.output", 'numeric', nlines=nrec, skip=1, quiet=T) indata <- matrix(as.numeric(indata), nrow=dims[1], ncol=dims[2], byrow=F) #to get precip into mm/m...
2006 Nov 20
3
problem with loop to put data into array with missing data forsome files
...>to 180 encoding > lons <- seq(lon.beg, lon.end, length=nx) > lons[lons > 180] <- lons[lons > 180]-360 #since sp >prefers -180 >to 180 encoding > > #read flat file into R (header first) > dims <- scan("/tmp/wgrib.output", nlines=1, quiet=T) > nrec <- dims[1]*dims[2] > indata <- paste("indata.", i, j, mon2, sep="") > indata <- scan("/tmp/wgrib.output", 'numeric', nlines=nrec, >skip=1, >quiet=T) > indata <- matrix(as.numeric(indata), nrow=dims[1], ncol=dims[2], > >byrow=F)...
2009 Nov 16
1
lmomco package and confidence limits?
Hello, I am using the lmomco package (lmom.ub and pargev) to compute the GEV parameters (location, scale, and shape), which are used to estimate return values. I was wondering how/if I can calculate upper and lower confidence (CI_u, CI_l) intervals for each return frequency using the GEV parameters to fill-in the table below? Xi (location) = 35.396 Alpha (scale) = 1.726 Kappa (shape) =
2006 Jun 16
0
multiple samba instances unable to join domain simultaneously
...nths ago, but only recently discovered this service problem. The message we get when this happens is the predictable "trust relationship failed" error while trying to access a non-associated service. jonathan -- Jonathan Woytek w: 412-681-3463 woytek+@cmu.edu NREC Computing Manager c: 412-401-1627 KB3HOZ PGP Key available upon request
2008 Jul 24
5
printa stddev error
Hi, Searched for similar errors and nothing came up. Anybody know what this is? When using aggregate stddev, and then trying to print it at END, using printa, I get this error: dtrace: processing aborted: Invalid return value from callback avg works fine. Tried on two recent builds of solaris (build 89 and build 94), on two difference sparc systems. Here''s a sample script:
2012 Sep 03
1
[GIT-PULL] XFS filesystem driver
...number %lu", ino); + + free(buf); + free(leaf); + + return ip; + +failed: + free(ip); + free(buf); + free(leaf); + + return ip; +} + +static xfs_fsblock_t +select_child(xfs_dfiloff_t off, + xfs_bmbt_key_t *kp, + xfs_bmbt_ptr_t *pp, + int nrecs) +{ + int i; + + for (i = 0; i < nrecs; i++) { + if (be64_to_cpu(kp[i].br_startoff) == off) + return be64_to_cpu(pp[i]); + if (be64_to_cpu(kp[i].br_startoff) > off) { + if (i == 0) + return be64_to_cpu(pp[i]); + else +...