search for: cyl

Dear all, Consider the model below: > x <- lm(mpg ~ cyl * disp * hp * drat, mtcars) > summary(x) Call: lm(formula = mpg ~ cyl * disp * hp * drat, data = mtcars) Residuals: Min 1Q Median 3Q Max -3.5725 -0.6603 0.0108 1.1017 2.6956 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 1.070e...

...see: http://www.sun.com/msg/ZFS-8000-3C scrub: none requested config: NAME STATE READ WRITE CKSUM poas43m01 UNAVAIL 0 0 0 insufficient replicas vpath4c UNAVAIL 0 0 0 cannot open before 30. vpath1a <IBM-2145-0000 cyl 8190 alt 2 hd 64 sec 256> /pseudo/vpathdd at 1:1 31. vpath2a <IBM-2145-0000 cyl 13822 alt 2 hd 64 sec 256> /pseudo/vpathdd at 2:2 32. vpath3a <IBM-2145-0000 cyl 13822 alt 2 hd 64 sec 256> /pseudo/vpathdd at 3:3 33. vpath4a <IBM-2145-...

Dear all Is there an easier way to retrieve the name of an object? For example, > tmp <- 1:10 > as.character(quote(tmp)) [1] "tmp" > as.character(quote(mtcars$cyl)) [1] "$" "mtcars" "cyl" > as.character(quote(mtcars$cyl))[3] [1] "cyl" The last call more than anything seems a hack. Is there a better way? Thank you Liviu

