vectorized_apply.r
R•エキスパート
Explorer
C40
C++40
C#40
Dart40
Go40
Java40
JavaScript40
Kotlin40
Objective-C40
Perl40
PHP40
Python40
R
初級10
中級10
上級10
エキスパート5
tidyverse_pipeline.r
s3_method.r
closure_factory.r
vectorized_apply.r
rlang_quasiquote.r
マスター5
Ruby40
Rust40
Shell40
Swift40
TypeScript40
vectorized_apply.r
Click to focus
1
2
3
4
result <- Map(function(x, y, z) {↵
ifelse(z > 0, x * y, x / y)↵
}, x = list1, y = list2, z = list3)↵
do.call(rbind, lapply(result, function(r) c(mean = mean(r), var = var(r))))
0WPM•0%•0:00•0/174(0%)|Ln 1, Col 1
UTF-8•R