@@ -122,7 +122,7 @@ main = do
122122 ...
123123 let year = (\ (YearMonthDay y _ _) -> y)
124124 print $ df_csv
125- |> D. derive " birth_year" (lift year (D. col @ Date " birthdate" ))
125+ |> D. derive " birth_year" (lift year (D. col @ Day " birthdate" ))
126126 |> D. derive " bmi" ((D. col @ Double " weight" ) / (D. lift2 (**) (D. col @ Double " height" ) (D. lit 2 )))
127127 |> D. select [" name" , " birth_year" , " bmi" ]
128128```
@@ -145,7 +145,7 @@ main = do
145145 let bmi :: Double -> Double -> Double
146146 bmi w h = w / h ** 2
147147 print $ df_csv
148- |> D. derive " birth_year" (lift year (D. col @ Date " birthdate" ))
148+ |> D. derive " birth_year" (lift year (D. col @ Day " birthdate" ))
149149 |> D. derive " bmi" ((D. col @ Double " weight" ) / (D. lift2 (**) (D. col @ Double " height" ) (D. lit 2 )))
150150 |> D. select [" name" , " birth_year" , " bmi" ]
151151```
@@ -290,7 +290,7 @@ We implicitly create a `Count` variable as the result of grouping by an aggregat
290290``` haskell
291291let decade d = (year d) `div` 10 * 10
292292df_csv
293- |> D. derive " decade" (lift decade (col @ date " birthdate" ))
293+ |> D. derive " decade" (lift decade (col @ Day " birthdate" ))
294294 |> D. select [" decade" ]
295295 |> D. groupByAgg D. Count [" decade" ]
296296```
@@ -322,7 +322,7 @@ print(result)
322322``` haskell
323323decade = (* 10 ) . flip div 10 . year
324324df_csv
325- |> D. derive " decade" (lift decade (col @ date " birthdate" ))
325+ |> D. derive " decade" (lift decade (col @ Day " birthdate" ))
326326 |> D. groupByAgg D. Count [" decade" ]
327327 |> D. aggregate [(" height" , D. Maximum ), (" weight" , D. Mean )]
328328 |> D. select [" decade" , " sampleSize" , " Mean_weight" , " Maximum_height" ]
0 commit comments