tests/testthat/test_tcol.R
In oliver-wyman-actuarial/easyR: Helpful Functions from Oliver Wyman Actuarial Consulting
test_that( "works as expected", {
x = dplyr::summarize_at( dplyr::group_by( iris, Species ), dplyr::vars( Sepal.Length, Sepal.Width ), list(sum) )
tx = tcol( x, 'Species' )
expect_equal( tx$col, c( 'Sepal.Length', 'Sepal.Width' ) )
expect_equal( tx$setosa, c( 250.3, 171.4 ) )
})
oliver-wyman-actuarial/easyR documentation built on Jan. 27, 2024, 4:35 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that( "works as expected", {
x = dplyr::summarize_at( dplyr::group_by( iris, Species ), dplyr::vars( Sepal.Length, Sepal.Width ), list(sum) )
tx = tcol( x, 'Species' )
expect_equal( tx$col, c( 'Sepal.Length', 'Sepal.Width' ) )
expect_equal( tx$setosa, c( 250.3, 171.4 ) )
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.