search for: xg

Hi, the function outer can not apply a constant function as in the last line of the following example: > xg <- 1:4 > yg <- 1:4 > fxyg <- outer(xg, yg, function(x,y) x*y) > fconstg <- outer(xg, yg, function(x,y) 1.0) Error in outer(xg, yg, function(x, y) 1) : dims [product 16] do not match the length of object [1] Of course there are simpler ways to construct a constant matrix, tha...

Dear R People: Suppose I have the following two character vectors: xf [1] "W" NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA > xg [1] NA "k" "h" NA "g" "r" "j" NA "v" "d" NA "v" NA "z" "r" "r" "i" > I want to end up with "W" "k" "h" ... What is the best way to achiev...

Hi, I am using split function and wonder how to add the factor to the splitted results. #Example n <- 3; nn <- 10 g <- factor(round(n * stats::runif(n * nn))) #factor x <- rnorm(n * nn) + sqrt(as.numeric(g)) #value xg <- split(x, g) xg $`0` [1] 0.82513702 -0.03911584 2.32955347 0.36745335 1.75572642 2.65461438 0.41675829 $`1` [1] 0.8583493 2.4264804 -0.3622378 3.1770015 0.5162129 $`2` [1] 1.7914651 1.1440121 0.8097543 1.2064742 1.6411988 1.3743778 1.7094387 2.1204501 1.9330132 2.0731997 [11] 2.8931...

...;>>> Gebhardt, Albrecht <Albrecht.Gebhardt at aau.at> >>>>>> on Sun, 19 Mar 2017 09:14:56 +0000 writes: > > > Hi, > > the function outer can not apply a constant function as in the last line of the following example: > > >> xg <- 1:4 > >> yg <- 1:4 > >> fxyg <- outer(xg, yg, function(x,y) x*y) > >> fconstg <- outer(xg, yg, function(x,y) 1.0) > > Error in outer(xg, yg, function(x, y) 1) : > > dims [product 16] do not match the length of object [1] >...

...68.55567,190.51031,     227.68339,152.42658,208.70115, 223.91982, 221.70702, 213.71135,168.0199, 222.69040,228.49353, 164.95750,243.18828,     229.94688,313.37154364,202.263786,139.31002593) n<-length(x) m<-3; r<-8; c<-r*(m-1); g1<-rep(1:(m-1),each=r);        g<-c(g1,rep(m,n-c)) xg<-split(x,g); yg<-split(y,g); Now if I write lm(yg~xg) then it won't work. Please advice how to proceed. Thanks in advance. Bhargab [[alternative HTML version deleted]]

>>>>> Gebhardt, Albrecht <Albrecht.Gebhardt at aau.at> >>>>> on Sun, 19 Mar 2017 09:14:56 +0000 writes: > Hi, > the function outer can not apply a constant function as in the last line of the following example: >> xg <- 1:4 >> yg <- 1:4 >> fxyg <- outer(xg, yg, function(x,y) x*y) >> fconstg <- outer(xg, yg, function(x,y) 1.0) > Error in outer(xg, yg, function(x, y) 1) : > dims [product 16] do not match the length of object [1] > Of course there are...

https://bugs.freedesktop.org/show_bug.cgi?id=34296 Martin Peres <martin.peres at free.fr> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|NEEDINFO |RESOLVED Resolution|--- |MOVED --- Comment #5 from Martin Peres

https://bugs.freedesktop.org/show_bug.cgi?id=34296 Pierre Moreau <pierre.morrow at free.fr> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|NEW |NEEDINFO Component|DRM/other |Driver/nouveau Version|XOrg git

Hedderik van Rijn <hedderik@cmu.edu> writes: > If the second argument to unsplit is not a simple vector (but a "list > containing multiple lists"), the function seems to have some problems. > > Given a slight modification of the examples in help(split): > > > xg <- split(x,list(g1=g,g2=g)) > > unsplit(xg,list(g1=g,g2=g)) > [1] -0.7877109 2.1757667 > Warning messages: > 1: argument lengths differ in: split(x, f) > 2: number of items to replace is not a multiple of replacement length > > It seems to have problems finding the c...

...r:Box; private var datePattern:RegExp; + private var selectedBar:SingleBar; /* Private, class-specific functions */ + + //this has to happen after the scale area has been rendered, or it will have no width. + private function drawLine(event:Event):void { + var xg:Graphics = XAxisLabelArea.graphics; + xg.beginFill(Constants.axisColor); + xg.lineStyle(1,Constants.axisColor); + xg.moveTo(yScale.width,0); + xg.lineTo(Constants.width,0); + xg.endFill(); + } + private function timeRangeAdjusted(event:Event):void { var t1:Nu...

Dear list, I have 2 data sets such as: > head(calib20090730b) color XR XG XB L1_1 L1_2 L1_3 1 1 87 55 62 116 124.0 100 2 2 164 125 134 204 203.0 153 3 3 118 64 98 157 101.0 139 4 4 65 72 72 102 111.0 135 5 5 142 95 112 176 161.5 133 6 6 89 113 112 125 128.0 195 > head(refpanel) color B G R NIR1 NIR2 1 1...

