convFeature :: Meap.Feature -> [Double] -> Feature
convFeature f l = Feature (convDescriptor f) v
    where v = take (Meap.feature_degree f) $ drop (Meap.feature_column f) l
convFeature :: Meap.Feature -> [Double] -> Feature
convFeature f l = Feature (convDescriptor f) v
    where v = take (Meap.feature_degree f) $ drop (Meap.feature_column f) l
convFeature f l = Feature (convDescriptor f) v
    where v = take (Meap.feature_degree f) $ drop (Meap.feature_column f) l