search for: bch

...arr <- array(rnorm(2^22),c(2^10,4,4,4)) > i <- seq(1,length = 10, by = 100) > > bench::mark( > arr[i, TRUE, TRUE, TRUE], > arr[i, , , ] > ) > #> # A tibble: 2 x 1 > #> expression min mean median max n_gc > #> <chr> <bch:t> <bch:t> <bch:tm> <bch:tm> <dbl> > #> 1 arr[i, TRUE,? 7.4?s 10.9?s 10.66?s 1.22ms 2 > #> 2 arr[i, , , ] 7.06?s 8.8?s 7.85?s 538.09?s 2 > > So not a huge difference, but it's there. Funny. I get similar results to yours above...

...4 4 100000 i <- c(1, 3) bench::mark( arr[i, TRUE, TRUE, TRUE], arr[i, , , ] )[c("expression", "min", "mean", "max")] #> # A tibble: 2 x 4 #> expression min mean max #> <chr> <bch:tm> <bch:tm> <bch:tm> #> 1 arr[i, TRUE, TRUE, TRUE] 41.8ms 43.6ms 46.5ms #> 2 arr[i, , , ] 41.7ms 43.1ms 46.3ms On Fri, Jun 8, 2018 at 12:31 PM, Berry, Charles <ccberry at ucsd.edu> wrote: > > >> On Jun 8, 2018, at 11:52 AM, Hadley Wi...

> On Jun 8, 2018, at 10:37 AM, Herv? Pag?s <hpages at fredhutch.org> wrote: > > Also the TRUEs cause problems if some dimensions are 0: > > > matrix(raw(0), nrow=5, ncol=0)[1:3 , TRUE] > Error in matrix(raw(0), nrow = 5, ncol = 0)[1:3, TRUE] : > (subscript) logical subscript too long OK. But this is easy enough to handle. > > H. > > On

> On Jun 8, 2018, at 1:49 PM, Hadley Wickham <h.wickham at gmail.com> wrote: > > Hmmm, yes, there must be some special case in the C code to avoid > recycling a length-1 logical vector: Here is a version that (I think) handles Herve's issue of arrays having one or more 0 dimensions. subset_ROW <- function(x,i) { dims <- dim(x) index_list <-

...get a second random number: > bench::mark(orig = sample.int(m, 1000000, replace = TRUE), + new = sample_int(m, 1000000, replace = TRUE), + check = FALSE) # A tibble: 2 x 14 expression min mean median max `itr/sec` mem_alloc n_gc n_itr <chr> <bch:t> <bch:t> <bch:t> <bch> <dbl> <bch:byt> <dbl> <int> 1 orig 8.15ms 8.67ms 8.43ms 10ms 115. 3.82MB 4 52 2 new 25.21ms 25.58ms 25.45ms 27ms 39.1 3.82MB 2 18 # ... with 5 more variables: total_time <bch...

...quot;, rnorm(3), stop("bang!")), dots4(1+2, "a", rnorm(3), stop("bang!")), check = FALSE )[1:4] #> # A tibble: 4 x 4 #> expression min mean median #> <chr> <bch:tm> <bch:tm> <bch:t> #> 1 "dots1(1 + 2, \"a\", rnorm(3), stop(\"bang!\"? 3.23?s 4.15?s 3.81?s #> 2 "dots2(1 + 2, \"a\", rnorm(3), stop(\"bang!\"? 2.72?s 4.48?s 3.37?s #> 3 "dots3(1 + 2, \"a\", rnorm(3...

...he index generation in the timing. I see: arr <- array(rnorm(2^22),c(2^10,4,4,4)) i <- seq(1,length = 10, by = 100) bench::mark( arr[i, TRUE, TRUE, TRUE], arr[i, , , ] ) #> # A tibble: 2 x 1 #> expression min mean median max n_gc #> <chr> <bch:t> <bch:t> <bch:tm> <bch:tm> <dbl> #> 1 arr[i, TRUE,? 7.4?s 10.9?s 10.66?s 1.22ms 2 #> 2 arr[i, , , ] 7.06?s 8.8?s 7.85?s 538.09?s 2 So not a huge difference, but it's there. Hadley -- http://hadley.nz

...ink that's probably because alist() is a slow way to generate a missing symbol: bench::mark( alist(x = ), list(x = quote(expr = )), check = FALSE )[1:5] #> # A tibble: 2 x 5 #> expression min mean median max #> <chr> <bch:tm> <bch:tm> <bch:tm> <bch:tm> #> 1 alist(x = ) 2.8?s 3.54?s 3.29?s 34.9?s #> 2 list(x = quote(expr = )) 169ns 219.38ns 181ns 24.2?s (note the units) Hadley -- http://hadley.nz

