Archives
Trending
Support
Login
clear text
XML
Django
JavaScript
MATLAB
C
C++
C#
Python
SQL
Shell
Bash
Markdown
YAML
JSON
HTML
CSS
PHP
Java
Ruby
Go
Rust
Swift
Kotlin
Arduino
TypeScript
Perl
Autohotkey
Lua
SQF
R
Scala
Haskell
Groovy
Dart
Clojure
VB.NET
Objective-C
PowerShell
Bash
CoffeeScript
Verilog
stopifnot(require(data.table)) stopifnot(require(microbenchmark)) dat <- data.frame(x=sample.int(10^6, 10^5)) setDT(dat) microbenchmark(transform(dat, y=sin(x))) # Unit: milliseconds # expr min lq mean median uq # transform(dat, y = sin(x)) 67.5327 71.20615 74.45437 72.85815 75.73555 # max neval # 120.9635 100 microbenchmark(dat[,y:=sin(x)]) # Unit: milliseconds # expr min lq mean median uq max neval # dat[, `:=`(y, sin(x))] 4.2602 4.40465 4.816463 4.6203 5.0858 9.8246 100
Mark as private (unlisted)
for 30 minutes
for 6 hours
for 1 day
for 1 week
for 1 month
for 1 year
everlasting (like CCCP)