...using the points command but this does not work. Is there another command in R that would allow me to use different symbols and colors for the points? Thank you kindly. data(mtcars) plot(mtcars$wt,mtcars$mpg,xlab= "Weight(lbs/1000)", ylab="Miles per Gallon") mtcars$wt.cyl<-mtcars$wt[mtcars$cyl] mtcars$mpg.cyl<-mtcars$mpg[mtcars$cyl] points(mtcars$wt.cyl, mtcars$mpg.cyl, pch = 17, col = "red") title("Motor Trend Data") text(2,10,"LTR",cex=1.2,adj=0,col=3) legend(4,30,c("4 cylinder","6 cylinder","8 cyli...

Hiya, Is there any reason (and anything to worry about) if disk target IDs don''t start at 0 (zero). For some reason mine are like this (3 controllers - 1 onboard and 2 PCIe); AVAILABLE DISK SELECTIONS: 0. c8t0d0 <ATA -ST9160314AS -SDM1 cyl 19454 alt 2 hd 255 sec 63> /pci at 0,0/pci10de,cb84 at 5/disk at 0,0 1. c8t1d0 <ATA -ST9160314AS -SDM1 cyl 19454 alt 2 hd 255 sec 63> /pci at 0,0/pci10de,cb84 at 5/disk at 1,0 2. c9t7d0 <ATA-HitachiHDS72302-A5C0 cyl 60798 alt 2 hd 255 sec 252>...

Hello, When plotting a barchart with ggplot it drops the levels of the factor for which no counts are available. For example: library(ggplot) mtcars$cyl<-factor(mtcars$cyl) ggplot(mtcars[!mtcars$cyl==4,], aes(cyl))+geom_bar() levels(mtcars[!mtcars$cyl==4,]) This shows my problem. Because no counts are available for factorlevel '4', the label 4 dissapears from the plot. However, I would still like it to show up, but without a bar (zero o...

hail, I partitioned the disk this way: fdisk da0 ******* Working on device /dev/da0 ******* parameters extracted from in-core disklabel are: cylinders=12161 heads=255 sectors/track=63 (16065 blks/cyl) Figures below won't work with BIOS for partitions not in cyl 1 parameters to be used for BIOS calculations are: cylinders=12161 heads=255 sectors/track=63 (16065 blks/cyl) Media sector size is 512 Warning: BIOS sector numbering starts wi...

...DATING mentions some changes to the ATA code, but nothing specific to our configuration. Any ideas here? Following are the partition and disklabel information for /dev/ad4 and /dev/ar0: # fdisk /dev/ad4 ******* Working on device /dev/ad4 ******* parameters extracted from in-core disklabel are: cylinders=5005 heads=255 sectors/track=63 (16065 blks/cyl) Figures below won't work with BIOS for partitions not in cyl 1 parameters to be used for BIOS calculations are: cylinders=5005 heads=255 sectors/track=63 (16065 blks/cyl) Media sector size is 512 Warning: BIOS sector numbering starts with...

...table.? My goal is to perform analyses according to some groups.? The results of analysis are objects.? If these objects could be stored as elements of a data.table, this would help downstream summarizing of results. Let me try another example. carsdt <- setDT(copy(mtcars)) carsdt[, unique(cyl) |> length()] #[1] 3 carsreg <- carsdt[, .(fit = lm(mpg ~ disp + hp + wt)), by = .(cyl)] #I would like a data.table with three rows, one each for "lm" object corresponding to cyl value carsreg[, .N] #[1] 36 #Here each component of "lm" object is stored in a separate r...

It shows the physical disks on the server bash-2.05b# format Searching for disks...done AVAILABLE DISK SELECTIONS: 0. c0t2d0 <SUN18G cyl 7506 alt 2 hd 19 sec 248> /sbus at 3,0/SUNW,fas at 3,8800000/sd at 2,0 1. c0t3d0 <SUN18G cyl 7506 alt 2 hd 19 sec 248> /sbus at 3,0/SUNW,fas at 3,8800000/sd at 3,0 2. c0t4d0 <SUN18G cyl 7506 alt 2 hd 19 sec 248> /sbus at 3,0/SUNW,fas a...

...tions [lsv]apply(). The idea is to allow one-liner expressions without typing "function(item) {...}" to surround them. The argument to the anonymous function is simply referred as ".". Let take an example. With this new feature, the following call sapply(split(mtcars, mtcars$cyl), function(d) summary(lm(mpg ~ wt, d))$r.squared) #??????? 4???????? 6???????? 8 #0.5086326 0.4645102 0.4229655 could be rewritten as sapply(split(mtcars, mtcars$cyl), summary(lm(mpg ~ wt, .))$r.squared) "Not a big saving in typing" you can say but multiplied by the number of [lsv]a...

Hi, I am using levelplot, and would like remove from each panel (condition) its unused x levels. e.g. Remove from panel vs=1 the cyl level=8. data(mtcars) levelplot(mpg~factor(cyl)*factor(gear)|factor(vs)) Thanks for your help, Ronny -- View this message in context: http://r.789695.n4.nabble.com/Lattice-levelplot-remove-unused-levels-per-panel-tp4656087.html Sent from the R help mailing list archive at Nabble.com.

Dear all Is there an easy way to display only one half (top-right or bottom-left) of a correlation matrix? > require(Hmisc) > rcorr(as.matrix(mtcars[ , 1:4])) mpg cyl disp hp mpg 1.00 -0.85 -0.85 -0.78 cyl -0.85 1.00 0.90 0.83 disp -0.85 0.90 1.00 0.79 hp -0.78 0.83 0.79 1.00 n= 32 P mpg cyl disp hp mpg 0 0 0 cyl 0 0 0 disp 0 0 0 hp 0 0 0 Since the two sides are identical, there is little value i...

...disklabel ad2 # disklabel -r ad2s1 # disklabel -r ad2 # disklabel /dev/ad2s1 # disklabel -r /dev/ad2s1 the results are expected (and identical): <snip/> 8 partitions: # size offset fstype [fsize bsize bps/cpg] a: 4193280 0 swap # (Cyl. 0 - 4159) c: 156301425 0 unused 0 0 # (Cyl. 0 - 155060*) e: 152107200 4193280 vinum # (Cyl. 4160 - 155059) However, for the other two permutations... the results are different: # disklabel /dev/ad2 <snip/> 8 partitions: #...

Hi everyone, I just finished installing FreeBSD 6 RELEASE on my Toshiba Tecra A4 laptop and the installation was fine, however, when I rebooted the machine, I don't get the boot loader screen as if the machine can not see my drive! I tried the reinstalling and ensured that I set the slice to be bootable but that didn't change anything. Not sure if this is a common issue with FreeBSD 6 on

I'm sure this exists elsewhere, but, as a trade-off, could you achieve what you want with a separate helper function F(expr) that constructs the function you want to pass to [lsv]apply()? Something that would allow you to write: sapply(split(mtcars, mtcars$cyl), F(summary(lm(mpg ~ wt,.))$r.squared)) Such an F() function would apply elsewhere too. /Henrik On Thu, Apr 16, 2020 at 9:30 AM Michael Mahoney <mike.mahoney.218 at gmail.com> wrote: > > This syntax is already implemented in the {purrr} package, more or > less -- you need to add a...

...ity of 679.97GB c6t119d31: configured with capacity of 16.00MB c6t216000C0FF87A646d0: configured with capacity of 272.44GB c6t216000C0FF805F5Ed0: configured with capacity of 272.44GB c6t226000C0FFA05F5Ed0: configured with capacity of 272.44GB AVAILABLE DISK SELECTIONS: 0. c1t0d0 <SUN72G cyl 14087 alt 2 hd 24 sec 424> /pci at 9,600000/SUNW,qlc at 2/fp at 0,0/ssd at w2100000c503b5b09,0 1. c1t1d0 <SUN72G cyl 14087 alt 2 hd 24 sec 424> /pci at 9,600000/SUNW,qlc at 2/fp at 0,0/ssd at w2100000c503b783f,0 2. c6t40d0 <SUN-StorEdge3510-327P cyl 354...

...exactly because system.time requires a explicit print, but it's on the order of a few seconds). I'm not sure if I've provided enough information to be able to solve the problem, so please let me know what additional details would be useful. Thanks, Hadley > ggplot(mtcars, aes(x=cyl, y=-mpg)) + scale_y_log10() + geom_point() Error in grid.pretty(.$domain()) : infinite axis extents [GEPretty(-inf,inf,5)] In addition: Warning messages: 1: NaNs produced in: log(x, base) 2: no non-missing arguments to min; returning Inf 3: no non-missing arguments to max; returning -Inf 4: no non-...

...0 ada2p3.eli ONLINE 0 0 0 ada3p3.eli ONLINE 0 0 0 ada4p3.eli ONLINE 0 0 0 errors: No known data errors root at els1:/usr/src # fdisk /dev/ada0 ******* Working on device /dev/ada0 ******* parameters extracted from in-core disklabel are: cylinders=581463 heads=16 sectors/track=63 (1008 blks/cyl) Figures below won't work with BIOS for partitions not in cyl 1 parameters to be used for BIOS calculations are: cylinders=581463 heads=16 sectors/track=63 (1008 blks/cyl) Media sector size is 512 Warning: BIOS sector numbering starts with...

...used in the past rcorr() on data frames. Regards Liviu > require(Hmisc) > rcorr(mtcars[ , 1:4]) Error in storage.mode(x) <- if (.R.) "double" else "single" : (list) object cannot be coerced to type 'double' > rcorr(as.matrix(mtcars[ , 1:4])) mpg cyl disp hp mpg 1.00 -0.85 -0.85 -0.78 cyl -0.85 1.00 0.90 0.83 disp -0.85 0.90 1.00 0.79 hp -0.78 0.83 0.79 1.00 n= 32 P mpg cyl disp hp mpg 0 0 0 cyl 0 0 0 disp 0 0 0 hp 0 0 0 -- Do you know how to read? http://www.alienetworks.com...