search for: ina

...nd best wishes from the festive times here at Kolkata, India -- the time of Durga Puja celebrations. I seek your advice as I try plotting lines for my data. The problem: I have created a dataframe that looks like this (name: myFrame): lowest second third fourth highest significance INAS 0.107 0.115 0.123 0.115 0.166 0.000 MMA 0.091 0.107 0.115 0.142 0.179 0.000 DMA 0.126 0.103 0.126 0.129 0.142 0.031 The numbers in the dataframe indicate values of a continuous variable INMET (indicating ratio of inorganic arsenic vesus methylated arsenic species) for...

...(file="Rplot.ps") Error in device("postscript", as.character(c(file, paper, family, bg, : unable to start device postscript This is R-0.49 under SunOS 4.1.3 and under Linux (kernel 2.0.0). The command worked fine on R-0.14 under the 2 above operating systems. Any ideas? Ina =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject !) To: r-help-request at stat.m...

Hi everyone, I was trying to mode the following exercise using R. The question: Set up a one pool model using numericintegration. The model will run from time 1 to time 30 using a time step of 1.The pool (A) will be fed by flux "inA" at a rate of 5 units per hour anddrained by flux "outA" at a rate of 20% per hour. At time 0, A has 5units. At time 30, what is the pool size of A (rounded to 1 decimal)? In theanswer sheet provide the value of pool could be (23.8, 24.8, 25.0 or 24.7). Thevalue I got does not corres...

...> values of x. > zapsmall <- function(x, > digits = getOption("digits"), > mFUN = function(x) max(abs(x)), > min.d = 0L) { > if (length(digits) == 0L) > stop("invalid 'digits'") > if (all(ina <- is.na(x))) > return(x) > mx <- mFUN(x[!ina]) > round(x, digits = if(mx > 0) max(min.d, digits - as.numeric(log10(mx))) > else digits) > } > Steve Thank you, Steve, you are right that it would look simpler to do it that way. On...

...ent) if the function has one argument and is applied to the non-NA values of x. zapsmall <- function(x, digits = getOption("digits"), mFUN = function(x) max(abs(x)), min.d = 0L ) { if (length(digits) == 0L) stop("invalid 'digits'") if (all(ina <- is.na(x))) return(x) mx <- mFUN(x[!ina]) round(x, digits = if(mx > 0) max(min.d, digits - as.numeric(log10(mx))) else digits) } Steve On Mon, Dec 18, 2023, 05:47 Serguei Sokol via R-devel <r-devel at r-project.org> wrote: > Le 18/12/2023 ? 11:24, Martin Maech...

...o. Consider: > > > zapsmall2 <- > > function (x, digits = getOption("digits"), mx=max(abs(x), na.rm=TRUE)) > > { > > ??? if (length(digits) == 0L) > > ??????? stop("invalid 'digits'") > > ??? if (all(ina <- is.na(x))) > > ??????? return(x) > > ??? round(x, digits = if (mx > 0) max(0L, digits - > > as.numeric(log10(mx))) else digits) > > } > > > then zapsmall2() without explicit 'mx' behaves identically to actual > >...

...nd(y, digits=getOption('digits')) [1] 0 Looking at the current source code, indicates that `zapsmall` is expecting a vector: zapsmall <- function (x, digits = getOption("digits")) { if (length(digits) == 0L) stop("invalid 'digits'") if (all(ina <- is.na(x))) return(x) mx <- max(abs(x[!ina])) round(x, digits = if (mx > 0) max(0L, digits - as.numeric(log10(mx))) else digits) } If `x` is a non-zero scalar, zapsmall will never perform rounding. The man page simply states: zapsmall determines a digits argument dr fo...

...ax value of > reference) would do. Consider: > zapsmall2 <- > function (x, digits = getOption("digits"), mx=max(abs(x), na.rm=TRUE)) > { > ??? if (length(digits) == 0L) > ??????? stop("invalid 'digits'") > ??? if (all(ina <- is.na(x))) > ??????? return(x) > ??? round(x, digits = if (mx > 0) max(0L, digits - > as.numeric(log10(mx))) else digits) > } > then zapsmall2() without explicit 'mx' behaves identically to actual > zapsmall() and for a scalar or a vecto...

...[1] 0 > > Looking at the current source code, indicates that `zapsmall` is expecting a vector: > > zapsmall <- > function (x, digits = getOption("digits")) > { > if (length(digits) == 0L) > stop("invalid 'digits'") > if (all(ina <- is.na(x))) > return(x) > mx <- max(abs(x[!ina])) > round(x, digits = if (mx > 0) max(0L, digits - as.numeric(log10(mx))) else digits) > } > > If `x` is a non-zero scalar, zapsmall will never perform rounding. > > The man page simply states: > z...

