search for: vd

Dear R users: I encountered difficulties in michaelis-menten equation. I found that when I use right model definiens, I got wrong Km vlaue, and I got right Km value when i use wrong model definiens. The value of Vd and Vmax are correct in these two models. #-----right model definiens-------- PKindex<-data.frame(time=c(0,1,2,4,6,8,10,12,16,20,24), conc=c(8.57,8.30,8.01,7.44,6.88,6.32,5.76,5.20,4.08,2.98,1.89)) mm.model <- function(time, y, parms) { dCpdt <- -(parms["Vm"]/par...

...e going on in the forward fit? (I don't want to discuss here if the forward fit is a good thing to do from a data analytic viewpoint. I agree that I should presumably not choose it. However, I want to understand what the algorithm does.) Thank you, Christian > w6 <- lm(Preis~RW1+WFL+WQ+VD+Lage+Lage*WFL+Lage*WQ+Lage*VD, + data=wohnung) > w7 <- lm(Preis~1, data=wohnung) > fs7 <- stepAIC(w7,scope=list(upper=~RW1+WFL+WQ+VD+Lage+Lage*WFL+Lage*WQ+Lage*VD, + lower=~1), direction="forward") Start: AIC= 623.57 Preis ~ 1...

Dear Rxperts, Running the following code: ======================================================= twlo=10; twhi=20; wt=154; vd=0.5; cl=0.046; tau=6; t=3; F=1; wtkg <- wt/2.2 # convert lbs to kg vd.pt <- wtkg * vd # compute weight-based vd (L) cl.pt <- wtkg * cl # compute CL (L/hr) k <- cl.pt/vd.pt # compute k (hr^-1) cave <- round((twhi - twlo)/log(twhi/twlo),...

Hi, this set of patches contains the initial implementation of the IEEE 802.1Qbg standard: code for the exchange of EVB TLVs in LLDP frames to negotiate VSI capabalities as well as VDP VSI TLVs between a host with virtual machines and an adjacent switch. It supports setting the parameters of the TLV exchange from the command line using lldptool. VDP profiles consisting of mode,mgrid,typeid,typeidversion,instanceid,mac,vlan can be given to lldpad with lldptool or sent to lldpad...

Hi, this set of patches contains the initial implementation of the IEEE 802.1Qbg standard: code for the exchange of EVB TLVs in LLDP frames to negotiate VSI capabalities as well as VDP VSI TLVs between a host with virtual machines and an adjacent switch. It supports setting the parameters of the TLV exchange from the command line using lldptool. VDP profiles consisting of mode,mgrid,typeid,typeidversion,instanceid,mac,vlan can be given to lldpad with lldptool or sent to lldpad...

Hi, this set of patches contains the initial implementation of the IEEE 802.1Qbg standard: code for the exchange of EVB TLVs in LLDP frames to negotiate VSI capabalities as well as VDP VSI TLVs between a host with virtual machines and an adjacent switch. It supports setting the parameters of the TLV exchange from the command line using lldptool. VDP profiles consisting of mode,mgrid,typeid,typeidversion,instanceid,mac,vlan can be given to lldpad with lldptool or sent to lldpad...

Hi, this set of patches contains the initial implementation of the IEEE 802.1Qbg standard: code for the exchange of EVB TLVs in LLDP frames to negotiate VSI capabalities as well as VDP VSI TLVs between a host with virtual machines and an adjacent switch. It supports setting the parameters of the TLV exchange from the command line using lldptool. VDP profiles consisting of mode,mgrid,typeid,typeidversion,instanceid,mac,vlan can be given to lldpad with lldptool or sent to lldpad...

Dear R users: I have a problem about catch the value from function. I have following two functions (part): sbolus1 <- function() { ....... for( i in 1:Subject) { kel<-par1 Vd<-par2 PKindex<-sbolus1.out(PKtime,kel,Vd,defun,par1,par2,Dose,i) } savefile(PKindex) } sbolus1.out<-function(PKtime,kel,Vd,defun,par1,par2,Dose,i) { time<-PKtime$time parms<-c(kel=kel,Vd=Vd) C1.lsoda<-data.frame(lsoda(Dose/Vd,c(0,time),defun,parms))...

Hi, this set of patches contains the initial implementation of the IEEE 802.1Qbg standard: code for the exchange of EVB TLVs in LLDP frames to negotiate VSI capabalities as well as VDP VSI TLVs between a host with virtual machines and an adjacent switch. It supports setting the parameters of the TLV exchange from the command line using lldptool. VDP profiles consisting of mode,mgrid,typeid,typeidversion,instanceid,mac,vlan can be given to lldpad with lldptool or sent to lldpad...

Hi, this set of patches contains the initial implementation of the IEEE 802.1Qbg standard: code for the exchange of EVB TLVs in LLDP frames to negotiate VSI capabalities as well as VDP VSI TLVs between a host with virtual machines and an adjacent switch. It supports setting the parameters of the TLV exchange from the command line using lldptool. VDP profiles consisting of mode,mgrid,typeid,typeidversion,instanceid,mac,vlan can be given to lldpad with lldptool or sent to lldpad...

...except the window with the first video frame goes black. The video is played properly. All is alive and well, underlying windows/icons are there and they react on the mouse, windows can be moved (if You find their borders blindly), in which case they appear for a short while but disappear soon, as VD redraws its window. When VD is terminated, the screen remains black, but it can be easily refreshed by switching virtual desktops or by moving a window around all the screen :-). VD is a great program and it really _almost_ works, but this problem makes it practically useless. Is there anybody,...

...ding modal forms and virtual desktops. I have win app that uses modal forms for input. If I use app without virtual desktop I have problem because use can click on nonmodal form which then hides. Well it's annoying and I saw on some other thread that this is by design. Everything work fine with VD. But some new problems / questions arrives. 1. is it possible to minimize VD when app in it minimize? 2. is it possible to run separate apps in separate VDs? 3. is it possible to run app in VD, but VD is not shown (same as runnung app without VD) I know some questions are perhaps strange or wierd,...

...or me at least) I have the following so far:   PKindex<-data.frame(Subject=c(1),time=c(1,2,3,4,6,10,12),conc=c(32,28,25,22,18,14,11)) Dose<-200 Tinf <-0.5   defun<- function(time, y, parms) {  dCpdt <- -parms["kel"] * y[1]  list(dCpdt)  } modfun <- function(time,kel, Vd) {   out <- lsoda(((Dose/Tinf)*(1/(kel*Vd)))*(1-exp(-kel*time)),c(0,time),defun,parms=c(kel=kel,Vd=Vd),rtol=1e-3,atol=1e-5)  out[-1,2]  } objfun <- function(par) {  out <- modfun(PKindex$time, par[1], par[2])  gift <- which( PKindex$conc != 0 )  sum((PKindex$conc[gift]-out[gift])^2)  ...

...od -- @ am<-a-mean(a) bm<-b-mean(b) cm<-c-mean(c) d<-cbind(ts(am),ts(bm),ts(cm)) # Form Bartlett Kernel @ kern<-matrix(0,n+1,1) ii <- 0 seq<-(0:n) kern<-1-(seq/(n+1)) #while (ii <= n){ # kern[ii+1]<-(1-ii/(n+1)) # ii<-ii+1 #} lam<-(t(d) %*% d)/nrow(d) vd<-kern[1]*lam ii<-1 #while (ii <=n){ while (ii < (n-1)){ lam<-(t(d[(1+ii):nrow(d),]) %*% d[1:(nrow(d)-ii),]) / nrow(d) vd<-vd+kern[ii+1]*(lam+t(lam)) ii<-ii+1 } lam<-(t(d[(1+ii):nrow(d),]) %o% d[1:(nrow(d)-ii),]) / nrow(d) lam<-lam[1,,] vd<-vd+kern[ii+1]*(lam+t...

...orbis_comment_add_tag (&info.vc, "ENCODER",PACKAGE_STRING); + vorbis_comment_init (&info->vc); + vorbis_comment_add_tag (&info->vc, "ENCODER",PACKAGE_STRING); /* set up the analysis state and auxiliary encoding storage */ - vorbis_analysis_init (&info.vd, &info.vi); - vorbis_block_init (&info.vd, &info.vb); + vorbis_analysis_init (&info->vd, &info->vi); + vorbis_block_init (&info->vd, &info->vb); } /* audio init done */ @@ -86,50 +84,50 @@ /* write the bitstream header packets with proper page inte...

...orrectly for the password_query in the log file: dovecot: auth(default): client out: OK 1 user=user1 domain=domain.com Yet, the user_query that is logged shows: dovecot: auth(default): sql(user1,192.168.0.77): SELECT vu.virtual_mailbox AS home, vu.virtual_uid AS uid, vu.virtual_gid AS gid, vd.domain AS domain FROM virtual_users vu, virtual_mailbox_domains vd WHERE vu.domain_key = vd.id AND vu.username = 'user1' AND vd.domain = '' And the actual query in my dovecot-sql.conf looks like this: user_query = SELECT vu.virtual_mailbox AS home, vu.virtual_uid AS uid, vu....

...sed (in the simple example below) but what algorithm is? Something like Gauss Jordan Elimination should be applicable to solve a linear system In particular I want to be able to translate it into i.e. Delphi, but in the example below I'm not convinced that I understand what's happening. vD seems rather small... TIA, W. Beldman vD <- matrix(0.305625, 1, 1) > vD [,1] [1,] 0.305625 > v <- matrix(c(0.348125, .296875, .305625), 1, 3) > v [,1] [,2] [,3] [1,] 0.348125 0.296875 0.305625 > A <- solve(vD, v) > A [,1] [,2]...

...he following: _____________________________ #!/usr/bin/env python '''An example of encoding using the Python wave module''' import ogg.vorbis, wave fout = open('out.ogg', 'wb') inwav = wave.open('in.wav','rb') channels = inwav.getnchannels() vd = ogg.vorbis.VorbisInfo(channels = channels, rate = inwav.getframerate(), quality = 0.2).analysis_init() os = ogg.OggStreamState(5) map(os.packetin, vd.headerout()) og = os.flush() while og: og.writeout(fout) og = os.flush() nsamples = 1...

...the number of rows and colunns in a screen matrix". So, why does my code (below) produce a 2x1 screen matrix instead of a 1x2 one? Thanks in advance, rodrigo. ----------------------------------------------------------- plot.new() split.screen(figs=c(1,2)) screen(1) plot.new() plot(v16[vd==0], vdep[vd==0], bg="aliceblue", cex= 0.5, xlab="Age",ylab="AvWei", main="", ylim=c(x1,xn), cex.lab=1.1) title(main = "Female", cex.main = 1.1 , font.main = 1, col.main = "black") screen(2) plot.new() plot(v16[vd==1], vdep[vd==1], b...

Hi, I'm looking for some lines of code that does the following: I have a dataframe with 160 Columns and a number of rows (max 30): Col1 Col2 Col3 ... Col 159 Col 160 Row 1 0 0 LD ... 0 VD Row 2 HD 0 0 0 MD Row 3 0 HD HD 0 LD Row 4 LD HD HD 0 LD ... ... LastRow HD HD LD 0 MD Now I want a dataframe that looks like this. As you see all duplicates are removed. Can this dataframe be constructed in a fast way? Col1 Col2 Col3 ... Col 1...