search for: ndays

...(the time index) of the 3D array of precipitation called prec. That is, I'd like to get a 3D array called prec*_daily* that has dimension prec*_daily*[21, 3, 4], where 21 is the number of days and the value in say prec*_daily*[1,x,y] is equal to prec[1,x,y] + prec[2,x,y] + ... + prec[24,x,y] ndays <- 21 base_time <- as.character('2001-12-31T23:00:00Z') hrs_since_base <- 1 # adding an extra second to the end b/c I'm paranoid about the midnight time stamp not being explicit beg_time <- as.POSIXct(base_time, format = "%Y-%m-%dT%H:%M:%SZ") + (hrs_since_base * 6...

...of precipitation called prec. That is, I'd like to > get a 3D array called prec*_daily* that has dimension prec*_daily*[21, 3, > 4], > where 21 is the number of days and the value in say prec*_daily*[1,x,y] is > equal to prec[1,x,y] + prec[2,x,y] + ... + prec[24,x,y] > > > ndays <- 21 > base_time <- as.character('2001-12-31T23:00:00Z') > hrs_since_base <- 1 > > # adding an extra second to the end b/c I'm paranoid about the midnight > time stamp not being explicit > beg_time <- as.POSIXct(base_time, format = "%Y-%m-%dT%H:%M:%SZ...

...s, is there a way to do within a fb:editor? if I do: <% facebook_form_for(:task, at task,:url => create_task_path) do |f| %> Assign Task To: <%= fb_friend_selector %> <%=f.text_field :ttype, :label=> "Title"%> <%=text_field_tag :newrnumdays, ndays, :label => "# Days"%> <%=f.buttons "Add" %> <% end %> the text_field seems to be placed nicely in the editor and formatted accordingly but the friend selector & the text_field_tag are not placed inside the editor display table and are just dumped o...

...llingPointID == sp,] dmnd <- tsrSUB[is.na(tsrSUB$cDeviceClass),] if(nrow(dmnd) != 1) warning(paste("cSpillingPointID", sp, "has more than one demand time Series. Used first.")) tsrValCount <- getTimeSeries(chn, tsrSUB[!is.na(tsrSUB$cDeviceClass),]$cTimeSeriesID, nDaysBack = 366*nyears) tsrValDmnd <- getTimeSeries(chn, dmnd$cTimeSeriesID[1], nDaysBack = 366*nyears) sequence <- timeSequence(from = format(start(tsrValDmnd), '%Y-%m-%d'), to = format(end(tsrValDmnd), '%Y-%m-%d'), by = 'day') if(format(start(tsrValDmnd), '%H...

...as.numeric(table$mes) table$day<-as.numeric(table$day) for (anyo in 2000:2010){ table2=subset(table,table$year==anyo) ndias=length(table2$year) if(ndias<365){ for (ms in 1:12){ table2=subset(table2,table2$mes==ms) ndays=length(table2$year) a<-(anyo==2000 | anyo==2004 | anyo==2008) & (ndays<daysanyoBIS[ms]) if(a==TRUE){ aa<-1:daysanyoBIS[ms]...

Hello I'm a new in R I have a large data.frame "s" (this is actualy just a table in mysql) : > names(s) [1] "symbols", "day", "value" I need to convert it to simple matrix. I have define this matrix like this: > data.matrix <- matrix(nrow=nDays, ncol=nSymbols, dimnames=list(days, symbols)) then i just copy values to the matrix using for() loop, but it seems to take very long time. Is is a more fast way to do it in R? I know, what i can just gyve s$value as source data to the matrix, but problem is, what for some symbols couple days could...

What does this warning mean precisely? Is there any reason to care about it? Can I Avoid it by another way of programming? Thank you in advance.

Carlos A. P. Cunha via samba wrote: > For me, is "magic line" > > find $DEST -depth -mtime +$DAYS -print -delete ---- I'm guessing you probably want 'ctime' there. If you use mtime, then it will be deleted "ndays" after the last modification date on the file -- NOT the time the file was moved into the recycle bin. If you use ctime - that appears to update when the file is moved into a different directory (the recycle bin) -- allowing things to expire some number of days after it is "recycled&...

Hi everyone, I have been trying to compute numbers of days between two dates as follows: > x <- c("1jan1960", "2jan1960", "31mar1960", "30jul1960") > z <- format(x, "%d%b%Y") > ex <- c("1jan1961", "15jan1960", "21mar1975", "10jul1981") > ez <- format(ex, "%d%b%Y") > ez-z

Dear R-help I am using R version 2.6.2. I am trying to subtract specific values from a larger data frame. I feel this should be straightforward, but I am struggling. I have a dataframe "Bk" as follows: DateTime cumPrecip 01/01/2008 00:00 348 01/01/2008 01:00 348 01/01/2008 02:00 348 01/01/2008 03:00 347 01/01/2008 04:00 348 01/01/2008 05:00 348 01/01/2008 06:00 349

...*********************************************** > #Input and Temporary variables > > #Holidays for the North American Energy Reliability Council (data from > http://www.nerc.com/~oc/offpeaks.html > <http://www.nerc.com/%7Eoc/offpeaks.html>): > # * Saturdays > # * Sundays > # * New Year's Day, January 1st (possibly moved to Monday if actually > on Sunday) > # * Memorial Day, last Monday in May > # * Independence Day, July 4th (moved to Monday if Sunday) > # * Labor Day, first Monday in September > # * Thanksgiving Day, fourth Thu...

...o the source file having been deleted, rename the local file "originalfilename__RSYNC_YYYYMMDD". 2. Whenever we are asked to delete a file (in delete_one), check the filename. If it is in the form above, check to see if the required amount of time has elapsed (via a --delete-delay=NDAYS argument). Delete as appropriate. If the file isn't in the correct form, the file only became obsolete just now; rename the file with the current date. 3. These modified filenames would be exposed to the user. (Yes, a big ugly.) An alternative strategy which would preserve the filenames...

I have a vector of dates. I wish to find the month end date for each. Any suggestions? e.g. For 12/15/05, I want 12/31/05, For 10/15/1995, I want 10/31/1995, etc __________________________________________________ [[alternative HTML version deleted]]

Dear , My current samba versiion is samba-4.4.4 and running on centos 7.2 My current samba have recycle enable . I want to age limit for recycle bin . Please kindly let me know any parameter for recycle bin age limit . Best Regards, Si Thu.

..."){ stop("holidays must be a function") } if(start > end){ stop("start date must not be greater than end date.") } y1 <- as.POSIXlt(start)$year + 1900 y2 <- as.POSIXlt(end)$year + 1900 seqs <- timeSequence(from = start, to = end, by = "day") ndays <- length(seqs) dts <- NULL temp <- NULL if( y1 == y2){ temp <- window(holidays(y1), start = start, end = end) dts <- seqs[isBizday(seqs,temp)] }else{ temp <- holidays(y1) for(k in seq(from = y1+1, to = y2)){ temp <- c(temp,holidays(k)) }...

..." not a specific date. The way I do it now is awkward. Would love to find a way to do this easier to generate a new object just containing the days I want. --------------------------------------- dayEnds <- endpoints(dataset, on="days") datasetEnd <- max(dayEnds) for( d in 1:ndays(dataset)){ day <- dataset[ (dayEnds[d]+1):dayEnds[d+1], ] daysToEnd <- round(as.numeric( index(dataset[datasetEnd]) - index(tail(day, n=1)) , unit="days" )) if(daysToEnd > 30|| daysToEnd < 10){ next; } # Will only get here if the days until the end are between 10 a...

Hi all, I have a question regarding the enforced change of passwords in Samba 3.0.28 (coming with Ubuntu Hardy) in connection with a LDAP backend. In particular, I am looking for a documentation how the fields sambaMinPwdAge, sambaMaxPwdAge (from sambaDomain), sambaPwdCanChange and sambaPwdMustChange (from sambaSAMAccount) interact. I would like to have the following: - when a new

...ba LDAP entries for Password Change Hi... sorry for my bad english. > - when a new account is created, the user immediately must change the > password when [s]he first logs in; > - after that, the password shall expire after x days. sambaMaxPwdAge = number of seconds (60 x 60 x 24 x nDays) sambaPwdLastSet = set to '0' at create the account. good luck Jorge C. On Tue, 16 Sep 2008 10:27:53 -0400, Albrecht Dre? <albrecht.dress@lios-tech.com> wrote: > Hi all, > > I have a question regarding the enforced change of passwords in Samba > 3.0.28 (coming with...

...on I want to apply is "fitdistr(x,"exponential")". Would I just replace "quantile(x$DATA, names=FALSE)" by "fitdistr(x,"exponential")"? Finally, suppose the query I need to run is more complex, such as: SELECT group_id,YEAR(my_date),WEEK(my_date),ndays FROM myTable ORDER BY group_id,YEAR(my_date),WEEK(my_date); Can dbApply handle applying "fitdistr(x,"exponential")" to each group of values defined by "group_id,YEAR(my_date),WEEK(my_date)"? If so, how would I change the call to dbsendQuery, and how would I insert th...

Hello all, I am not a Samba expert by any means, so please bear with me if I make a fool of myself. We run a small network in this office. There is a Windows domain running off of a Debian Linux server, running Linux 2.4.25. There are mostly Windows 2000 and Windows XP machines, but there are still a few users clinging on to Windows 98 (this is because they run specialized testing software