search for: egret

...operations on the station IDs in two groups. The first 6 station IDs require one less step than the remaining 68 station IDs. The file referenced at the beginning of the function is the file containing the StationIDs. > file = "/home/ie/IE2/Documents/USGS-2012-Work/SPARROW-Summer-2012-Work/EGRET/ca libration/example_setofstationsassociatedtosamegage.csv" > xynowget <- xygetN(file, hasHeader = TRUE, separator =",") Error in is.data.frame(x) : object 'Sample' not found Can you assist me in fixing the attached function file? Thank-you. Irucka Embry <span...

...rovided just the kind of quick & simple solution I was hoping for (appears as the function com below). However, I once again failed to take advantage of the power of R and have reverted back to using a for loop for the next step of the processing. The example below (which requires the library EGRET for pulling an example dataset) works, but probably can be replaced with some version of the apply functionality? So far, I've been unable to figure out how to enter the arguments to the apply function. The idea is this: for each unique water year (variable 'wyrs' in example below) in...

Hi Eric, the following works for me. HTH, Eric library(EGRET) StartDate <- "1990-10-01" EndDate <- "2017-09-30" siteNumber <- "10310000" QParameterCd <- "00060" Daily <- readNWISDaily(siteNumber, QParameterCd, StartDate, EndDate) # Define 'center of mass' function com <- function(x) { mat...

...g messages now. So is the problem icecast or ices? Here is just the last set of messages which caused it to die. There were many more through out the file but they didn't hit the magic ten consecutive. DEBUG: Builtin playlist handler serving: /var/music/Darol_Anger/Barbara_Higbie_Quintet/01-Egrets.mp3 DEBUG: ID3v1 song: Egrets DEBUG: ID3v1 artist: Darol Anger DEBUG: Layer: III Version: MPEG-1 Frequency: 44100 DEBUG: Bitrate: 128 kbit/s Padding: 1 Mode: j-stereo DEBUG: Ext: 0 Mode_Ext: 2 Copyright: 0 Original: 1 DEBUG: Error Protection: 0 Emphasis: 0 Stereo: 2 Playing /var/music/Darol_Anger...

...1. ? Month 1???? 1 2???? 2 3???? 3 ?temper[[1]][2] #? Data1 #1?? 1.5 #2? 12.3 #3? 11.4 Suppose I use names(temper) instead of seq_along(temper) pdf("irucka.pdf") ?lapply(names(temper),function(i) {plot(as.matrix(temper[[i]][1]),as.matrix(temper[[i]][2]),main="Fluxmaster versus EGRET/WRTDS \n Seasonal FLux Sum",sub=i,xlab="Calendar Year Timesteps",ylab="Total Flux (kg/season)"); lines(temper[[i]][1]); lines(temper[[i]][2])}) dev.off() which may not be the one you wanted. A.K. ________________________________ From: Irucka Embry <iruckaE at mail2worl...

Hi Arun, thank-you very much! The 2nd option worked perfectly. That was what I wanted. Now, I have another question. I am using the R packages dataRetrieval and EGRET from https://github.com/USGS-CIDA/WRTDS. I have 2 objects Daily and Sample that have the naming convention (Names = "21NC02WQ.C1000000" or whatevver the list of site names happens to be) that I need to have after running modelEstimation, but the names are stripped after running modelEst...

Hi Eric, How about match( TRUE, cumsum(hyd/sum(hyd)) > .5 ) - 1 HTH, Eric On Sat, Dec 16, 2017 at 3:18 PM, Morway, Eric <emorway at usgs.gov> wrote: > The small bit of script below is an example of what I'm attempting to do - > find the day on which the 'center of mass' occurs. In case that is the > wrong term, I'd like to know the day that essentially cuts

The small bit of script below is an example of what I'm attempting to do - find the day on which the 'center of mass' occurs. In case that is the wrong term, I'd like to know the day that essentially cuts the area under the curve in to two equal parts: set.seed(4004) Date <- seq(as.Date('2000-09-01'), as.Date('2000-09-30'), by='day') hyd <-

Dear R users, I am trying to draw error bars in a bar plot, I use this code (tried many others which did not work): install.packages() library(gplots) y <-c(39.02, 46.42) se <- c(7.57,7.35) plot <- barplot(y, beside=TRUE, col=0, ylim=c(0,47), axis.lty=1, main="far-red", xlab="latitude", names.arg=c("56N", "68N")) superpose.eb(plot, y, se,

Hi, I'm trying to use the function "error.bars", but the program don't find it, and I dont't found any package with this function. Is there some another functin to draw barplots with error bars? Sueli Rodrigues Eng. Agr?noma - UNESP Mestranda - USP/ESALQ PPG-Solos e Nutri??o de Plantas Fones (19)93442981 (19)33719762

HI Irucka, Please check this: temp<- structure(list(`:Bostoncitydata` = structure(list(Month = c(1L, 2L, 3L, NA), Data1 = c(1.5, 12.3, 11.4, NA), Data2 = c(9.1342, 12.31, 3.5, NA)), .Names = c("Month", "Data1", "Data2"), class = "data.frame", row.names = c(NA, -4L)), `:Chicagocitydata` = structure(list(Month = c(1L, 2L, 3L, 4L, 5L, NA), Data1 = c(1.52,

...stcheck for cormorant.riseup.net info: Processing reports lastcheck for cassowary.riseup.net info: Processing reports lastcheck for proxy.riseup.net info: Processing reports lastcheck for swan.riseup.net info: Processing reports lastcheck for spamd2.riseup.net info: Processing reports lastcheck for egret.riseup.net ... I''ll be restarting the two puppetmaster instances, which will likely get them back in working order, but I was hoping that my switch to mongrel would keep me from having to do this. Perhaps I should be running more than 2 puppetmaster instances? When running under mong...