I changed the code to use apply on the group lists and directly count the number of matches.
This also preserves names without fiddling and risking mistakes.
Fixes road2stat/protr#4
Maybe it would be easier if the properties where encoded as properties <- list( hydrophobicity = c( g1=c('R', ...), g2=c(...) ...), normwaalsvolume = c(...),...)?
I changed the code to use apply on the group lists and directly count the number of matches. This also preserves names without fiddling and risking mistakes.
Fixes road2stat/protr#4
Maybe it would be easier if the properties where encoded as
properties <- list( hydrophobicity = c( g1=c('R', ...), g2=c(...) ...), normwaalsvolume = c(...),...)
?