5 lines
241 B
Text
5 lines
241 B
Text
|
data = Import["Readings.txt","TSV"]; Print["duplicated dates: "];
|
||
|
|
Select[Tally@data[[;;,1]], #[[2]]>1&][[;;,1]]//Column
|
||
|
|
Print["number of good records: ", Count[(Times@@#[[3;;All;;2]])& /@ data, 1],
|
||
|
|
" (out of a total of ", Length[data], ")"]
|