...I think that an additional argument 'mx' (absolute max value of reference) would do. Consider: zapsmall2 <- function (x, digits = getOption("digits"), mx=max(abs(x), na.rm=TRUE)) { ??? if (length(digits) == 0L) ??????? stop("invalid 'digits'") ??? if (all(ina <- is.na(x))) ??????? return(x) ??? round(x, digits = if (mx > 0) max(0L, digits - as.numeric(log10(mx))) else digits) } then zapsmall2() without explicit 'mx' behaves identically to actual zapsmall() and for a scalar or a vector of identical value, user can manually fix the sca...

...t the current source code, indicates that `zapsmall` is expecting a vector: >> >> zapsmall <- >> function (x, digits = getOption("digits")) >> { >> if (length(digits) == 0L) >> stop("invalid 'digits'") >> if (all(ina <- is.na(x))) >> return(x) >> mx <- max(abs(x[!ina])) >> round(x, digits = if (mx > 0) max(0L, digits - as.numeric(log10(mx))) else digits) >> } >> >> If `x` is a non-zero scalar, zapsmall will never perform rounding. >> >> The...

...ed. Maybe the line in the docs: " (compared with the maximal absolute value)" needs to read: " (compared with the maximal absolute value in the vector)" Barry On Sun, Dec 17, 2023 at 2:17?PM Duncan Murdoch <murdoch.duncan at gmail.com> wrote: > This email originated outside the University. Check before clicking links > or attachments. > > I'm really confused. Steve's example wasn't a scalar x, it was a > vector. Your zapsmall() proposal wouldn't zap it to zero, and I don't > see why summary() would if it was using your p...

I hope you can help with what might be an easy query. I am doing some simple simulations where I am generating series of data from a normal distribution using rnorm. I am then treating these as a time series. I want to know how I can incorporate correlation in the series (autocorrelation) i.e. make the observations non-independent, with a known (but simple) correlation structure. In other words I

tmp <- c(-1,NA,NA,1,1,NA,NA,1) without using a loop, how can I replace all NAs in the list above with the previous none NA value in the list?

Hi, a developer asked me something (we were talking about a issue in R highlighting) Here it is: "P.S.: Shouldn't constants like TRUE, FALSE, Inf, NaN, NA ... be marked up too?" Like in: # iNA <- as.integer(NA) # !is.na(Inf) & !is.nan(Inf) & is.infinite(Inf) & !is.finite(Inf) # !is.na(-Inf)& !is.nan(-Inf)& is.infinite(-Inf)& !is.finite(-Inf) # is.na(NA) & !is.nan(NA) & !is.infinite(NA) & !is.finite(NA) # is.na(NaN) & is.nan(NaN) &...

Does anybody have Digium TE212P interface card on Dell PowerEdge 1850? I'm planning to install * on that configuration so I'm looking for any positive/negative experience. Best regards, -- Tomislav Par?ina Lama Computers Split Stinice 12, 21000 Split Tel.: +385(21)270248 Mob.: +385(91)1212148 SIP: tomo@sip.lama.hr e-mail: tparcina#lama.hr http://www.lama.hr

...can interoperate over either NTLM or Kerberos to provide SSO. > Mozilla has an OSS implementation of this, but last I heard it only > supported NTLM not Kerb. Moz supports Kerberos on some platforms via > GSSAPI (http://www.mozilla.org/releases/mozilla1.7b/README.html), which > in combination with mod_auth_kerb (http://modauthkerb.sourceforge.net/) > is supposed to provide SSO on Unix-type platforms. > > On Fri, 2004-10-22 at 18:49 +0200, Palle Girgensohn wrote: >> Hi! >> >> I don't use MS products at all, so I have very little knowledge with >&gt...

Hi people, pls does anybody know what "(T)" and "(D)" letter means? server3*CLI> iax2 show peers Name/Username Host Mask Port Status SERVER1 xxx.xxx.xxx.xxx (D) 255.255.255.255 9785 (T) OK (29 ms) SERVER2 xxx.xxx.xxx.xxx (D) 255.255.255.255 4569 OK (95 ms) 2 iax2 peers [2 online, 0 offline, 0

Running R under Solaris 2.5.1 I get "Color allocation error". the offending line is lines(x,col="green4",lty="dotted") from the "graphics" demo Any suggestions? The same program runs fine under linux, BTW. Ina --------------------- Ina Dau Computer Administrator - Room 101 - Pearson Building - UCL email: i.dau at ucl.ac.uk Phone: +44-171-4193636 snail: Dep. of Statistical Sciences, University College London Gower Street, London WC1E 6BT -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-...

Has anybody used Huawei EP201S IP phone? I need 9 SIP phones that cost around 100USD, and those phones are one of options. Can anybody suggest anything else that costs around 100USD? -- Tomislav Par?ina Lama Computers Split Stinice 12, 21000 Split Tel.: +385(21)495148 SIP: tomo@pbx.lama.hr e-mail: tparcina#lama.hr http://www.lama.hr