search for: tb1

Hello, I'm a new R user. I have two different dummy tables with the variable name tb1 and tb2. tb1< v1 v2 v3 v4 "chr1" 22 23 3 "chr1" 36 37 1 "chr1" 54 55 0 "chr1" 77 78 1 "chr2" 80 81 4 "chr2" 85 86 0 "chr2" 99 100 1 "...

I know there are a lot of reshape questions on the mailing list, but I haven't been able to find an answer to this particular issue. I am trying to get a datafame structured like this: > sub <- rep(1:5) > ta1 <- rep(1,5) > ta2 <- rep(2,5) > tb1<- rep(3,5) > tb2 <- rep(4,5) > DF <- data.frame(sub,ta1,ta2,tb1,tb2) > DF sub ta1 ta2 tb1 tb2 1 1 1 2 3 4 2 2 1 2 3 4 3 3 1 2 3 4 4 4 1 2 3 4 5 5 1 2 3 4 into a form like this: sub time x1 x2 1.1 1 1 1 3 1.2 1...

...still struggling with the package. I'm trying to create a tklistbox and a ttkcombobox on the same parent and am having a problem. Here's an example: library(tcltk) tt <- tktoplevel() tcl1 <- tclVar() tcl2 <- tclVar() tclObj(tcl1) <- letters[1:5] tclObj(tcl2) <- LETTERS[1] tb1 <- tklistbox(tt, listvariable = tcl1, selectmode = "multiple") tb2 <- ttkcombobox(tt, values = LETTERS[1:2], textvariable = tcl2) tkpack(tb1, tb2) First, I select some values in the list box. But when I select a value from the combo box, the s...

...ed as LAVI. The independent variables are race (european or non-eurpoean), age, sex (male or female) of the patient and whether they have diabetes and high blood pressure. sample size 2000 patients selected from a community. when I model model1<-lm(lavi~age+sex+race+diabetes+hypertension, data=tb1) and model2<-lm(lavi~age+sex+age*race+diabetes+hypertension, data=tb1) in the first model race comes out as a significant predictor (p<0.005) where as in the second model race is not a significant predictor of lavi (p=.076) in my dataset mean age is 55.2 years in the non-europeans and 5...

Hi, I'm a beginner with R. I have two different  tables with the variable name dmr1 and tp2 a given following. v1 is the common  column  field of the both tables. In the first table column v3 is always v2+1 while in the second table v2 and v3 hold the range. I want to know which rows of tb1 intersect with the range between v2 and v3 of tb3. I need some one's kind help to solve this problem. dmr1< v1    v2     v3     v4 "a"   22    23     3 "a"   36    37     1 "a"   54    55     0 "a"   77    78     1 "b"   80    81 ...

...ot;)), .Names = c("ID", "EventDate", "timeGroup", "SITE"), class = "data.frame", row.names = c(NA, -5L)) tmp <- split(dat, dat$ID) tmp1 <- do.call(rbind, lapply(tmp, function(dat){ tb <- table(dat$timeGroup) idx <- which(tb>0) tb1 <- replace(tb, idx, as.character(dat$SITE)) })) tmp1 FinalData<-print(tmp1, quote=FALSE) [[alternative HTML version deleted]]

I have the following relatively simple problem. Say we have three factors, and we want to create a cross-tabulation against each of the other two: x <- factor(rbinom(5, 1, 1/2)) y <- factor(rbinom(5, 1, 1/2)) z <- factor(rbinom(5, 1, 1/2)) table(x,y) table(x,z) This looks like: y x 0 1 0 2 0 1 1 2 z x 0 1 0 1 1 1 2 1 I would like to get (surely this will

...nu_range( ID_FirstPerspective, + ID_FirstPerspective + @perspectives.length) { | e | } + evt_aui_pane_close { | e | on_pane_close(e) } + evt_auinotebook_page_close(Wx::ID_ANY) { | e | on_notebook_page_close(e) } + end + + # create some toolbars + def setup_toolbars + tb1 = Wx::ToolBar.new( self, Wx::ID_ANY, + Wx::DEFAULT_POSITION, + Wx::DEFAULT_SIZE, + Wx::TB_FLAT|Wx::TB_NODIVIDER) + tb1.set_tool_bitmap_size( Wx::Size.new(48,48) ) + tb1.add_tool( 101, "Test", +...

..."timeGroup", "SITE"), class = "data.frame", row.names = c(NA, > > -5L)) > > > tmp <- split(dat, dat$ID) > > tmp1 <- do.call(rbind, lapply(tmp, function(dat){ > > tb <- table(dat$timeGroup) > > idx <- which(tb>0) > > tb1 <- replace(tb, idx, as.character(dat$SITE)) > > })) > > > tmp1 > > FinalData<-print(tmp1, quote=FALSE) > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at r-project.org mailing list -- To UNSUBSCRI...

...t;, row.names = > c(NA, > > > > -5L)) > > > > > > tmp <- split(dat, dat$ID) > > > > tmp1 <- do.call(rbind, lapply(tmp, function(dat){ > > > > tb <- table(dat$timeGroup) > > > > idx <- which(tb>0) > > > > tb1 <- replace(tb, idx, as.character(dat$SITE)) > > > > })) > > > > > > tmp1 > > > > FinalData<-print(tmp1, quote=FALSE) > > > > [[alternative HTML version deleted]] > > > > ______________________________________________ &g...

...t; -5L)) >> > >> > >> > tmp <- split(dat, dat$ID) >> > >> > tmp1 <- do.call(rbind, lapply(tmp, function(dat){ >> > >> > tb <- table(dat$timeGroup) >> > >> > idx <- which(tb>0) >> > >> > tb1 <- replace(tb, idx, as.character(dat$SITE)) >> > >> > })) >> > >> > >> > tmp1 >> > >> > FinalData<-print(tmp1, quote=FALSE) >> > >> > [[alternative HTML version deleted]] >> > >> > _____...

...;> > tmp <- split(dat, dat$ID) > >> > > >> > tmp1 <- do.call(rbind, lapply(tmp, function(dat){ > >> > > >> > tb <- table(dat$timeGroup) > >> > > >> > idx <- which(tb>0) > >> > > >> > tb1 <- replace(tb, idx, as.character(dat$SITE)) > >> > > >> > })) > >> > > >> > > >> > tmp1 > >> > > >> > FinalData<-print(tmp1, quote=FALSE) > >> > > >> > [[alternative HTML versio...

...dat$ID) >> >> > >> >> > tmp1 <- do.call(rbind, lapply(tmp, function(dat){ >> >> > >> >> > tb <- table(dat$timeGroup) >> >> > >> >> > idx <- which(tb>0) >> >> > >> >> > tb1 <- replace(tb, idx, as.character(dat$SITE)) >> >> > >> >> > })) >> >> > >> >> > >> >> > tmp1 >> >> > >> >> > FinalData<-print(tmp1, quote=FALSE) >> >> > >> >> &g...

Hello, Samba 1.9.16p11 on Sun OS 5.6 For a NT4 Server SP4, I can not access to the samba server. When I look at the log.MachineName file, I see the error "password server not avalaible". I must say that it is working fine with an NT4 SP4 server on the same domain with the same user account. I have change the registry to authorize non-encrypted password. ...... Thanks. --