search for: 01

On 3/12/16 12:33 AM, peter dalgaard wrote: >> On 12 Mar 2016, at 00:05 , Mick Jordan <mick.jordan at oracle.com> wrote: >> >> This is definitely obscure but we had a unit test that called .Internal(strptime, "1942/01/01", %Y/%m/%d") with timezone (TZ) set to CET. > Umm, that doesn't even parse. And fixing the typo, it...

I get faulty output from seq.dates() if I specify a length that is too long. For example, I ask for 129 months in the following call to the function, but it returns 131: > R.version.string [1] "R version 1.9.1, 2004-06-21" > startdatetime <- chron(dates="01/01/1995", times="00:00:00") > beg.month.datetimes <- seq.dates(from=startdatetime, by="months", length=129) > beg.month.datetimes [1] 01/01/95 02/01/95 03/01/95 04/01/95 05/01/95 06/01/95 07/01/95 08/01/95 [9] 09/01/95 10/01/95 11/01/95 12/01/95 01/01/96 02/01/...

This is definitely obscure but we had a unit test that called .Internal(strptime, "1942/01/01", %Y/%m/%d") with timezone (TZ) set to CET. In R-3.1.3 that returned "1942-01-01 CEST" which, paradoxically, is correct as they evidently did strange things in Germany during the war period. Java also returns the same. However, R-3.2.4 returns "1942-01-01 CET"....

For those who use WinBUGS (or for those who are just familar with this format), I have a text file that looks like this (which is how R would export data if you used the "structure" function): y= structure(.Data= c(-6.93310E+01, 4.32870E+01, -6.96600E+01, 4.35730E+01, -6.90150E+01, 4.35870E+01, -5.81060E+01, 4.52890E+01, -6.65590E+01, 4.34600E+01, -6.61850E+01, 4.35000E+01, -6.54130E+01, 4.31940E+01, -6.42790E+01, 4.34780E+01, -6.35520E+01, 4.38070E+01, -6.32980E+01, 4.39520E+01, -6.25690E+01, 4.41760E+01, -6.20810E+01, 4...

OK, .Internal is not necessary to reproduce oddity in this area. I also see things like (notice 1980) > strptime(paste0(sample(1900:1999,80,replace=TRUE),"/01/01"), "%Y/%m/%d", tz="CET") [1] "1942-01-01 CEST" "1902-01-01 CET" "1956-01-01 CET" "1972-01-01 CET" [5] "1962-01-01 CET" "1900-01-01 CET" "1921-01-01 CET" "1972-01-01 CET" [9] "1...

...0.0000E+00 1.1166E+02 0.0000E+00 0.0000E+00 5.0000E+00 1.0000E+00 0.0000E+00 1.1166E+02 1.0000E+00 1.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 1.1166E+02 0.0000E+00 0.0000E+00 5.0000E+00 1.0000E+00 0.0000E+00 1.1166E+02 0.0000E+00 0.0000E+00 4.0000E+00 1.1166E+02 7.8850E+01 1.1166E+02 -3.2806E+01 -6.7720E-01 5.0000E+00 1.0000E+00 0.0000E+00 1.1166E+02 0.0000E+00 0.0000E+00 4.0000E+00 1.1166E+02 1.0840E+02 1.1166E+02 -3.2556E+00 -6.7205E-02 5.0000E+00 1.0000E+00 0.0000E+00 1.1166E+02 0.0000E+00 0.0000E+00 4.0000E+00 1.1166E+02 1.1273E+02 1.1166E+...

Hi! I have data (also in attached file) in the following form: num1 num2 num3 int1 fac1 fac2 cha1 cha2 Date POSIXt 1 1 f q 1900-01-01 1900-01-01 01:01:01 2 1.0 1316666.5 2 a g r z 1900-01-01 01:01:01 3 1.5 1188830.5 3 b h s y 1900-01-01 1900-01-01 01:01:01 4 2.0 1271846.3 4 c i t x 1900-01-01 1900-01-01 01:01:01 5 2.5 829737.4 d j u w 1900-01-01 6 3.0 1240967.3 5 e k v v 1900-01-01 1900-01-01 01:01:01...

Hi! I have data (also in attached file) in the following form: num1 num2 num3 int1 fac1 fac2 cha1 cha2 Date POSIXt 1 1 f q 1900-01-01 1900-01-01 01:01:01 2 1.0 1316666.5 2 a g r z 1900-01-01 01:01:01 3 1.5 1188830.5 3 b h s y 1900-01-01 1900-01-01 01:01:01 4 2.0 1271846.3 4 c i t x 1900-01-01 1900-01-01 01:01:01 5 2.5 829737.4 d j u w 1900-01-01 6 3.0 1240967.3 5 e k v v 1900-01-01 1900-01-01 01:01:01...

...ms the integer is ignored. For example, I assume that breaks = "3 months" is supposed to cut it into quarters but, in fact, it cuts it into months as if 3 had not been there. > d <- seq(Sys.Date(), length = 12, by = "month") > cut(d, "3 months") [1] 2008-03-01 2008-04-01 2008-05-01 2008-06-01 2008-07-01 2008-08-01 2008-09-01 2008-10-01 2008-11-01 2008-12-01 2009-01-01 2009-02-01 Levels: 2008-03-01 2008-04-01 2008-05-01 2008-06-01 2008-07-01 2008-08-01 2008-09-01 2008-10-01 2008-11-01 2008-12-01 2009-01-01 2009-02-01 > cut(as.POSIXct(d), "3 months...

I have a data frame, lets call it dat, with 3 columns ( mc, yr, ret) which represent market cap, year, and return. mc is a factor, mc, and ret are real numbers. I want to add a column to the data calculated as follows. For each year, I want to split the data by mc decile, then calculate the mean ret within that mc decile, and finally subtract that year's decile mean from the raw return. Then

...r(formant)*factor(f2Ref)+Error(factor(sub))) summary(vThresh.aov) detach(vThresh) The table looks like this: Error: factor(sub) Df Sum Sq Mean Sq F value Pr(>F) factor(lang) 1 442.6 442.6 4.8849 0.03112 * Residuals 57 5164.2 90.6 --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 Error: Within Df Sum Sq Mean Sq F value factor(formant) 1 424.4 424.4 179.3530 factor(f2Ref) 24 658.3 27.4 11.5937 fa...

>>>>> peter dalgaard <pdalgd at gmail.com> >>>>> on Sat, 12 Mar 2016 19:11:40 +0100 writes: > OK, .Internal is not necessary to reproduce oddity in this area. I also see things like (notice 1980) >> strptime(paste0(sample(1900:1999,80,replace=TRUE),"/01/01"), "%Y/%m/%d", tz="CET") ............... > The iss...

...uot;)) dates<-swe$dates times<-swe$time count<-swe$count. I tried to replace testlen<-rnorm(24)*2+5 with testlen<-count and oldpar<-clock24.plot(testlen[7:19],testpos[7:19], with oldpar<-clock24.plot(testlen[0:23],testpos[0:23], but nothing worked. The format of my data is 2005/01/01 00:00 4009 2005/01/01 01:00 3969 2005/01/01 02:00 3946 2005/01/01 03:00 3975 2005/01/01 04:00 3960 2005/01/01 05:00 3974 2005/01/01 06:00 3971 2005/01/01 07:00 3970 2005/01/01 08:00 3962 2005/01/01 09:00 3992 2005/01/01 10:00 3955 2005/01/01 11:00 3963 2005/01/01 12:00...

Dear R-Experts, seek your help. There are two parts I want to deal with. 1) I want to create a time interval of say, 30 minutes starting from "00:00:00" hrs Thus at the end, I want to create sequence: 00:00:00 00:30:00 01:00:00 01:30:00 .. .. How to do so ? Later, I want to change the time-increment value in a variable and changing the value of this variable, I would like to create new sequence with that time increment. How to use "seq()" correctly? 2) I have a date stored in one variable. Say "2009...

Hello alltogheter, I have a little problem regarding merging to zoo series. I want to merge two zoo series to reduce the timegaps between the stamps. I use the following code: data.test <- as.POSIXct(seq(data.input01[1,1],data.input01[nrow(data.input01),1],900),tz="GMT") data.troughput01 <- as.zoo(data.input01$V2) index(data.troughput01) <- as.POSIXct(data.input01$V1,tz="GMT") data.output01 <-merge(data.troughput01,zoo(,data.test)) They look like that: head(data.test) [1] "20...

...+imr > , data=cdmdata2, subset=zero==1, gaussian(link = > "identity")) results in this table Coefficients: (1 not defined because of singularities) > Estimate Std. Error t value Pr(>|t|) > (Intercept) 1.216e+01 5.771e+01 0.211 0.8332 > factor(year)2006 -1.403e+00 5.777e-01 -2.429 0.0157 * > factor(year)2007 -2.799e-01 7.901e-01 -0.354 0.7234 > log(gdppcpppconst) 2.762e-01 5.517e+00 0.050 0.9601 > log(gdppcpppconstAII) -1.344e-01 9.025e-01 -0.149 0.8817...

Hi, I have created following "list" object : > library(zoo) > dat <- vector("list") > for (i in 1:4) dat[[i]] <- zooreg(rnorm(i*10), > start=as.Date("2000-01-01"), frequency=1) > dat[[1]] 2000-01-01 2000-01-02 2000-01-03 2000-01-04 2000-01-05 2000-01-06 2000-01-07 2000-01-08 2000-01-09 2000-01-10 -0.7023352 -0.2063284 -1.0684688 -0.5345360 1.0045435 -0.6528107 1.0922850 0.6592155 0.1889817 -0.5154872 > dat[[2]] 2000-01-01 2000-01-02...

Dear R People Here is an interesting problem: > library(pastecs) > a <- 1:100 > b <- daystoyears(a,datemin="1/1/2003",dateformat="m/d/Y") > b [1] 2002.999 2003.002 2003.005 2003.008 2003.010 2003.013 2003.016 2003.018 2003.021 2003.024 2003.027 2003.029 2003.032 [14] 2003.035 2003.038 2003.040 2003.043 2003.046 2003.049 2003.051 2003.054 2003.057 2003.060 2003.062 2003.065 2003.068 [27] 2003.070 2003.073 2003.076 2003.079 2003.081 2003.084 2003.087 2003.090 2003.092 2003.095 2003.09...

Kind Experts, Many thanks for your guide. I have tried to figure out something that can help me plot my own data using the examples you referred me to. I copied part of the code as: set.seed(44) N=500 events <- as.POSIXct("2011-01-01", tz="GMT") + days(floor(365*runif(N))) + hours(floor(24*rnorm(N))) + # using rnorm here minutes(floor(60*runif(N))) + seconds(floor(60*runif(N))) hour_of_event <- hour(events) # make a dataframe eventdata <- data....

HI, May be this helps: dat1<- read.table(text=" date1 time????????????????? date??????? timeSec topic pupilId correct 02/01/2013 14:58 02/01/2013 140323 fdp.fdp 40 TRUE 02/01/2013 14:59 02/01/2013 140372 fdp.fdp 150 TRUE 03/01/2013 11:23 03/01/2013 213833 fdp.percentage_calc_foundation 15 TRUE 03/01/2013 11:23 03/01/2013 213839 fdp.percentage_calc_foundation 57 TRUE 03/01/2013 11:24 03/01/2013 213845 fdp.percentage_calc...