search for: tt2

...ces of the events in a table 'tt' 0 2 10 11 13 14 15 15 6 1 3 8 15 10 .. meaning that event of type '0' occurs 15 times, type '2' occurs 6 times etc. Now I want to divide the occurence counts by the total number of events of that type, which is given in the table tt2: 0 1 2 10 11 12 13 14 15 817 119 524 96 700 66 559 358 283 Saying that event type '0' occurred 817 times, type '1' occurs 119 times etc. The obvious problem is that not all events in tt2 are present in tt, which is the result of the experiment so that cannot be...

...n(x="") { + xd <- read.table(x, header=T) + library("tcltk") + + tt <- tktoplevel() + tktitle(tt) <- "Diagnostics" + label.widget <- tklabel(tt, text="Choose!") + + pptlabs <- function() { + plot(xd$iv802, xd$PPT) + abline(0,1) + tt2 <- tktoplevel() + tktitle(tt2) <- "Identify Outliers" + lab.wid2 <- tklabel(tt2, text="Identify Outliers") + but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2)) + tkpack(lab.wid2, but.wid2) + labp <- identify(xd$iv802,...

..." <- function(x="") { xd <- read.table(x, header=T) library("tcltk") tt <- tktoplevel() tktitle(tt) <- "Diagnostics" label.widget <- tklabel(tt, text="Choose!") pptlabs <- function() { plot(xd$iv802, xd$PPT) abline(0,1) tt2 <- tktoplevel() tktitle(tt2) <- "Identify Outliers" lab.wid2 <- tklabel(tt2, text="Identify Outliers") but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2)) tkpack(lab.wid2, but.wid2) labp <- identify(xd$iv802, xd$PPT, la...

The following creates a time series tt1 whose values rise from 1 to 20 and another time series tt2 each of whose values are 10 larger than the corresponding value in tt1. When we attempt to bind them together as columns, the entry after Dec 1960 is erroneously listed as NA 1960 instead of Jan 1961. If n is changed to either 19 or is changed to 21 in the example below, the example suddenly w...

Dear All I am trying to graph a proportion and CI95% by a factor with ooplot (any other better solution ?) It works well until I try to add the confidence interval. this is the error message and and a description of the data: > dat1 PointEst TT1 1 3.6 TT2 2 5.0 TT3 3 5.8 TT4 4 11.5 TT5 5 7.5 TT5 6 8.7 TT7 7 17.4 > dat2 Lower TT1 1 1.0 TT2 2 2.2 TT3 3 2.7 TT4 4 6.7 TT5 5 3.9 TT5 6 4.6 TT7 7 11.5 > dat3 Upper TT1 1 12.3 TT2 2 11.2 TT3 3 12.1 TT4 4 19.1...

I have a data frame where I need to subset certain rows before I compute the mean of another variable. However, the value that I need to subset by is found in multiple columns. For example, in the data below the value R0000160 is found in the first and second columns (itd_1 and itd_45). These data are student responses to multiple choice test items from a computer adaptive test. So, the variable

...,5],'">', mat[i,4], '</a>', sep='') mat[i,4] <- strr } mat2 <- mat[,1:4] caption = 'test' mx <- xtable(mat2,caption=caption) tt = print(mx, type="html",include.rownames=F) tt1 <- gsub('lt /a','lt/a',tt,fixed=T) tt2 <- gsub('lt a','lta',tt1,fixed=T) write.table(tt2,'test.html',quote=F) However, if I open 'test.html' in IE, the hyperlinks don't seem to work. What am I doing wrong? thanks. [[alternative HTML version deleted]]

...ndex(a), indexes), ] <- a[match0(indexes, index(a))] : number of items to replace is not a multiple of replacement length > traceback() 7: FUN(X[[1]], ...) 6: lapply(args, f, ret.zoo = retclass %in% c("list", "data.frame")) 5: merge.zoo(zoo(coredata(x), tt), zoo(, tt2)) 4: merge(zoo(coredata(x), tt), zoo(, tt2)) 3: as.ts.zooreg(x) 2: as.ts.zoo(test) 1: as.ts(test) I will use coredata() to resolve the situation in the larger context. Anyway, does anybody know to remove the above error message? Many thanks and best regards, Stefan ____________________________...

