search for: final2

...-rep(2001:2004,5) industry3<-rep(40,20) X<-rnorm(20) Y<-rnorm(20) Z<-rnorm(20) data3<-data.frame(firm3,year3,industry3,X,Y,Z) data3 colnames(data3)<-c("firm","year","industry","X","Y","Z") final1<-rbind(data1,data2) final2<-rbind(final1,data3) final2 final3<-final2[order(final2$industry,final2$year),] final3 I need to estimate a linear model Y = b0 + b1X + b2Z by industry and year, to obtain the estimates of b0, b1 and b2 by industry and year (for example I need to have de b0 for industry 20 and year 2000, f...

...5,6754,8976,3245,1234,1288,1200,2345,2765,389,23456,2367,3892,6438,24824, 23,2897) data3<-data.frame(firm3,year3,industry3,dummy3,dimension3) data3 colnames(data3)<-c("firm","year","industry","dummy","dimension") final1<-rbind(data1,data2) final2<-rbind(final1,data3) final2 final3<-final2[order(final2$year,final2$industry,final2$dimension),] final3 Thank you very much, Cecília Carmo Universidade de Aveiro - Portugal [[alternative HTML version deleted]]

...& dat[,6]=9 & dat[,7]=2),]=1* *dat6<-dat[(dat[,6]=8 & dat[,7]=9 & dat[,8]=2),6]=1* *dat7<-dat[(dat[,7]=8 & dat[,8]=9 & dat[,9]=2),7]=1* *dat8<-dat[(dat[,8]=8 & dat[,9]=9 & dat[,10]=2),8]=1* ** datfinal<-dat1+da2+dat3+dat4+dat5+dat6+dat7+dat8 final2 <- dat[ rowSums(datfinal) < 2 , ] So my last matrix "final2" will be "dat" without the rows that doesn´t pass the conditions. [[alternative HTML version deleted]]

...ata frame or matrix, which I would transpose into a character matrix, to which I can apply type.convert() and get the same matrix as what I would get from these two lines (Fold function taken from Gabor's post on R-help a few years ago): Fold <- function(f, x, L) for(e in L) x <- f(x, e) final2 <- Fold(rbind,vector(),lapply(split(df[,-c(1:2)],f=day),tmp)) > print(c(class(final2),mode(final2))) [1] "data.frame" "list" ==================================================== However, by my original method, sapply() gives me a matrix with mode, "list" int...

...o fix (1) the colour of my bars into grey scales (2) removing the y-axis (species name) on the right figure to avoid duplication, and (3) fix the width, such that both figures have the same apparence regardless of the legend. Thank you very much in advance! The code is as follow: (a<-ggplot(Final2, aes(x=spp, y=CPUE, fill=season)) + geom_bar(position=position_dodge()) + geom_errorbar(aes(ymin=CPUE-cpue.se, ymax=CPUE+cpue.se), size=.3, width=.2, position=position_dodge(.9)) + xlab("Species") + scale_x_discrete(br...

Dear R community, I am working with huge arrays, so I spend a lot of time computing. This is my code: for (x in 1:dim(variable)[1]){ for (y in 1:dim(variable)[2]){ for (z in 1:dim(variable)[3]){ result <- max(variable[x,y,z,]) } } } Is there a more efficient procedure to do this task? Thanks in advance! [[alternative HTML version deleted]]

...t; List-Unsubscribe: <http://lists.samba.org/mailman/listinfo/samba>, <mailto:samba-request@lists.samba.org?subject=unsubscribe> List-Archive: http://lists.samba.org/pipermail/samba/ I have asked these questions numerous times before and twice here: I am using samba 2.2.0 (samba-2.2.0-final2.deb Debian package release) with CUPS, and I am experiencing the following problems: 1) SAMBA does not clean up smbprint files in the spool directory. 2) SAMBA does not inform CUPS it is sending raw data; hence, you can't use the same CUPS printer for UNIX and SAMBA clients since CUPS will on...