Minor issue with ScoreDistribEmpiric solve
This commit is contained in:
		
							parent
							
								
									271b7d3a41
								
							
						
					
					
						commit
						18dc50fa3f
					
				@ -239,7 +239,7 @@ ScoreDistribEmpiric <- function(lambda0, lambda1, n_sample, T){
 | 
			
		||||
    min_X = min(Score)
 | 
			
		||||
    max_X = max(Score)
 | 
			
		||||
 | 
			
		||||
    P_X = table(factor(Score, levels = min_X:max_X))/sum(table(Score)).Freq
 | 
			
		||||
    P_X = table(factor(Score, levels = min_X:max_X))/sum(table(Score))
 | 
			
		||||
    df = data.frame("Score_X" = min(Score):max(Score), "P_X" = P_X)
 | 
			
		||||
    df <- df[,-2]
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user