search for: ft

...'m wondering is a better solution exists: If we have two vectors: v1 = c(0,1,2,3,4) v2 = c(5,3,2,1,0) How to remove one instance of the "3,1" / "1,3" double? At the moment I'm using the following solution, which is quite horrible: v1 = c(0,1,2,3,4) v2 = c(5,3,2,1,0) ft <- cbind(v1, v2) direction = apply( ft, 1, function(x) return(x[1]>x[2])) ft.tmp = ft ft[which(direction),1] = ft.tmp[which(direction),2] ft[which(direction),2] = ft.tmp[which(direction),1] uniques = apply( ft, 1, function(x) paste(x, collapse="%") ) uniques = unique(uniques...

...riables followed by character? I ask because that seems to be the case below. > str(rcw) 'data.frame': 23 obs. of 21 variables: $ ICU : int 1 18 17 9 22 19 6 16 25 26 ... $ Q6.RC.1 : chr "SM" "JF" "IW" "MS" ... $ Q6.FT.RC.1.years : int 0 8 12 3 9 1 5 16 5 5 ... $ Q6.FT.RC.1.months: int 0 0 0 0 0 0 0 6 0 0 ... $ Q6.PT.RC.1.years : int 2 0 0 1 2 0 0 0 0 0 ... $ Q6.PT.RC.1.months: int 0 0 0 0 0 0 0 0 0 0 ... $ Q6.RC.2 : chr "BA" "ML" "TM" "YL" ... $ Q6....

Dear expeRts, What's the easiest way to convert an ftable object to a matrix such that the row names of the ftable object are shown in the first couple of columns of the matrix? This is (typically) required, for example, when the final goal is to print the matrix via xtable. Below is a rather complicated example of how to do it... Cheers, Marius...

En innebygd og tegnsett-uspesifisert tekst ble skilt ut... Navn: ikke tilgjengelig Nettadresse: https://stat.ethz.ch/pipermail/r-help/attachments/20080204/4ee34fe8/attachment.pl

...1.86);" t12 = "((1:11.05,(3:10.15,4:10.15):0.9):68.71,2:79.76);" t13 = "(((1:39.53,3:39.53):6.25,4:45.78):3.09,2:48.87);" t14 = "((1:55.12,(2:37.99,3:37.99):17.13):18.28,4:73.4);" t15 = "((1:73.39,(2:54.24,4:54.24):19.15):20.58,3:93.97);" library(ape) ft = c(5,5,5,5) postscript("test.ps") par(mfrow=c(5,3)) plot(read.tree(text=t1),font=ft) plot(read.tree(text=t2),font=ft) plot(read.tree(text=t3),font=ft) plot(read.tree(text=t4),font=ft) plot(read.tree(text=t5),font=ft) plot(read.tree(text=t6),font=ft) plot(read.tree(text=t7),font=ft) plot(...

When I removed the special case for EC_ILOG(0) in commit 06390d082dcdfa8addb3dde337543bc0f0ebae44, it broke ec_dec_uint() with _ft=1 (which should encode the value 0 using 0 bits). This feature was tested by ectest.c, but not actually used by libcelt. An assert has been added to ec_dec_uint() to ensure that we don't try to use this feature by accident. ec_enc_uint() was actually correct, but support for this feature has...

...r el código más o menos > como queria. Lo pego por aqui por si a alguien le interesa. Me hubiese > gustado hacerlo en dos ejes pero tengo que entregar la practica de la > especialidad en 3 dias y hay muchas cosas que revisar, pero ya que he visto > como se hace lo investigaré. > > ft$hora <- strptime(ft$hora, format = "%H:%M", tz="GMT-2") > ft$Miles <- as.numeric(gsub("\\.", "", as.character(ft$Miles))) > ft$Share <- as.numeric(gsub("\\,", ".", as.character(ft$Share))) > > ggbar <- ggplot(ft, ae...

Dear List, I have an ascii text file with data I'd like to extract. Example: Year Built: 1873 Gross Building Area: 578 sq ft Total Rooms: 6 Living Area: 578 sq ft There is a lot of data I'd like to ignore in each record, so I'm hoping there is a way to use strings as delimiters to get the data I want (e.g. tell R to take data between "Built:" and "Gross" - incidentally, not always numeric)....

...e (Share o miles): >> >> >> >> *Error: Discrete value supplied to continuous scalegeom_path: Each group >> consists of only one observation. Do you need to adjust the groupaesthetic?* >> >> Modifique el código tal que así: >> >> ggbar<-ggplot(ft, aes(x=ft$hora, y=ft$frec)) + >> geom_bar(stat="identity", width = 0.8, fill="gray") + >> theme(panel.background = element_rect(fill = "white")) + >> scale_y_continuous(limits=c(0,1500)) >> ggline<-ggplot(ft, aes(x=ft$hora, y=ft$Miles))...

...t;, "a"))$x > [1] b a > Levels: a b # reference level is a Thank you very much for the ready explanations and comments. I found this inconsistency working with contingency tables and logistic models. I was working with a flat contingency table as for example, > ft <- ftable(low ~ race + smoke, bwt) > ft low 0 1 race smoke white FALSE 40 4 TRUE 33 19 black FALSE 11 5 TRUE 4 6 other FALSE 35 20 TRUE 7 5 (here bwt is a transformation of the dataframe birthwt in library(MASS)). I wanted t...

