reviewed<-filter(dt,!is.na(Recommendation))WCGALP Group 14
Abstract review report for group 14.
report of reviews
Number of reviews per submission ID
table(table(reviewed$`Submission ID`))
1 2 3
24 56 11
Number of reviews per reviewer
table(reviewed$`Reviewer LN`)
de los Campos Dekkers Ding Guldbrandtsen Lourenco
13 11 14 26 14
Masuda Steibel
0 91
List of papers with just 1 review
cnt<-table(reviewed$`Submission ID`)
one_rev_ID<-as.numeric(names(cnt[cnt==1]))
one_rev<-filter(reviewed,`Submission ID`%in%one_rev_ID)
datatable(one_rev)