...one) # wait until FINISHED is pressed tclvar$choice <- "0" tkwait.variable("done") # plot x1 or x2 if(tclvar$choice == "0") x <- x1 if(tclvar$choice == "1") x <- x2 if(is.null(names(x))) names(x) <- x plot(x) # define second toplevel widget tt2 <- tktoplevel() tktitle(tt2) <- "Action" but.wid21 <- tkbutton(tt2, text="print summary", command=function()print(summary(x))) but.wid22 <- tkbutton(tt2, text="identify outlier", command=...

Hi everybody How do I do to calculate the median and average of a colum of time data like this: "8:50:10". I also need to plot the time difference between two colums Thanks a lot -- View this message in context: http://n4.nabble.com/median-for-time-data-tp932287p932287.html Sent from the R help mailing list archive at Nabble.com.

How can I extract only the time component from an POSIXlt object? For example if I try the following it still returns both the date and time... >as.POSIXlt(tr.date[1]) [1] "2010-10-18 21:46:53" >as.POSIXlt(tr.date[1],"%H:%M:%S") [1] "2010-10-18 21:46:53" round and trunc don't help... is there an "as.Time" equivalent to as.Date ? Thanks,

hi, i am trying to undefine a domain by using dm.undefine(); and then trying to create one with same name is giving me error saying 'Domain not found: no domain with matching uuid 'aeae9d4e-17cb-b661-a612-88ac677c28c1' i have attached my test program which reproduces the issue. please let me know where i am going wrong? configuration: libvirt : 0.6.3 Java

Hello, I have a list (mode and class are list) in R that is many elements long and of the form: >length(list) [1] 5778 >list[1:4] $ID1 [1] "num1" $ID2 [1] "num2" "num3" $ID3 [1] "num4" $ID4 [1] NA I'd like to convert the $ID2 value to be in one element rather than in two.?? It shows up as c(\"num2\", \"num3\") if I try to use

...ite'=df1$site ,'station'=df1$station ,'parameter'=df1$parameter ) ,function(x) { length(na.omit(x)) } ) ) system.time(tt2 <- by(I(df1$parameter) ,list('site'=df1$site ,'station'=df1$station ,'parameter'=df1$parameter ) ,function(x) { length(na.omit(x)) }...

...late an anova test in the following way: expdata<-read.table("/home/dorien/UA/meta-music/optimuse/optimuse1-build-desktop/results/results_processedCP", header=TRUE) names(expdata)<-c('nh1','nh2','nh3','randsize','aweights','tt1','tt2','tt3','path','iters','type','length','tos','tws','time') fit<-(aov(tos~nh1*nh2*nh3*randsize*aweights*tt1*tt2*tt3*iters*length, data=expdata)) summary(fit) I want to check the fit of the model with Rsquared, but I cannot seem...

I have been trying to do a nls model and gives me the error of a nonnumeric argument table(file="c:/tt2.txt",header=T) > fit.model <- nls(TT~60*(1+alpha*(v/c)^beta),data=tt2, start=list(alpha=1, beta=3, v=1000)) Error in v/c : non-numeric argument to binary operator > is.numeric(tt2) [1] FALSE > is.character(tt2) [1] FALSE > as.numeric(tt2) Error: (list) object cannot be c...

Hi All I downloaded the binary package of Samba 2.2.2 on Friday from one of the Samba mirror sites, I think Belgium, and installed it on a Sun E450 running Solaris 2.6. Today everything has fallen flat on its face. Unfortunately I am on holiday this week so not able to deal with the problem directly, but via telephone calls. Apparently what is happening is that smbd is gobbling up all the

Hello list. I'm trying to rebuild the 2.6.9.67.0.20.EL kernel, but it fails even without modifications. How did I try it? Created a (non-root) build environment (not a mock ) Installed the kernel.scr.rpm and did a rpmbuild -ba --target=`uname -m` kernel-2.6.spec 2> prep-err.log | tee prep-out.log The build failed at the end: Processing files: kernel-xenU-devel-2.6.9-67.0.20.EL Checking