...(2009-01-27 r47756) Here is the issue: I have the following construct in help files (this example relates to "data"): \format{ A data frame with 847 rows and 29 columns: \cr\cr Ground based measurements of trees (Y-variables): \itemize{ \item{TopHt}{Height of tallest trees (ft)} \item{LnVolL}{Log of the volume \eqn{(ft^3/acre)} of western larch} ...... many lines deleted ...... \item{LnVolPP}{Log of the volume \eqn{(ft^3/acre)} of ponderosa pine} \item{CCover}{Canopy cover (percent)} } Geographic Location, Slope, and Aspect (X-variables): \itemize{...

Dear R-developers, I would like to suggest a 'method' slot for format.ftable() (see an adjusted 'format.ftable()' below, taken from the source of R-2.15.2). At the moment, format.ftable() contains several empty cells due to the way the row and column labels are printed. This creates problems (= unwanted empty columns/rows) when converting an ftable to a LaTeX t...

Okay, great, thanks :-) Marius On 2011-05-27, at 10:56 , david.hajage at curie.net wrote: > > Hi, > > Is this what you want ? > > ft <- ftable(Titanic, row.vars=1:3) > xtable(format(ft)) > > Best, > > david > > > Marius Hofert <m_hofert at web.de> > Envoy? par : r-help-bounces at r-project.org > 27/05/2011 07:41 > > A > Help R <r-help at stat.math.ethz.ch> > cc &...

...20:23 123 1.031 13,33 20:24 153 1.048 13,5 4 20:25 192 1.165 15,0 >> 5 20:26 175 1.239 15,8 6 20:27 225 1.331 17,0 * >> >> He probado con *plot* y el parámetro *new* sin éxito, y ahora estaba >> probando con *ggplot*: >> >> >> >> *ggplot(ft, aes(ft[,2:3])) + geom_bar(aes(ft[,2]), colour="black", fill >> = "orange") + geom_line(aes(x=ft$hora,y=ft[,3]), colour="black") * >> >> Se me muestran las variables pero de forma incorrecta. ¿Alguna sugerencia? >> De paso, me podéis indicar...

...s -dependiendo la la variable que use (Share o miles): > > > > *Error: Discrete value supplied to continuous scalegeom_path: Each group > consists of only one observation. Do you need to adjust the groupaesthetic?* > > Modifique el código tal que así: > > ggbar<-ggplot(ft, aes(x=ft$hora, y=ft$frec)) + > geom_bar(stat="identity", width = 0.8, fill="gray") + > theme(panel.background = element_rect(fill = "white")) + > scale_y_continuous(limits=c(0,1500)) > ggline<-ggplot(ft, aes(x=ft$hora, y=ft$Miles)) + > geom_l...

...frame: * hora frec Miles Share 1 20:22 87 1.016 13,0 2 20:23 123 1.031 13,33 20:24 153 1.048 13,5 4 20:25 192 1.165 15,0 5 20:26 175 1.239 15,8 6 20:27 225 1.331 17,0 * He probado con *plot* y el parámetro *new* sin éxito, y ahora estaba probando con *ggplot*: *ggplot(ft, aes(ft[,2:3])) + geom_bar(aes(ft[,2]), colour="black", fill = "orange") + geom_line(aes(x=ft$hora,y=ft[,3]), colour="black") * Se me muestran las variables pero de forma incorrecta. ¿Alguna sugerencia? De paso, me podéis indicar algún manual para aprender a reali...

...es requeridos. > study_area <- readRDS("CHL_adm0.rds") > study_area_UTM <- spTransform(study_area, CRS("+proj=utm +zone=19 +datum=WGS84")) > study_area_UTM <- spTransform(study_area_UTM, CRS( + paste("+x_0=-2000000.0 +y_0=-500000.0 +ellps=GRS80 +units=us-ft +no_defs"))) Error in spTransform(study_area_UTM, CRS(paste("+x_0=-2000000.0 +y_0=-500000.0 +ellps=GRS80 +units=us-ft +no_defs"))) : error in evaluating the argument 'CRSobj' in selecting a method for function 'spTransform': Error in CRS(paste("+x_0=-2000000.0...

...using the function 'optim' to find the lowest value generated by $LogLik from the function 'fkf' (http://127.0.0.1:27262/library/FKF/html/fkf.html). The variable Kt within the algorithm used to generate the Kalman Filter equations needs in each iteration the inverse of the variable Ft, ("Kt[,, i] = Pt[,, i] %*% t(Zt[,, i]) %*% solve(Ft[,, i])") which is updated by "Ft[,, i] = Zt[,, i] %*% Pt[,, i] %*% t(Zt[,, i]) + GGt[,, i]". Zt is a constant 2x4 matrix and can't be changed. Gt (2x2) and P0 (4x4) are inputs for 'fkf'. Pt is updated in each itera...

...I am writing an Sweave document and am using 'xtable' to make frequency tables of diagnoses of people undergoing cholecystectomy. Some of these diagnoses contain Danish characters ("?", "?", and "?"), and these characters are all garbled in the Latex document after I run Sweave. The odd thing is, everything looks absolutely right in the R console, and if I enter the same Danish characters in a new variable, the new variable produces no problems?! Therefore, I cannot offer a reproducible example, but I am hoping nonetheless that someone can point me towards...

..., how can I get the parameters of function? This is my experimental code that not is running wich I need: for (BasicBlock::iterator Is = i->begin(), e = i->end(); Is != e; ++Is){ if(isa<CallInst>(*Is)){ CallInst *call = dyn_cast<CallInst>(&*Is); Function* ft = call->getCalledFunction(); *arguments = ????* CallInst *call2 = CallInst::Create(ft, *arguments.begin(), arguments.end()*, "", ++Is); } } Thanks, -- *Rafael Parizi* -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.l...