search for: 6,4

I am getting this error when trying to access a virtual website index by ip address and port on a host that has SELinux disabled (another issue over which I have less control than I wish): curl http://192.168.6.9:41780 | more Gives this error in /var/log/httpd/error_log [Mon Jun 10 09:04:44 2013] [error] [client 192.168.6.9] Directory index forbidden by Options directive: /tftpboot/ and displays the default Centos/Apache server page instead of the list of files in the directory. This virtual host i...

...r, 2008 ## logistic regression - example in Dalgaard's Section 13.2, ## page 229 rm(list=ls()) ## data provided on Dalgaard's page 229: no.yes <- c("No","Yes") smoking <- gl(2,1,8,no.yes) obesity <- gl(2,2,8,no.yes) snoring <- gl(2,4,8,no.yes) n.tot <- c(60,17,8,2,187,85,51,23) n.hyp <- c(5,2,1,0,35,13,15,8) d <- data.frame(smoking,obesity,snoring,n.tot,n.hyp) ## d is the data to be analyzed, in table format ## d is the first table on Dalgaard's page 229 ## n.tot = total number of cases ## n.hyp = people with hypertension d ## regression...

...n't quite figure it out and I must not be using the right words when I search for answers. I have a dataset with a number of individuals and observations for each day (7 possible codes plus missing data) So it looks something like this Individual A, B, C, D Day1 1,1,1,1 Day 2 1,3,4,2 Day3 3,,6,4 (I've also tried transposing it so that individuals are rows and days are columns) I want to summarize the total observation codes by individual so that I end up with a table something like this: ,  1, 2 ,3 ,4, 5, 6,7, missing A  2,0,1,0,0,0,0,0 B  1,0,1,0,0,0,0,1 C  1,0,0,1,0,1,0,0 D 1,1,0...

...rows from group 2 and calculate the mean as well. So far I've been using a for loop for doing it but when it comes to a large data set is rather inefficient. Any hint to vectorize this would be appreciated. toy = data.frame(group = c(rep(1,10),rep(2,8)), diam = c(rnorm(10),rnorm(8))) nsel = c(6,4) smean <- c(0,0) for (i in 1:2) smean[i] <- mean(toy$diam[1:nsel[i]]) Thanks Pedro [[alternative HTML version deleted]]

Dear List, I'm having problem with an exercise from The R book (M.J. Crawley) on page 567. Here is the entire code upto the point where I get an error. data(UCBAdmissions) x <- aperm(UCBAdmissions, c(2, 1, 3)) names(dimnames(x)) <- c("Sex", "Admit?", "Department") ftable(x) fourfoldplot(x, margin = 2) dept<-gl(6,4) sex<-gl(2,1,24) admit<-gl...

