date - R: Best way around as.POSIXct() in apply function -

-



i'm trying set new variable incorporates difference (in number of days) between known date , end of given year. dummy data below:

> date.event <- as.posixct(c("12/2/2000","8/2/2001"), format = "%d/%m/%y", tz = "europe/london") > year = c(2000,2001) > dates.test <- data.frame(date.event,year) > dates.test   date.event year 1 2000-02-12 2000 2 2001-02-08 2001

i've tried applying function achieve this, returns error

> time.dif.fun <- function(x) { + as.numeric(as.posixct(sprintf('31/12/%s', s= x['year']),format = "%d/%m/%y", tz = "europe/london") - x['date.event']) + } > dates.test$time.dif <- apply( + dates.test, 1, time.dif.fun + )   error in unclass(e1) - e2 : non-numeric argument binary operator

it seems apply() not as.posixct(), testing version of function derives end of year date, returned numeric in form '978220800' (e.g. end of year 2000). there way around this? real data function bit more complex, including conditional instances using different variables , referring previous rows, hard without apply.

here alternatives:

1) code works these changes. factored out s, not because necessary, because following line gets hard read without due length. note if x data frame x["year"] x[["year"]] vector x$year. since operations vectorized not need apply.

although have not made change, bit easier define s s <- paste0(x$year, "-12-31") in case omit format argument in following line owing use of default format.

time.dif.fun <- function(x) {   s <- sprintf('31/12/%s', x[['year']])   as.numeric(as.posixct(s, format = "%d/%m/%y", tz = "europe/london") -x[['date.event']]) } time.dif.fun(dates.test) ## [1] 323 326

2) convert posixlt, set year, month , day end of year , subtract. note year component uses years since 1900 , mon component uses jan = 0, feb = 1, ..., dec = 11. see ?as.posixlt details on these , other components:

lt <- as.posixlt(dates.test$date.event) lt$year <- dates.test$year - 1900 lt$mon <- 11 lt$mday <- 31 as.numeric(lt - dates.test$date.event) ## [1] 323 326

3) possibility is:

with(dates.test, as.numeric(as.date(paste0(year, "-12-31")) - as.date(date.event))) ## [1] 323 326




wiki

Comments

Post a Comment

Popular posts from this blog

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a
Read more

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview.
Read more