Minor issue with ScoreDistribEmpiric solve

This commit is contained in:
Paul-Corbalan 2022-04-12 18:06:30 +02:00
parent 271b7d3a41
commit 18dc50fa3f
1 changed files with 1 additions and 1 deletions

View File

@ -239,7 +239,7 @@ ScoreDistribEmpiric <- function(lambda0, lambda1, n_sample, T){
min_X = min(Score) min_X = min(Score)
max_X = max(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 = data.frame("Score_X" = min(Score):max(Score), "P_X" = P_X)
df <- df[,-2] df <- df[,-2]