R/opspec.R
grapes-slash-slash-grapes.Rd
Call blocks_to_rowrecs()
.
table %//% transform
data (data.frame or relop).
a rowrecs_to_blocks_spec.
blocks_to_rowrecs() result.
d <- wrapr::build_frame(
"id", "measure", "value" |
1 , "AUC" , 0.7 |
1 , "R2" , 0.4 |
2 , "AUC" , 0.8 |
2 , "R2" , 0.5 )
transform <- blocks_to_rowrecs_spec(
wrapr::qchar_frame(
"measure", "value" |
"AUC" , AUC |
"R2" , R2 ),
recordKeys = "id")
d %//% transform
#> id AUC R2
#> 1 1 0.7 0.4
#> 2 2 0.8 0.5
# identity (in structure)
d %//% transform %**% t(transform)
#> id measure value
#> 1 1 AUC 0.7
#> 2 1 R2 0.4
#> 3 2 AUC 0.8
#> 4 2 R2 0.5