similar to: The match of "ave()" for "FUN=SD"

Hi everyone, I have a question about functions. I have two functions: Sampling=function(fname,Total,nSample,nPatient){......return(list(Gmean,Gsd))} Power=function(alfa,m1,m2,s1,s2,n1,n2){....return(powe)} I want to use "Gmean" and "Gsd" which are the returned values from "Sampling" function, in "Power" function. i.e. when I call "power" I want

Hi, I've been having similar experiences and haven't been able to substantially improve the efficiency using the guidance in the I/O Manual. Could anyone advise on how to improve the following scan()? It is not based on my real file, please assume that I do need to read in characters, and can't do any pre-processing of the file, etc. ## Create Sample File

R 1.8.1 with Windows XP. I have a question about how sd() behaves with NA's: > mean(c(1,2,3,NA)) [1] NA > median(c(1,2,3,NA)) [1] NA > mad(c(1,2,3,NA)) [1] NA > sd(c(1,2,3,NA)) Error in var(x, na.rm = na.rm) : missing observations in cov/cor > What is so special about the standard deviation, relative to other descriptive statistics, that the presence of NA's deserves an

Dear list, I'm still trying to calculate the sd for V2 for each group in V1 if V3 is '0': > x V1 V2 V3 1 A01 2.40 0 2 A01 3.40 1 3 A01 2.80 0 4 A02 3.20 0 5 A02 4.20 0 6 A03 2.98 1 7 A03 2.31 0 8 A04 4.20 0 # Work x$vmean <- ave(x$V2, x$V1, x$V3 == 0, FUN = mean) # Work x$vsd2 <- ave(x$V2, x$V1, FUN = sd) # Doesn't work x$vsd <- ave(x$V2, x$V1, x$V3

Full_Name: Dan B Version: na OS: na Submission from: (NULL) (80.6.127.185) I can't log into the bug tracker (I can't find where to register / login). In this way I can't add the following context diff (hopefully in the right order) for my changes to the matrix.Rd... Hmm... I guess this should be a separate report anyway... The first diff explains how the dimnames list should

Hello! I'm trying to get Samba4 working as an additional AD DC. bin/net vampire reports no errors, but when I start sbin/samba I got the following in my var/samba.log: -------------------- [Sun May 23 03:58:08 2010 MSD, 0 ../smbd/server.c:373:binary_smbd_main()] samba version 4.0.0alpha12-GIT-UNKNOWN started. Copyright Andrew Tridgell and the Samba Team 1992-2010 [Sun May 23 03:58:08

I use rsync to download a directory from a remote daemon. This has worked well for years but has recently started to give problems. The rsync transfer is run by a program called dirvish that is run as a cron job. The log looks like this: ACTION: rsync -vrltH --delete --stats -D --numeric-ids --exclude-from=/nfs/scop5/data/msd/sifts-mirror/2016-06-28/exclude

I'm trying to fit a naive Bayes model and predict on a new data set using the functions naivebayes and predict (package = e1071). R version 2.5.1 on a Linux machine My data set looks like this. "class" is the response and k1 - k3 are the independent variables. All of them are factors. The response has 52 levels and k1 - k3 have 2-6 levels. I have about 9,300 independent variables

Hello everybody: I get a strange behavior with seq, take a look at this: > msd <- seq(0.05,0.3, 0.01) > msd[13] [1] 0.17 > class(msd) [1] "numeric" > class(msd[13]) [1] "numeric" > typeof(msd[13]) [1] "double" now the problem: > msd[13] == 0.17 [1] FALSE It is strange only to me? Consider that: > 0.17 == 0.17 [1] TRUE and also > a

TRUNKMSD1=1 ; MSD digits to strip (usually 1 or 0) TRUNKMSD2=2 ; MSD digits to strip (usually 1 or 0) ; logn distance calls exten => _91NXXNXXXXXX,1,NoOp("Dialing: "${TRUNK}/${EXTEN:${TRUNKMSD1}}) exten => _91NXXNXXXXXX,2,Dial(${TRUNK}/${EXTEN:${TRUNKMSD1}}) exten => _91NXXNXXXXXX,3,Congestion When I dial

