search for: bfr

...ll confused. Here is a reproducible example (also attached) with output. I let the code and the output talk for itself: peek <- function(file, from=1, to=500) { cat("--------------------------------------\n") cat(sprintf("%s: %d bytes\n", file, file.info(file)$size)) bfr <- suppressWarnings(readBin(file, what="character", n=to)) bfr <- gsub("(\001|\002|\003|\004|\005|\016|\020|\036|\a|\n|\t)", "", bfr); bfr <- bfr[nchar(bfr) > 0]; cat(bfr, sep="", "\n"); } saveCache <- function(file, y, sources...

...[R] platforms? I have been looking at 1) writeBin 2) writeChar 3) cat and neither of them manage to write arbitrary sequences of bytes (0-255). For instance, I would like to create a binary file of length three containing the bytes 0, 1 and 0. I [R] I have the following vector of bytes: bfr <- c(0,1,0) 1) For having 'writeBin' to write bytes to a file the argument 'size' should be one. However, this is not supported by my Windows Me system. I haven't been able to try this on other platforms. Using 'writeBin(bfr, con)' with default 'size' argumen...

Hello dear R-devel, When installing R 3.0.0 on Windows 7, and then running: require(tools) checkMD5sums(dir=R.home()) I get the following massage: files ‘etc/Rconsole’, ‘etc/Rprofile.site’ have the wrong MD5 checksums [1] FALSE This happens when using the 32 and the 64 bit version of R. And was also reported by 2 other users on other machines, as can be seen in the comments to this post:

A new problem has cropped up with compiling vignettes for my package BayesFactor. I'm not sure when it started, but I can tell you it didn't occur on R 2.15.3, and it does on 3.0.0 RC (2013-03-31 r62463) (session info is at the bottom of this message). I have defined methods for which.min and which.max for a class (I've defined both S3 and S4 methods for the class

...etInitial(height~SSexponen(dbh,r,A),data=data.frame(dbh,height)) cat("(Starting values for the exponential fit: r=",tmp[1],"and A=",tmp[2],")\n") modelfit=nls(height~SSexponen(x=dbh,r,A),trace=traceson,control=list(maxiter=maxint,tol=tolerance,minFactor=minstepfactor)) bfr=summary(modelfit)$coefficients[1];bfA=summary(modelfit)$coefficients[2] cat("Best exponential fit is (",ytxt,")=(A*exp(r*(",xtxt,"))) with parameters r=",bfr,"and A=",bfA,"\n") #Produces: Best exponential fit is ( Height in m )=(A*exp(r*( DBH in mm...

...gunzip function in the R.utils package. It opens a connection to a gzfile, uses readBin to read from that connection, and then uses writeBin to write out the raw data to a new file. This works as expected under linux/mac, but under Windows, I get: Error in readBin(inn, what= raw(0), size = 1, n=BFR.SIZE) : negative length vectors are not allowed A simple traceback shows the error in readBin. I wouldn't be surprised if this is a programming issue not located in readBin, but I am confused about the difference in behaviors on Windows versus mac/linux. Any insight into what I can do to...

...reate a file > cat("Hello", file="foo.txt") > file.info("foo.txt") size isdir mode mtime foo.txt 5 FALSE 666 2014-01-06 15:53:27 ctime atime exe foo.txt 2014-01-06 15:43:07 2014-01-06 15:43:07 no > bfr <- readChar("foo.txt", n=9) # Create a symbolic link > file.symlink("foo.txt", "link.exe") TRUE > file.info("link.exe") size isdir mode mtime link.exe 0 FALSE 777 2014-01-06 15:59:55 ctime...

...tion imageAssociee<- "mosaique_all_v1.img" # nom de l'image facteurMetreParPixel<- 0.3 # combien de metre vaut un pixel tailleFenetres= 30 # en metre start.time<-Sys.time();start.time make.NDVI.photo(centro.tout.900[19137:24136,],"red","BFR\\NDVI_red_fenetre\\batch 3\\") stop.time<-Sys.time() time.run<-stop.time-start.time alarm() time.run gc() start.time<-Sys.time();start.time make.NDVI.photo(centro.tout.900[24137:29136,],"red","BFR\\NDVI_red_fenetre\\batch 4\\") stop.time<-Sys.time() time...

...ll(con)) close(con); }); # Zero-sized files have to be treated specially if (info$size == 0) { con <- file(pathname, open="w"); } else { con <- file(pathname, open="r+b"); seek(con=con, where=0, origin="start", rw="read"); bfr <- readBin(con=con, what="raw", n=1); seek(con=con, where=0, origin="start", rw="write"); writeBin(con=con, bfr); } invisible(oldTimestamp); } # touchFile() # 1. Create a file pathname <- tempfile() cat(file=pathname, "Hello world!") md5a...

In R, there's readline(), which is great because you can prompt the user, e.g. ans <- readline("Would you like to install Pandoc? [y/N]: ") without having to worry the message is intercepted by capture.output(), sink() or similar (which is used by dynamic report generators among other things). The message will always reach the user. (You can use sink(...,

...;>>> Humor can even be etched in silicon, like e.g. on an IC created by Siemens: >>>>> >>>>> http://micro.magnet.fsu.edu/creatures/pages/bunny.html >>>> Cisco too, besides weird Star Wars ROM messages, you have stuff like the >>>> "BFR" (Big F*cking Router, after Big F*cking Gun in Doom) screened on the PCB: >>>> >>>> https://www.kumari.net/gallery/index.php/Technology/Networking/BFR_2_001 >>>> https://www.kumari.net/gallery/index.php/Technology/Networking/BFR_2 >>>> >>&g...

Hello, I'd like to switch off this silly "Nakatomi Socrates" message which reminds me on Linux and their childish naming schemes. It is only cosmetics, but it bothers me whenever I switch on the laptop. I guess there is a switch already prsent to have in the bootloader config? Thanks, oh -------------- next part -------------- A non-text attachment was scrubbed... Name:

...pute time means for each Ss #look at Ss mean for times (plot(sort(tmean)) and eliminate fast outliers. act <- as.matrix(t1[,c(1:20,31:40,73:82)]) # 1=y 2=n colnames(act) <- c("B.actl.100","B.actl.20","B.actl.40","B.actl.60","B.actl.80","Bfr.actl.100", "Bfr.actl.20","Bfr.actl.40","Bfr.actl.60","Bfr.actl.80", "C.actl.100","C.actl.20","C.actl.40","C.actl.60","C.actl.80","Cfr.actl.100", "Cfr.actl.20","Cfr.actl.40",&...

Hello list. I'm trying to rebuild the 2.6.9.67.0.20.EL kernel, but it fails even without modifications. How did I try it? Created a (non-root) build environment (not a mock ) Installed the kernel.scr.rpm and did a rpmbuild -ba --target=`uname -m` kernel-2.6.spec 2> prep-err.log | tee prep-out.log The build failed at the end: Processing files: kernel-xenU-devel-2.6.9-67.0.20.EL Checking

Hi, I was trying to run the example of Indomethacin kinetics from the book: ## From Pinheiro/Bates, Mixed-Effects-Models in S and S-Plus, ## Springer, Second Printing 2001, Section 6.2 library(nlme) plot(Indometh) fm1Indom.nls <- nls(conc~SSbiexp(time,A1,lrc1,A2,lrc2), data=Indometh) summary(fm1Indom.nls) plot(fm1Indom.nls,Subject~resid(.),abline=0) ## .... the last plot command gives me the