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…
Reference in New Issue