Dear all, The following causes me trouble: > a <- data.frame(2:5,3:6,4:7) > str(a) `data.frame': 4 obs. of 3 variables: $ X2.5: int 2 3 4 5 $ X3.6: int 3 4 5 6 $ X4.7: int 4 5 6 7 > str(data.matrix(a)) int [1:4, 1:3] 2 3 4 5 3 4 5 6 4 5 ... - attr(*, "dimnames")=List of 2 ..$ : chr [1:4] "1" "2" "3" "...

...ing the tools (again). If you modify the example for model.tables to introduce an NA, N <- c(0,1,0,1,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,1,1,0,0) P <- c(1,1,0,0,0,1,0,1,1,1,0,0,0,1,0,1,1,0,0,1,0,1,1,0) K <- c(1,0,0,1,0,1,1,0,0,1,0,1,0,1,1,0,0,0,1,1,1,0,1,0) yield <- c(49.5,62.8,46.8,57.0,59.8,58.5,55.5,56.0,62.8,55.8,69.5, 55.0, 62.0,48.8,45.5,44.2,52.0,51.5,49.8,48.8,57.2,59.0,53.2,NA) # My change npk <- data.frame(block=gl(6,4), N=factor(N), P=factor(P), K=factor(K), yield=yield) npk.aov <- aov(yield ~ block + N*P*K, np...

histogram(~(Arrival4) | as.factor(Hour), type="count", breaks=16,ylab="Arrival Count", xlab="Arrival Rate/4",main="Friday EWR A22R D22L Configiration", layout=c(6,4), par.strip.text=list(cex=0.7)) Why do I get plots with different bar widths? See attached. Thanks, Jim Rome -------------- next part -------------- A non-text att...

...under LVM and wait about 15 min to boot. It stays at; Setting up logical volume management For 15 min then proceeds to boot fine. During this time, I see the 14 disks of the 20TB volume flashing quickly as though being read. Nothing in my logs to indicate bad behavior. I am running the latest 6,4 kernel. Any one see this before? - aurf

...len(nrow(resFinal)),2),rep(c(5,3),each=250))? ## 5,3 represents the column numbers Predict in resFinal indx2<-c(rep(seq(1,100,by=2),each=5),rep(seq(2,100,by=2),each=5)) indx3<- indx[order(indx2),] resNew[,2]<-as.numeric(resFinal[indx3]) indx1<-cbind(rep(seq_len(nrow(resFinal)),2),rep(c(6,4),each=250)) #6,4 represent the columns Actual in resFinal indx4<- indx1[order(indx2),] resNew[,3]<-as.numeric(resFinal[indx4]) colnames(resNew)<- c("Date","Predict","Actual") CorRes<-ddply(resNew,.(Date),summarize,Correl=cor(Predict,Actual,use="com...

I'm trying to run the generalized least square approach for my 2-additive problem, unfortunately this error appeared. I have tried to figure out the error from the mailing list but couldn't find the solution. Any help is highly appreciated. This is my source code: >a1 <- c(76.18, 61.84, 60.4, 69.09) > a2 <- c(51.01, 50.39, 87.62, 52.03) > a3 <- c(80.08, 48.49, 90.86, 76.11) > a4 <- c(57.71, 38.99, 88.7, 53.12) > a5 <- c(71.93, 82.04, 83.05, 85.99) > a6 <- c(60.94, 71.12, 63.61, 69.47) > > ##preference threshold relative > ## to the...

Hi everyone! I have this dataframe: firm<-c(rep(1,4),rep(2,4),rep(3,4),rep(4,4),rep(5,4),rep(6,4)) year<-c(rep(2000:2003,6)) industry<-c(rep(10,4),rep(20,4),rep(30,4),rep(10,4),rep(20,4),rep(30,4)) X1<-c(10,14,18,16,20,45,23,54,24,67,98,58,16,32,57,12,54,0,0,22,11,3,5,6) data<-data.frame(firm, industry,year,X1) data I need a loop that calculates the mean of X1 by year and by in...

...ovy University of Virginia Department of Psychology USPS: P.O.Box 400400 Charlottesville, VA 22904-4400 Parcels: Room 102 Gilmer Hall McCormick Road Charlottesville, VA 22903 Office: B011 +1-434-982-4729 Lab: B019 +1-434-982-4751 Fax: +1-434-982-4766 WWW: http://www.people.virginia.edu/~mk9y/

...e tricky and better left to those that know? Simon. ## ## Example from help("proj") ## N <- c(0,1,0,1,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,1,1,0,0) P <- c(1,1,0,0,0,1,0,1,1,1,0,0,0,1,0,1,1,0,0,1,0,1,1,0) K <- c(1,0,0,1,0,1,1,0,0,1,0,1,0,1,1,0,0,0,1,1,1,0,1,0) yield <- c(49.5,62.8,46.8,57.0,59.8,58.5,55.5,56.0,62.8,55.8,69.5, 55.0, 62.0,48.8,45.5,44.2,52.0,51.5,49.8,48.8,57.2,59.0,53.2,56.0) npk <- data.frame(block=gl(6,4), N=factor(N), P=factor(P), K=factor(K), yield=yield) npk.aov <- aov(yield ~ block + N*P*K, npk) proj(npk.aov) ##...

...>>>>> "krc" == krc <krc at odin.mdacc.tmc.edu> >>>>> on Mon, 27 Jun 2005 21:55:37 +0200 (CEST) writes: krc> Full_Name: Kevin R. Coombes krc> Version: 2.1.0 krc> OS: Windows XP krc> Submission from: (NULL) (143.111.224.169) krc> When revC = TRUE and RowSideColors is set to a list of krc> colors in heatmap, then the image and dendrogram are krc> inverted, but the row-side color map does not krc> change. The following script illustrates the problem. krc> ############## krc>...

...he end of base-Ex.Rout.fail: > has.VR <- require(MASS, quietly = TRUE) Attaching package 'MASS': The following object(s) are masked from package:base : confint confint.lm nclass.FD nclass.scott vcov vcov.glm vcov.lm > if(!has.VR) { + ## From Venables and Ripley (2002) p.165. + N <- c(0,1,0,1,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,1,1,0,0) + P <- c(1,1,0,0,0,1,0,1,1,1,0,0,0,1,0,1,1,0,0,1,0,1,1,0) + K <- c(1,0,0,1,0,1,1,0,0,1,0,1,0,1,1,0,0,0,1,1,1,0,1,0) + yield <- c(49.5,62.8,46.8,57.0,59.8,58.5,55.5,56.0,62.8,55.8,69.5,55.0, + 62.0,48.8,45.5,44.2,52.0...

...be much of an improvement, but it was a challenge. selvec<-as.vector(matrix(c(nsel,unlist(by(toy$diam,toy$group,length))-nsel), ncol=2,byrow=TRUE)) TFvec<-rep(c(TRUE,FALSE),length.out=length(selvec)) toynsel<-rep(TFvec,selvec) by(toy[toynsel,]$diam,toy[toynsel,]$group,mean) Jim On 4/3/16, Pedro Mardones <mardones.p at gmail.com> wrote: > Dear all; > > This must have a rather simple answer but haven't been able to figure it > out: I have a data frame with say 2 groups (group 1 & 2). I want to select > from group 1 say "n" rows and calculate the...

...ynamic.Lookup base FALSE grDevices FALSE stats FALSE methods FALSE K_MEANSC TRUE R_X11 TRUE I then source the R code: > source(file.choose()) Construct a matrix that I will use for the analysis: > tab<-c(1,1,3,4,6,6,3,5,7,67,5,6,65,3,5,1,5,42,3,567,6,4,7,7) > tab<-matrix(tab,6,4) And try to use the function: > K_MEANSR(tab,centers=c(2,4)) [1] "AA" [1] "AAA" [1] "A" [1] "B" Error in .C("K_MEANSC", xrows = as.integer(xrows), xcols = as.integer(xcol...

..., get the expected figure result ## now .. what if we add points to the plot? levelplot(Sepal.Width ~ Sepal.Length * Petal.Length, predSurf, main = "Produced at command line, Take 2") trellis.focus("panel", 1, 1) # address the correct part of the figure lpoints(6,4,pch = 19, cex = 2) # a point appears in correct location # I get what I expect ## any crosstalk from adjacent command line invocations? no levelplot(Sepal.Width ~ Sepal.Length * Petal.Length, predSurf, main = "Produced at command line, Take 3") trellis.focus("panel&q...

...ected using /proc/vmi/info and a list of kernel annotations in /proc/vmi/annotations. The timing information is VMware specific, and should probably be put into a separate /proc node (and a separate patch for our internal use). Signed-off-by: Zachary Amsden <zach@vmware.com> Index: linux-2.6.16-rc5/arch/i386/mach-vmi/proc.c =================================================================== --- linux-2.6.16-rc5.orig/arch/i386/mach-vmi/proc.c 2006-03-08 11:02:57.000000000 -0800 +++ linux-2.6.16-rc5/arch/i386/mach-vmi/proc.c 2006-03-08 11:03:00.000000000 -0800 @@ -0,0 +1,194 @@ +/* + * V...