...in a txt file at the end. My question is, is the error message (see below) telling me that it can't output 10,000 values (draws) because of a limitation in my memory, file size, shape etc, or that there is an error in the sampler itself? > s2eg2=1/rgamma(mg2,(12/2),.5*t(residuals(lm(yg[,1]~xg-1))%*%residuals(lm(yg[,1]~xg-1)))) > for(i in 1:mg2){ + s2yg[i,]=parsy+t(rnorm(1,mean=0,sd=s2ygscale[i])%*%chol(s2eg2[i]*xgtxgi)) + write(c(s2yg[i,],s2eg2[i]), + file="/media/DataTravelerMini/KINGSTON/Honours/R/IPR/s2yg2.txt", append=T, ncolumns=1) + if(i%%50==0){print(c(s2yg[i,],s2eg2...

Hi! I am working with Applaince Sophos XG, i am used API(Desenvoving  in test) with audit log samba to information IP and user in log in DC, but i need information about logout, is possible obtein in Samba Audit ? S.O.: Ubuntu 18.04 Samba: 4.9.4 Copilated version Thanks Regards;

...Num.preg/Num.sampled gcv.fit = c(0) b = seq(from = 0.4, to = 1, by = 0.01) for(i in 1:length(b)) { fit = locfit(y~lp(x, nn = b[i])) gcv.fit[i] = gcv(fit)[4] } gcv.fit = round(gcv.fit,4) b1 = b[min(which.min(gcv.fit))] fit = locfit(y~lp(x, nn = b1)) ## plots and predicting missing years xg = 1954:2004 plot(x,y,xlab="Years",ylab="Proportion Pregnant",pch=16,cex=0.5) lines(xg,predict(fit,newdata=xg),col=4) x11() plot(b,gcv.fit) ######################################################################## # This seems to work (correct me if I am wrong), however, now I a...

...issues before asking but I am not sure of my next step here. I am not sure if the problem is the VPN configuration or in my network. I will try to be as through as possible. I have two computers that are CentOS with the latest tinc from their respective repositories. Server A is behind a Sophos XG and Server B is behind a Ubiquiti Edge Router that I have no control over (Borrowing internet from colleague at remote site). I have the 655 port UDP/TCP open and mapped to Server A. I have added static rules for devices on the Server A network to talk to the devices on the Server B network. I c...

...his). The second way would be to fiddle around with the function below to add the "weights" to the lm function call. I do not know how to change this "plot.regression" function to do that. plot.regression = function(x,y) { panel.xyplot(x,y) panel.abline(lm(y~x)) } xyplot(yg~xg | g, panel="plot.regression") Any help would be great! Thanks, Kevin Brown.

...o get a Brownian bridge kernel (kernelbb) for each combination of two consecutive animal locations (see commands below) and put them, with a loop, inside a list. It works well at the beginning but after 42 runs, it appears the following warning : >Error in seq.default(yli[1], yli[2], by = diff(xg[1:2])) :  >  invalid (to - from)/by in seq(.) I looked at the coordinates, at the id, at the time of the run 43 and it's all good... I looked on the net and it happened to only one person and there was no answer to his post.  Someone could help me? ## commands BBtraj <- list() for (i...

Hi Mukesh, I was auditing uses of set_xen_guest_handle for correctness when I noticed that gdbsx (specifically tools/debugger/gdbsx/xg/xg_main.c) defines its own _domctl_hcall and associated helpers instead of using libxc. Is there any particular reason for that? Ian. _______________________________________________ Xen-devel mailing list Xen-devel@lists.xensource.com http://lists.xensource.com/xen-devel

...ing to incorporate the 'wtd.mean' function from Hmisc. I have tried various scenarios relying on the documentation for 'wtd.mean' in the Hmisc (shown below), but to no avail. Any assistance would be much appreciated. set.seed(1) x <- runif(500) wts <- sample(1:6, 500, TRUE) xg <- cut2(x,g=4) # Here is a method for getting stratified weighted means y <- runif(500) g <- function(y) wtd.mean(y[,1],y[,2]) summarize(cbind(y, wts), llist(xg), g, stat.name='y') Greg Blevins The Market Solutions Group Windows XP, 512 memory, Pentium 4.

...is for one of the individuals and it worked perfectly (see code below). But now I'm trying to use a list and call the function lapply to do the same thing through all the 42 individuals (also see code below), but I'm only obtaining this error: Error in seq.default(yli[1], yli[2], by = diff(xg[1:2])) : invalid (to - from)/by in seq(.) I have browsed the net in order to find out what does it mean, but I haven't found a similar error, so I'm stuck with it... Any thoughts on what I could be doing wrong will be very appreciated! See below the code: FOR ONE ANIMAL NAMED "Ga...