search for: log1

...le has one of those conditions, skip this file, jump to and read the next .txt file: I made the programming as: name<-list.files(path = ".", pattern = NULL, all.files = FALSE, full.names = FALSE, recursive = FALSE, ignore.case = FALSE) for(k in 1:length(name)){ log1<-read.table(name[k],header=TRUE,stringsAsFactors=FALSE) x<-which(log1$Rep=="useractivity_act") y<-which(log1$Rep=="useractivity_idle") while(all(log1$Rep!="useractivity_act")||all(log1$Rep!="useractivity_idle")||(length(x)==1 && length(y)==...

Dear All, I have many files in my directory. I want to transfer each data into one which is readable. They have so many possibilities, i have collected(manually and visually) all possibilities and represent them as different numbers. Rep[grep('context_log',log1$Remain[1:length(log1$Date)]),]<-"2" Rep[grep('gs',log1$Remain[1:length(log1$Date)]),]<-"5" Rep[grep('ClockApp',log1$Remain[1:length(log1$Date)]),]<-"6" Rep[grep('mce',log1$Remain[1:length(log1$Date)]),]<-"7" ...... I manual...

...le has one of those conditions, skip this file, jump to and read the next .txt file: I made the programming as: name<-list.files(path = ".", pattern = NULL, all.files = FALSE, full.names = FALSE, recursive = FALSE, ignore.case = FALSE) for(k in 1:length(name)){ log1<-read.table(name[k],header=TRUE,stringsAsFactors=FALSE) x<-which(log1$Rep=="useractivity_act") y<-which(log1$Rep=="useractivity_idle") while(all(log1$Rep!="useractivity_act")||all(log1$Rep!="useractivity_idle")||(length(x)==1 && length(y)==...

...t;-2 n=20;rr=5000 U<-runif(n,0,1) for (i in 1:rr){ x<-(-log(1-U^(1/p1))/b) ?meantrue<-gamma(1+(1/p1))*b ? meantrue ? d<-meantrue/0.30 ? cen<- runif(n,min=0,max=d) ? s<-ifelse(x<=cen,1,0) ? q<-c(x,cen) ? ? z<-function(data, p){? ? ? shape<-p[1] ? ? scale<-p[2] ? ? log1<-n*sum(s)*log(p[1])+ n*sum(s)*log(p[2])+(p[1]-1)*sum(s)*log(1-((exp(-(p[2])*sum(x))))) -(p[2])*sum(t) + (p[1])*log((exp(-(p[2])*sum(x))))- (p[1])*sum(s)*log((exp(-(p[2])*sum(x)))) ? return(-log1) ? } } ? start <- c(1,1) ? zz<-optim(start,fn=z,data=q,hessian=T) ? zz ? m1<-zz$par[2] ? p&l...

...ames of the files before they are created. The purpose of this is to create service checks in nagios. Because you don't know the names of the files ahead of time traditional plugins like check_logs or check_logfiles.plwon't work. Here's what I was able to come up with: #!/bin/bash log1='/u01/app/oracle/admin/ecom/udump/*' crit1=($(grep 'ORA-00600' $log1)) crit2=($(grep 'ORA-04031' $log1)) crit3=($(grep 'ORA-07445' $log1)) if [ $crit1 ] ; then echo "$crit1 on ecom1" status=2 elif [ $crit2 ]; then echo "$crit2 on ecom1&q...

...my censoring approach correct. n=25;rr=1000 p=1.5;b=1.2 for (i in 1:rr){ q<-c(t,cen) t<-rweibull(25,shape=p,scale=b) meantrue<-gamma(1+(1/p))*b meantrue d<-meantrue/0.30 cen<- runif(25,min=0,max=d) cen s<-ifelse(t<=cen,1,0) z<-function(data,p){? beta<-p[1] eta<-p[2] log1<-(n*cen*log(p[1])-n*cen*(p[1])*log(p[2])+cen*(p[1]-1)*sum(log(t))-n*sum((t/(p[2]))^(p[1]))) return(-log1) } start <-c(0.5,0.5) zz<-optim(start,fn=z,data=q,hessian=T) m1<-zz$par[2] p<-zz$par[1] } m1 p Thank you Chris Guure Researcher Institute for Mathematical Research UPM

...t;-rexp(a,rate) for(i in 1:rr){ C1<-runif(b,0,rate) C2<-rexp(b,rate) f2 <- function(C1, C2) { ? r <- pmax(C1 , C2 + C1) ? cbind(C1, r) }? m<-f2(C1,C2) x[1:b]<-(m[,1]) u<-x[1:b] x[1:b]<-(m[,2]) v<-x[1:b] q<-cbind(u,v) h<-c(t,q) z<-function(data ){? rate<-p[2] log1<--(n/log(p[2]))-sum(t/(p[2]))+sum(log(exp(-(u/(p[2])))-exp(-(v/(p[2]))))) return(-log1) } } start <- c(1,1) zz<-optim(start,fn=z,data=h,hessian=T) m1<-zz$par[2] thank you chris b guure researcher institute for mathematical research? upm??

Dear All, Can you help me, with the code below how do I obtain the fisher information from it. Is my q<-replicate(1000,x) the right way to do simulation. thank you. x<-rweibull(100,0.8,1.5) q<-replicate(1000,x) z<-function(p){ beta<-p[1] eta<-p[2] log1<-(n*log(beta)-n*beta*log(eta)+(beta-1)*sum(log(x))-sum((x/eta)^beta)) return(-log1) } zz<-optim(c(0.5,0.5),z) zz Chris Guure postgraduate researcher/tutor Institute for Mathematical Research Universiti Putra Malaysia  [[alternative HTML version deleted]]

...I use write.table, which creates the "NA" files for those incomplete files autimatically. I don't want those NA files. My programes formats looks like: name_c<-Sys.glob("C:/Documents and Settings/lma/My Documents/habitdata/*/calllog/*") for (i in 1:length(name_c)){ log1<-readLines(name_c[i]) .... write.table(Temps, file=paste("C:/Documents and Settings/lma/My Documents/habitdata1",pname,lname,basename(name_c[i]),sep="/")) } Error Information: Error in file(file, ifelse(append, "a", "w")) : cannot open the connectio...

Hi all, I was hoping to get some advice about a problem that I realize will be difficult to reproduce for some people. I'm running R 1.7.1 on an openMosix (Linux) cluster and have been experiencing some odd slow-downs. If anyone has experience with such a setup (or a similar one) I'd appreciate any help. Here's a simplified version of the problem. I'm trying to run the

...usage of <- and =?? Now I have seperated the code into pieces, now it works. Thanks a lot. Hi Brian, Thanks for your suggestion. Seems the error is not when i call list.file. The true error is what i quote from Barry's suggestion: " name = list.files(...) for(k in 1:length(name)){ log1 = read.table(name[k],....) while(something){ k =k + 1 log1 = read.table(name[k],...) # 1 } } What will happen is that when the last file is read at point #1, the loop goes round again, k becomes more than the length of name, and it will fail at #1 again." Thanks for all your...

...64 GNU/Linux > > now I have check the packages on your document: > http://cran.r-project.org/bin/linux/suse/ReadMe.html > but I have a problem whit xorg-x11-lib, in my host I have installed > package: XFree86-libs-4.3.99.902-43.94 > and I have a conflit (see my log) > <<log1.txt>> > can you help me or inform me where find right information for install > in my host? > > tanks in advance, best regards > _________________________________________ > Repubblica e Cantone Ticino, www.ti.ch/csi > Dipartimento delle finanze e dell'economia >...

...d of existing log handler for protocol 7 Sat Nov 1 17:07:03 2014 <3> ulogd.c:1475 initialization finished, entering main loop Sat Nov 1 17:11:53 2014 <5> ulogd.c:1231 Terminal signal received, exiting Sat Nov 1 17:11:56 2014 <5> ulogd.c:843 building new pluginstance stack: 'log1:NFLOG,base1:BASE,ifi1:IFINDEX,ip2str1:IP2STR,print1:PRINTPKT,emu1:LOGEMU' Sat Nov 1 17:11:56 2014 <5> ulogd_inppkt_NFLOG.c:503 forcing unbind of existing log handler for protocol 2 Sat Nov 1 17:11:56 2014 <5> ulogd_inppkt_NFLOG.c:503 forcing unbind of existing log handler for prot...

...so" plugin="/usr/lib/ulogd/ulogd_output_SQLITE3.so" plugin="/usr/lib/ulogd/ulogd_output_PCAP.so" #plugin="/usr/lib/ulogd/ulogd_output_MYSQL.so" plugin="/usr/lib/ulogd/ulogd_raw2packet_BASE.so" plugin="/usr/lib/ulogd/ulogd_output_JSON.so" stack=log1:NFLOG,base1:BASE,pcap1:PCAP [log1] group=0 netlink_socket_buffer_size=217088 netlink_socket_buffer_maxsize=1085440 #netlink_qthreshold=1 #netlink_qtimeout=100 [pcap1] file="/var/log/ulogd.pcap" sync=1 -- You are receiving this mail because: You are watching all bug changes. ----------...

Un texte encapsul? et encod? dans un jeu de caract?res inconnu a ?t? nettoy?... Nom : non disponible Url : https://stat.ethz.ch/pipermail/r-help/attachments/20080304/9de37092/attachment.pl

...018-03-01 10:36:18; 3s ago Docs: man:ulogd(8) Process: 24095 ExecStart=/usr/sbin/ulogd --daemon --uid ulog --pidfile /run/ulog/ulogd.pid (code=exited, status=0/SUCCESS) Main PID: 24096 (code=exited, status=1/FAILURE) Mar 01 10:36:18 kevus ulogd[24096]: building new pluginstance stack: 'log1:NFLOG,base1:BASE,ifi1:IFINDEX,ip2str1:IP2STR,print1:PRINTPKT,emu1:LOGEMU' Mar 01 10:36:18 kevus ulogd[24096]: forcing unbind of existing log handler for protocol 2 Mar 01 10:36:18 kevus ulogd[24096]: forcing unbind of existing log handler for protocol 10 Mar 01 10:36:18 kevus ulogd[24096]: forc...

...5 > p=0.8;b=1.5 > t<-rweibull(50,shape=p,scale=b) > meantrue<-gamma(1+(1/p))*b > meantrue > d<-meantrue/0.30 > > cen<- runif(50,min=0,max=d) > cen > s<-ifelse(t<=cen,1,0) > s > > z<-function(p){? > shape<-p[1] > scale<-p[2] > log1<-(r*log(p[1])-r*(p[1])*log(p[2])+(p[1]-1)*sum(log(t))-sum((t/(p[2]))^(p[1]) > )-((n-r)*(sum(cen)/(p[2]))^(p[1]))) > return(-log1) > } > > start <- c(1,1) > zz<-optim(start,fn=z,hessian=T) > zz > > Thanks in anticipation > > Chris Guure > Researcher &g...

...09 wine0.9.19.deb dpkg -i --root=/home/wine20050725 wine20050725.deb or something similar? Does anybody have experience with this? How to mix/match both a regularly installed wine in /usr and a local one in /home and be sure /home/wine does not use /usr/wine? /home/wine9.09/bin/wine foo.exe > log1 /hmoe/wine2005/bin/wine foo.exe > log2 That would be valuable for regression testing. Thanks for your help, Jorg Hohle

...etc/dovecot-mysql.conf auth_passdb = mysql /etc/dovecot-mysql.conf default_mail_env = maildir:/home/mail/virtual/%d/%n # Use this logfile instead of syslog(). /dev/stderr can be used if you want to # use stderr for logging (ONLY /dev/stderr - otherwise it is closed). log_path = /tmp/dovecot/log1 # For informational messages, use this logfile instead of the default info_log_path = /tmp/dovecot/log2 Then I try run it: [root at octa SPECS]# cat /tmp/dovecot/log1 dovecot-auth: Aug 04 10:48:29 Fatal: Unknown userdb type 'mysql' dovecot: Aug 04 10:48:29 Error: Auth p...

...etc/dovecot-mysql.conf auth_passdb = mysql /etc/dovecot-mysql.conf default_mail_env = maildir:/home/mail/virtual/%d/%n # Use this logfile instead of syslog(). /dev/stderr can be used if you want to # use stderr for logging (ONLY /dev/stderr - otherwise it is closed). log_path = /tmp/dovecot/log1 # For informational messages, use this logfile instead of the default info_log_path = /tmp/dovecot/log2 Then I try run it: [root at octa SPECS]# cat /tmp/dovecot/log1 dovecot-auth: Aug 04 10:48:29 Fatal: Unknown userdb type 'mysql' dovecot: Aug 04 10:48:29 Error: Auth p...