search for: outname

Saludos, estoy intentando usar la función reprojectHDF() ( http://r-gis.net/?q=ModisDownload). #### source('ModisDownload.R') library(raster) library(RCurl) path<-"~/R/MODIS/Data/Test" input<-list.files(path,"*.hdf",all.files=T,recursive=T,full.names=T) input outname<-paste(substr(input[1],40,45),".tif",sep='') outname reprojectHDF(hdfName=input,filename=outname,MRTpath="~/MRT/bin", resample_type="NEAREST_NEIGHBOR", proj_type="GEO",datum='WGS84') #### Pero me resulta el siguiente mensaje de error: ####...

...1992, pp. 69, 125, 142 # Argument xlst= is a character vector of names of variables included # in the regression OR a numeric or logical index vector identifying # variables in "df" (y variable is removed if included) # Argument yname= is the quoted name of the y variable # Argument outname= is the covariate whose added effect is to be plotted # Argument df= is the data.frame containing the x and y variables # Argument main= is a title; default is a model formula # Argument tcex= is the character size of the title # Argument cex= is the character size of the x and y axis labels # Argu...

...abels all the data points. So I searched high and low to find the way to only label the outliers, but I couldn't find any solution. Probably my keywords were inappropriate, but I looked at the ggplot website and the book also. So I did this: > boxout=boxplot(dat$val)$out > outname=as.character(dat$name) > outname[(dat$val %in% boxout)==FALSE]="\n" > p+geom_text(label=outname) This works, but seems like a hack to me. Is there an obvious solution that I am missing? Another thing: it seems, that if there is only one outlier, ggplot doesn't show...

...uot; for the pointer to its contents.) PROTECT(means2 = allocVector(REALSXP, nvar)); means = REAL(means2); PROTECT(u2 = allocVector(REALSXP, nvar)); u = REAL(u2); PROTECT(loglik2 = allocVector(REALSXP, 2)); loglik = REAL(loglik2); PROTECT(rlist = mknamed(VECSXP, outnames)); Can I assign the individual elements into rlist using SET_VECTOR_ELT at this point, or do I need to wait until the end of the program, after I've filled in means[i], u[i], etc.? I likely depends on whether I'm assigning a pointer or a copy. Terry T.

...doesAllowUTF8(); for (unsigned i = 0, e = Str.size(); i != e; ++i) - if (!isAcceptableChar(Str[i], AllowPeriod)) + if (!isAcceptableChar(Str[i], AllowPeriod, AllowUTF8)) return true; return false; } @@ -74,8 +76,9 @@ static void appendMangledName(SmallVectorImpl<char> &OutName, StringRef Str, } bool AllowPeriod = MAI.doesAllowPeriodsInName(); + bool AllowUTF8 = MAI.doesAllowUTF8(); for (unsigned i = 0, e = Str.size(); i != e; ++i) { - if (!isAcceptableChar(Str[i], AllowPeriod)) + if (!isAcceptableChar(Str[i], AllowPeriod, AllowUTF8)) MangleLetter...

...ec, $min, $hr, $day, $mon, $year) = localtime(time); $mon = $mon +1; $mon = sprintf("%2d",$mon); $day = sprintf("%2d",$day); $hr = sprintf("%2d",$hr); $min = sprintf("%2d",$min); $mon =~ s/\s/0/; $day =~ s/\s/0/; $hr =~ s/\s/0/; $min =~ s/\s/0/; my $outname = $inname."_".$mon.$day."_".$hr.$min; print "copy $inname to $outname\n"; copy($inname,$outname); exit If you are going to make a dialplan change, just do Checkout /etc/asterisk/extensions.conf and voila, you have a backup to fall back on. Hope this helps...