Dear SAMBA Group, I've playing around with getting SAMBA to do things for me. I have an Ultra-1 running Solaris 2.6 and a Win-XP system with a Canon BJC-2000 printer attached to it. I'm trying to get the SUN to print to the printer on the XP box. I have followed various instructions but now when I print as "root" with "lp -d bjc <file>" I get an email message

On 9/20/18 1:43 AM, Carl Boettiger wrote: > For a well-tested C algorithm, based on my reading of Lemire, the unbiased > "algorithm 3" in https://arxiv.org/abs/1805.10941 is part already of the C > standard library in OpenBSD and macOS (as arc4random_uniform), and in the > GNU standard library. Lemire also provides C++ code in the appendix of his > piece for both this and

I've been trying to figure out how to prevent a column that is the result of an aggregate function call so that I can use it in further calculations. For example, I would like to aggregate the expf for the data.frame by sp (character) and dbh (double d=rounded to integer) using the command: > st2 <- aggregate( ntrs$expf, by=list(sp=ntrs$sp,dbh=ntrs$dbh), sum ) > st2$expf <- st2$x

Interestingly, as.list(substitute(...())) also works. On Sun, Aug 12, 2018 at 1:16 PM, Duncan Murdoch <murdoch.duncan at gmail.com> wrote: > On 12/08/2018 4:00 PM, Henrik Bengtsson wrote: >> >> Hi. For any number of *known* arguments, we can do: >> >> one <- function(a) list(a = substitute(a)) >> two <- function(a, b) list(a = substitute(a), b =

Doe anyone know of a way to print nice-looking, printer-friendly tables directly in the R plot window? This would be very handy for examining preliminary results from frequently used routines. I've hunted for this with no luck. All anyone seems to do is export text files to excel for formatting, or use the print(bla) function which just calls the numbers at the command line. There must be

Hi, I need to use other user than root for join the pc's to the Samba 3 PDC I Try the groupmap option for this: [root@bch:/]# /usr/local/samba/bin/net groupmap list System Operators (S-1-5-32-549) -> -1 Replicators (S-1-5-32-552) -> -1 Guests (S-1-5-32-546) -> -1 Domain Users (S-1-5-21-107229157-1068619686-3350107674-513) -> -1 Domain Admins (S-1-5-21-107229157-1068619686-3350107674-512) -> domadm Domai...

...ompt the second user that the file is locked. So locking appears to be working. However, what further testing should I do before rolling this out and replacing our current system. This application is vital for the business. Corruption would be very, very bad!! Hence my concern. Thanks for advice. bch. -------------- next part -------------- HTML attachment scrubbed and removed

We've been trying unsuccessfully to connect our Meridian Option 81C to a TE110P via PRI. We've followed the directions in asterisk-meridian-a1.pdf (link on http://www.voip-info.org/wiki/view/Asterisk+legacy+integration), but it doesn't seem to work on our 81C (even though many, many users report it works very well on Option 11's). Has anyone had any success in getting the above

...ed. Nov 23 09:15:51 fw03 pppd[4862]: WINBIND plugin initialized. Nov 23 09:15:51 fw03 pppd[4862]: pppd 2.4.3 started by root, uid 0 Nov 23 09:15:51 fw03 pppd[4862]: Using interface ppp0 Nov 23 09:15:51 fw03 pppd[4862]: Connect: ppp0 <--> /dev/pts/2 Nov 23 09:15:53 fw03 pppd[4862]: Peer VIDAR\\bch failed CHAP authentication Nov 23 09:15:53 fw03 pppd[4862]: Connection terminated. Nov 23 09:15:54 fw03 pppd[4862]: Exit. The ppp options file: noauth name l2tpd refuse-pap refuse-mschap require-mschap-v2 defaultroute ms-dns 192.168.0.19 ms-dns 192.168.0.49 ms-wins 192.168.0.19 ms-wins 192.168.0.4...

HELP! I am becoming quite frustrated with trying to set up remote browse sync. I have several subnets and ONE workgroup. I want one host in the entire workgroup to have a complete browse list that it has collected from all of the local master browsers. One the master: local master = yes domain master = yes On one clients in each subnet: local master = yes remote browse sync = 1.2.3.4

When reading a file with scan(), the following crashes R under Solaris and WinNT 4.0 (versions below): > ads <- scan("Bltiadu.dat", what=list(,,)) Would an error message be more logical? Note that the followings work (the data file has 201 lines and 3 columns): > ads <- scan("Bltiadu.dat", what=list(0,,)) Read 603 lines > ads <-

...id = 10000-20000 idmap gid = 10000-20000 template shell = /bin/bash template primary group = 'Domain Users' winbind enum users = No winbind enum groups = No winbind use default domain = Yes winbind nested groups = Yes [users] comment = User Folders path = /smb/users admin users = bch read only = No guest ok = Yes [homes] comment = Users Folders valid users = %S read only = no browsable = no