search for: z4

...ted but I could not find K1 in col1. rbind(preval,mydat) Col1 Col2 col3 1 <NA> <NA> <NA> 2 X1 <NA> <NA> 3 Y1 <NA> <NA> 4 K2 <NA> <NA> 5 W1 <NA> <NA> 6 Z1 K1 K2 7 Z2 <NA> <NA> 8 Z3 X1 <NA> 9 Z4 Y1 W1 On Sat, Feb 24, 2018 at 6:18 PM, Jim Lemon <drjimlemon at gmail.com> wrote: > hi Val, > Your problem seems to be that the data are read in as a factor. The > simplest way I can think of to get around this is: > > mydat <- read.table(textConnection("Col1 Co...

HI Jim and all, I want to put one more condition. Include col2 and col3 if they are not in col1. Here is the data mydat <- read.table(textConnection("Col1 Col2 col3 K2 X1 NA Z1 K1 K2 Z2 NA NA Z3 X1 NA Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE) The desired out put would be Col1 Col2 col3 1 X1 0 0 2 K1 0 0 3 Y1 0 0 4 W1 0 0 6 K2 X1 0 7 Z1 K1 K2 8 Z2 0 0 9 Z3 X1 0 10 Z4 Y1 W1 K2 is already is already in col1 and...

Hi Val, My fault - I assumed that the NA would be first in the result produced by "unique": mydat <- read.table(textConnection("Col1 Col2 col3 Z1 K1 K2 Z2 NA NA Z3 X1 NA Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE) val23<-unique(unlist(mydat[,c("Col2","col3")])) napos<-which(is.na(val23)) preval<-data.frame(Col1=val23[-napos], Col2=NA,col3=NA) mydat<-rbind(preval,mydat) mydat[is.na(mydat)]<-"0" mydat Jim On Sun,...

...#39;), Fixed_Cost=c(400,5000,4000,2000,100), Variable_Cost=c(2.5,0,0.15,2,3), Capacity=c(5000,30000,20000,10000,4000), Expected_gain=c(0.25,0.3,0.15,0.36,0.09)) Let x1,x2,x3,x4,x5 are the decision variables for c1,c2,c3,c4,c5 channel and z1,z2,z3,z4,z5 are the indicator binary variables if channel has allocated communication if any. max((0.25*x1+0.30*x2+0.15*x3+0.36*x4+0.09*x5)-(2.5*x1+0*x2+0.15*x3+2*x4+3*x5+400*z1+10000*z2+4000*z3+2000*z4+100*z5)/( 2.5*x1+0*x2+0.15*x3+2*x4+3*x5+400*z1+10000*z2+4000*z3+2000*z4+100*z5)) Constraints: (2.5*x1+0...

...t;valkremk at gmail.com> wrote: >HI Jim and all, > >I want to put one more condition. Include col2 and col3 if they are >not >in col1. > >Here is the data >mydat <- read.table(textConnection("Col1 Col2 col3 >K2 X1 NA >Z1 K1 K2 >Z2 NA NA >Z3 X1 NA >Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE) > >The desired out put would be > > Col1 Col2 col3 >1 X1 0 0 >2 K1 0 0 >3 Y1 0 0 >4 W1 0 0 >6 K2 X1 0 >7 Z1 K1 K2 >8 Z2 0 0 >9 Z3 X1 0 >10...

...ne more question on the original question What does this "[-1] " do? preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], Col2=NA,col3=NA) mydat <- read.table(textConnection("Col1 Col2 col3 Z1 K1 K2 Z2 NA NA Z3 X1 NA Z4 Y1 W1"),header = TRUE) preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], Col2=NA,col3=NA) rbind(unique(preval),mydat) Col1 Col2 col3 1 <NA> <NA> <NA> 2 X1 <NA> <NA> 3 Y1 <NA> <NA> 4...

...aps.  Here is my code: par(mfrow = c(3, 1)) mu = 0 Omega = 1 alpha1 = 0 alpha2 = 1.5 alpha3 = 2 alpha4 = 0.5 Z1 = matrix(dmvst(x, 1, mu, Omega, alpha1, df = Inf), length(x)) Z2 = matrix(dmvst(x, 1, mu, Omega, alpha2, df = 5), length(x)) Z3 = matrix(dmvst(x, 1, mu, Omega, alpha3, df = 5), length(x)) Z4 = matrix(dmvst(x, 1, mu, Omega, alpha4, df = Inf), length(x)) plot(x,Z1, ylim=range(Z1,Z2), type='l') points(x,Z2,type='l',col=2) title(main = "Z1 (Skew=0, df=Inf) vs Z2 (Skew=1.5, df=5)",cex = 1.0) plot(x,Z1, ylim=range(Z1,Z3), type='l') points(x,Z3,type='l...

hi Val, Your problem seems to be that the data are read in as a factor. The simplest way I can think of to get around this is: mydat <- read.table(textConnection("Col1 Col2 col3 Z1 K1 K2 Z2 NA NA Z3 X1 NA Z4 Y1 W1"),header = TRUE,stringsAsFactors=FALSE) preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], Col2=NA,col3=NA) rbind(preval,mydat) mydat[is.na(mydat)]<-"0" Jiim On Sun, Feb 25, 2018 at 11:05 AM, Val <valkremk at gmail.com> wro...

On 13/04/18 16:21, Danny Smit wrote: > Hi all, > Hi Danny, I'm the author of nvidia-detect. > I'm testing an installation of nvidia drivers on a HP Z4 workstation > (nvidia Quadro P600) with CentOS 6.9. Running nvidia-detect with this > setup gives the following output: > > # nvidia-detect > Error getting device_class > nvidia-detect scans the pci bus and checks the returned device_class for display controllers. In you...

Hi all, I'm testing an installation of nvidia drivers on a HP Z4 workstation (nvidia Quadro P600) with CentOS 6.9. Running nvidia-detect with this setup gives the following output: # nvidia-detect Error getting device_class nvidia-detect also quits with exit-code 255. Could this be a bug in nvidia-detect? Or is it an unsupported configuration? The followi...

...ne more question on the original question What does this "[-1] " do? preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], Col2=NA,col3=NA) mydat <- read.table(textConnection("Col1 Col2 col3 Z1 K1 K2 Z2 NA NA Z3 X1 NA Z4 Y1 W1"),header = TRUE) preval<-data.frame(Col1=unique(unlist(mydat[,c("Col2","col3")]))[-1], Col2=NA,col3=NA) rbind(unique(preval),mydat) Col1 Col2 col3 1 <NA> <NA> <NA> 2 X1 <NA> <NA> 3 Y1 <NA> <NA> 4...

Hi All, I am reading a file as follow, mydat <- read.table(textConnection("Col1 Col2 col3 Z2 NA NA Z3 X1 NA Z4 Y1 W1"),header = TRUE) 1. "NA" are missing should be replace by 0 2. value that are in COl2 and Col3 should be included in col1 before they appear in col2 and col3. So the output data looks like as follow, X1 0 0 Y1 0 0 W1 0 0 Z2 0 0 Z3 X1 0 Z4 Y1 W1 Thank you in ad...

...34 PM, Val <valkremk at gmail.com> wrote: >>>> Hi All, >>>> >>>> I am reading a file as follow, >>>> >>>> mydat <- read.table(textConnection("Col1 Col2 col3 >>>> Z2 NA NA >>>> Z3 X1 NA >>>> Z4 Y1 W1"),header = TRUE) >>>> >>>> 1. "NA" are missing should be replace by 0 >>>> 2. value that are in COl2 and Col3 should be included in col1 before >>>> they appear >>>> in col2 and col3. So the output data looks lik...

On 13/04/18 22:33, Danny Smit wrote: > On Fri, Apr 13, 2018 at 8:50 PM, Phil Perry <pperry at elrepo.org> wrote: >> >> Your device is supported: >> >> $ nvidia-detect -l | grep -i 1cb2 >> [10de:1cb2] NVIDIA Corporation GP107GL [Quadro P600] >> >> Support was added in the 375.39 NVIDIA driver. I assume the driver works as >> expected for you?

On Sat, Apr 14, 2018 at 1:51 PM, Phil Perry <pperry at elrepo.org> wrote: > > Anyway, I've fixed it and am just waiting for our build systems to be > available to rebuild and push a release for you (will be later today). I'll > update the bug report once that is done, and perhaps you could then confirm > it's working as expected for you. > I can confirm that it

...in each row of R (Dataframe1): apply( Dataframe2, 1, function(x){ z <- which(x==1); z2 <- names(x)[z]; zlist=apply(Dataframe1, 1, function(y){ z3 <- which(y==1); z4 <- names(y)[z3]; z4[ which(z4 %in% z2) ]}); zlist}) $U1 $U1$R1 [1] "C2" "C4" $U1$R2 [1] "C1" "C4" $U1$R3 [1] "C1" $U2 $U2$R1 [1] "C2" "C4...

...rmulated the following code of FIML to analyse univariate sample selection problem. Would you please advise me where is my problem library (sem) library(nrmlepln) Selection equation ws = c(w1, w2, w3) # values of dependent variables in selection equations are binary (1 and 0) zs = c(z1, z2, z3, z4, z5) # z1, z2, z3 continuous and z4 and z5 dummies explanatory variables in selection equation Level equation (extent of particular option use) ys = c(y1, y2, y3) # values of dependent variables are percentage with some zero cases xs = c(x1, x2, x3, x4, x5) # x1, x2, x3 continuous and x4 and x5 du...

...drive porque es muy grande. ? monicap_50.csv <https://docs.google.com/file/d/0B8o2KrPEgG7ATlBMc19lTVk1d3M/edit?usp=drive_web> ? Este es el script, y lo que no entiendo que pasa es que tengo 592044 datos despues de limpiar los NA quedan 586561 datos , y cuando utilizo el script la suma de z2+z4+z5+z6 , que son los estados deberia de darme lo mismo que Z1 que es el valor total de datos pero no se que error existe que me dan mas datos que los que hay.He comparado con el archivo en excel y los datos de na estan correctos. library(chron) library(xlsx) filename<-"monicap_50.csv&quo...

On Fri, Apr 13, 2018 at 8:50 PM, Phil Perry <pperry at elrepo.org> wrote: > > Your device is supported: > > $ nvidia-detect -l | grep -i 1cb2 > [10de:1cb2] NVIDIA Corporation GP107GL [Quadro P600] > > Support was added in the 375.39 NVIDIA driver. I assume the driver works as > expected for you? Yes it works perfectly fine. > If you are able to offer any more

...ydat) > > Jim > > On Sat, Feb 24, 2018 at 3:34 PM, Val <valkremk at gmail.com> wrote: > > Hi All, > > > > I am reading a file as follow, > > > > mydat <- read.table(textConnection("Col1 Col2 col3 > > Z2 NA NA > > Z3 X1 NA > > Z4 Y1 W1"),header = TRUE) > > > > 1. "NA" are missing should be replace by 0 > > 2. value that are in COl2 and Col3 should be included in col1 before > > they appear > > in col2 and col3. So the output data looks like as follow, > > > > X1...