###################################################
# histogram-datapoints-counter.praat
# Written by Kyuchul Yoon ( kyoon@ling.osu.edu )
# Given a text file containing a column of numbers,
# the script counts the number of datapoints in
# each bin, specified in the dialog box. The actual
# histogram should be plotted in Excel or etc.
###################################################

form Specify files and folders
	word numberFile_(plain_text) word.count
	word histogramCount_(to_be_created) histogram-word.count
endform

Read Strings from raw text file... 'numberFile$'
Rename... numberFileObj
numLines = Get number of strings

countBinNum1 = 0
countBinNum2 = 0
countBinNum3 = 0
countBinNum4 = 0
countBinNum5 = 0

for iLine to numLines
	select Strings numberFileObj
	lineText$ = Get string... iLine
	lineTextAsNum = 'lineText$'

	if (lineTextAsNum > 0 and lineTextAsNum <= 10)
		countBinNum1 = countBinNum1 + 1
	elsif (lineTextAsNum > 10 and lineTextAsNum <= 20)
		countBinNum2 = countBinNum2 + 1
	elsif (lineTextAsNum > 20 and lineTextAsNum <= 30)
		countBinNum3 = countBinNum3 + 1
	elsif (lineTextAsNum > 30 and lineTextAsNum <= 40)
		countBinNum4 = countBinNum4 + 1
	else
		countBinNum5 = countBinNum5 + 1
	endif
endfor

for iBin to 5
	dummy = countBinNum'iBin'
	fileappend 'histogramCount$' 'iBin''tab$''dummy''newline$'
endfor
select Strings numberFileObj
Remove
####### END OF SCRIPT #######