tidyverse_model.r
R•マスター
Explorer
C40
C++40
C#40
Dart40
Go40
Java40
JavaScript40
Kotlin40
Objective-C40
Perl40
PHP40
Python40
R
初級10
中級10
上級10
エキスパート5
マスター5
tidyverse_model.r
s4_method.r
shiny_app.r
parallel.r
rlang_quo.r
Ruby40
Rust40
Shell40
Swift40
TypeScript40
tidyverse_model.r
Click to focus
1
2
3
4
5
6
7
8
9
10
df %>%↵
group_by(group) %>%↵
nest() %>%↵
mutate(↵
model = map(data, ~lm(y ~ x, data = .x)),↵
pred = map2(model, data, predict),↵
r2 = map_dbl(model, ~summary(.x)$r.squared)↵
) %>%↵
unnest(c(data, pred)) %>%↵
filter(r2 > 0.5)
0WPM•0%•0:00•0/230(0%)|Ln 1, Col 1
UTF-8•R