...t hook to check gc consistency for --debug-gc *) let set_debug_gc () = at_exit (fun () -> Gc.compact()) in + let parse_machine_readable = function + | None -> + machine_readable_output := Channel stdout; + set_machine_readable () + | Some fmt -> + let outtype, outname = String.split ":" fmt in + if outname = "" then + error (f_"invalid format string for --machine-readable: %s") fmt; + (match outtype with + | "file" -> machine_readable_output := File outname + | "stream" -> +...

Hi all, My code looks like the following: inname = read.csv("ID_error_checker.csv", as.is=TRUE) outname = read.csv("output.csv", as.is=TRUE) #My algorithm is the following: #for line in inname #if first string up to whitespace in row in inname$name = first string up to whitespace in row + 1 in inname$name #AND ID in inname$ID for the top row NOT EQUAL ID in inname$ID for the row below it #...

...+ return socket.gethostbyname(hostname) + +default_realm = krbV.Context().default_realm + +# In the following tuple, [0] is fqdn, [2] is ip address +server_fqdn = socket.gethostbyaddr(socket.gethostname())[0] + +rsyslog_princ = 'rsyslog/' + server_fqdn + '@' + default_realm +outname = '/etc/krb5.keytab' + +kadmin_local('addprinc -randkey ' + rsyslog_princ) +kadmin_local('ktadd -k ' + outname + ' ' + rsyslog_princ) + +os.chmod(outname, 0644) diff --git a/src/host-browser/host-browser.rb b/src/host-browser/host-browser.rb index d77b321..576b0f6 10...

I don't remember anything other that what I've written in the bug João has mentioned. Probably something like this patch http://llvm.org/bugs/show_bug.cgi?id=14410#c6 ? 2013/2/20 João Matos <ripzonetriton at gmail.com>: > I think so. There have been other reports lately related to this being > wrong. > > http://llvm.org/bugs/show_bug.cgi?id=14410 > > CC'ing

Dear all, I need to do the same procedure on several files. But I don't know how to refer to the file name. Here is an example of what I am trying to do. List of files: file1(A,B,C, D1...Dn), file2(A,B,C,E1,...,En), file3(A,B,C,F1,...,Fn) Procedure I want to apply on each file: dft <- melt(df,id=c('A','B','C')) dft$X <- substr(dft$variable,1,3) dft$Y <-

Hi, I have 35 data files for reading. I would like get a program for performing reading of 35 files at once. All are of the type: Dados1.raw, Dados2.raw and so on. If the files have the same number of columns, I can read with the following commands: rm(list=ls()) filenames = list.files(path="~/Silvano/Arq", pattern="Dados+.*raw") names = substr(filenames, 1, 7) for(i in

Hi all, Does any one know of any encryption/decryption algorithms in R? I'm not looking for anything robust - I want some way of printing output to the screen that the user can't read immediately, but can decrypt a little later. The main thing I don't want to the user to see is a number, so (e.g.) ROT13 isn't appropriate. Hadley -- Assistant Professor / Dobelman Family Junior

Hi, this is a first approach (hence RFC, since it misses tests & documentation) in selecting the output for --machine-readable. The possible choices are: * --machine-readable: to stdout, like before * --machine-readable=file:name-of-file: to the specified file * --machine-readable=stream:stdout: explicitly to stdout * --machine-readable=stream:stderr: explicitly to stderr This makes it

...sage_msg = (** Install an exit hook to check gc consistency for --debug-gc *) let set_debug_gc () = at_exit (fun () -> Gc.compact()) in + let parse_machine_readable = function + | None -> + machine_readable_output := Channel stdout + | Some fmt -> + let outtype, outname = String.split ":" fmt in + if outname = "" then + error (f_"invalid format string for --machine-readable: %s") fmt; + (match outtype with + | "file" -> machine_readable_output := File outname + | "stream" -> +...

...pattern } > + > +class output_json dir json_options = object > + inherit output > + > + method as_options = sprintf "-o json -os %s" dir > + > + method prepare_targets source overlays _ _ _ _ = > + List.mapi ( > + fun i (_, ov) -> > + let outname = > + let vars_fn = function > + | "DiskNo" -> Some (string_of_int (i+1)) > + | "DiskDeviceName" -> Some ov.ov_sd > + | "GuestName" -> Some source.s_name > + | _ -> assert false > +...

...sets into an imputationList. I run into trouble, though, when I try to construct a scale across all the data sets. Is there a simple way to do this? (here's what I've been trying) vars_to_impute = c("var1", ... "var50") imputed <- amelia(data=vars_to_impute, m=5, outname="miset") files.allmisets <- list.files(getwd(),pattern="miset*",full=TRUE) allmis <- imputationList(lapply(files.allmisets, read.csv)) scale1_vars <- c("var1", "var2", "var3", ... "var20") scale2_vars <- c("var21", &...

...fun ?(key_opts = false) ?(machine_read | n -> error (f_"invalid output stream for --machine-readable: %s") fmt in machine_readable_output := Channel chan + | "fd" -> + (try + machine_readable_output := Fd (int_of_string outname) + with Failure _ -> + error (f_"invalid output fd for --machine-readable: %s") fmt) | n -> error (f_"invalid output for --machine-readable: %s") fmt ) diff --git a/lib/guestfs.pod b/lib/guestfs.pod index 53cece2da..f11028466 100644 -...

...fun ?(key_opts = false) ?(machine_read | n -> error (f_"invalid output stream for --machine-readable: %s") fmt in machine_readable_output := Channel chan + | "fd" -> + (try + machine_readable_output := Fd (int_of_string outname) + with Failure _ -> + error (f_"invalid output fd for --machine-readable: %s") fmt) | n -> error (f_"invalid output for --machine-readable: %s") fmt ) diff --git a/lib/guestfs.pod b/lib/guestfs.pod index 53cece2da..f11028466 100644 -...

2013/2/21 Anton Korobeynikov <anton at korobeynikov.info>: > The patch looks incorrect. The code just needs to handle \1 properly > and clang extended to add explicit \1 to the names which does not > require mangling. I think clang already adds \01 to __stdcall names, so only the LLVM change is remaining. > I do not think that moving whole mangling to clang is a good idea, >