20 lines
		
	
	
		
			555 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			20 lines
		
	
	
		
			555 B
		
	
	
	
		
			Factor
		
	
	
! Copyright (C) 2012 Doug Coleman.
 | 
						|
! See http://factorcode.org/license.txt for BSD license.
 | 
						|
USING: assocs kernel machine-learning.rebalancing math
 | 
						|
math.statistics math.text.english sequences tools.test
 | 
						|
math.vectors ;
 | 
						|
IN: machine-learning.rebalancing.tests
 | 
						|
 | 
						|
{ t } [
 | 
						|
    { 1 1 1 2 } [ [ number>text ] map ] [ ] bi
 | 
						|
    100,000 balance-labels nip
 | 
						|
    histogram values first2 - abs 3,000 <
 | 
						|
] unit-test
 | 
						|
 | 
						|
 | 
						|
{ t } [
 | 
						|
    { 1 1 1 2 } [ [ number>text ] map ] [ ] bi
 | 
						|
    { 1/10 9/10 } 100,000 skew-labels nip
 | 
						|
    histogram values { 10,000 90,000 } -.05 v~
 | 
						|
] unit-test
 |