It's exactly what I was looking for, thanks. I'm replying to the whole list so others can skip this question, to not waste time on it. Bonne fin de journ?e de Montr?al (nous sommes le matin ici) On Fri, May 3, 2024 at 10:30?AM Marc Girondot <marc_grt at yahoo.fr> wrote: > Is it what you want ? > mat_letters <- matrix(data=c('A', 'B', 'C',

Minor nit: When booting a Solaris x86 kernel with verbose kernel messages enabled inside qemu, with an usb hid or usb mass-storage device, then the Solaris kernel reports these usb devices as implementing "USB 0.10" protocol. The comment in the code tells me these device implement v1.0 protocol. The 16-bit bcdUSB word word in the device descriptor has the protocol revision swapped and

Hello. I asked about the problem in http://markmail.org/message/zsry62fcig5hqka3 . And I created simple example plug-in for deliver. It is attached (I don't want to paste so much code) For compile in command-line run: # DOVECOT=<path to dovecot> gmake ...send mail... ...view dovecot lda log... # gmake clean # WITH_ONLY_HEADERS=1 DOVECOT=<path to dovecot> gmake ...send mail...

Dear All I'm having problem with some script which worked a few months ago (on a different computer that might well have had a different version of R installed, so perhaps it has to do with the old version of R?): library(reshape) Loading required package: plyr > tble.data <- melt.array(interp, varnames=c("tme","lon","lat")) > > allyrs.interp <-

Is there a way to get a copy of a matrix only for TRUE entries of a matching size boolean matrix? For *example*: > mat_letters <- matrix(data=c('A', 'B', 'C', 'D'), ncol=2, byrow=TRUE) > mat_letters [,1] [,2] [1,] "A" "B" [2,] "C" "D" > mat_bools <- matrix(data=c(FALSE, TRUE, TRUE, FALSE), ncol=2,

I received some great ideas (see below) from a number of people to whom I am grateful. Here is the code I put together from many of their suggestions: lx <- length(x) lw <- length(w) z <- matrix(abs( rep( x , lw ) - rep( w, each = lx ) ), nrow=lw, ncol=lx, byrow=TRUE) s <- pmax( abs( w - min(x) ), abs( w - max(x) ) ) z <- (1 - (z/rep(s,length=lx*lw))^3)^3 sums <-

See if the following helps: > m <- outer(letters[1:5], 1:4, paste, sep="") > m [,1] [,2] [,3] [,4] [1,] "a1" "a2" "a3" "a4" [2,] "b1" "b2" "b3" "b4" [3,] "c1" "c2" "c3" "c4" [4,] "d1" "d2" "d3" "d4" [5,]

Dear All Salam, Does anyone work on Linux groups and policies like; I have squid.conf, i want to run it by my user and for starting and restarting services only sudo can be command but we want to totally eleminate ROOT password. Regards, Umair Shakil ETD -------------- next part -------------- An HTML attachment was scrubbed... URL:

G'day all, some time ago I sent an email regarding the following behaviour of match.fun(): > x <- matrix(rnorm(200), ncol=2) > var <- "fred" > apply(x, 2, var) Error in get(x, envir, mode, inherits) : variable "fred" of mode "function" was not found and asked whether it would be desirable to change this behaviour such that the function var would

I am not able to replicate this: > center <- function(x,FUN) FUN(x) > center(1:10, mean) [1] 5.5 > mean <- 4 > center(1:10, mean) Error in center(1:10, mean) : could not find function "FUN" Using a fresh install of version 3.3.1 under MacOS, and tested before with 3.3.0 with the same result. On Tue, Sep 6, 2016 at 4:25 PM, Joris Meys <jorismeys at gmail.com>