Nothing
# https://github.com/WinVector/pyvtreat/blob/master/Examples/StratifiedCrossPlan/StratifiedCrossPlan.ipynb
test_project_example <- function() {
prepared_stratified <- data.frame(
'y' = c(1, 0, 0, 1, 0, 0),
'g' = c(0, 0, 0, 1, 1, 1),
'x' = c(1, 2, 3, 4, 5, 6)
)
ops <- local_td(prepared_stratified) %.>%
project(.,
sum %:=% sum(y),
mean %:=% mean(y),
size %:=% n(),
groupby='g')
res <- prepared_stratified %.>% ops
res <- as.data.frame(res)
expect = data.frame(
g = c(0, 1),
sum = c(1, 1),
mean = c(0.3333333333333333, 0.3333333333333333),
size = c(3, 3)
)
expect_equal(res, expect)
ops2 <- local_td(prepared_stratified) %.>%
project(.,
sum %:=% sum(y),
mean %:=% mean(y),
size %:=% n(),
groupby=c())
res2 <- prepared_stratified %.>% ops2
res2 <- as.data.frame(res2)
expect2 <- wrapr::build_frame(
"sum" , "mean", "size" |
2 , 0.333333333333, 6 )
expect_equal(res2, expect2)
invisible(NULL)
}
test_project_example()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.