edevries
/
mamlr
2
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

actorizer: fix to get actual number of sentence occurences of actor

Browse Source
master
Erik de Vries 6 years ago
parent 96e869fa6b
commit 4407a99774
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
R/actorizer.R
Unescape View File

@ -38,7 +38,7 @@ actorizer <- function(out, localhost = F, ids, type, prefix, postfix, identifier
token_id = list(list(as.integer(token_id))), token_id = list(list(as.integer(token_id))),
text = list(list(unique(as.character(sentence)))) text = list(list(unique(as.character(sentence))))
) )
occurences <- length(unique(ud$sentence_id)) # Number of sentences in which actor occurs occurences <- length(unique(ud$sentence_id[[1]][[1]])) # Number of sentences in which actor occurs
prominence <- occurences/sentence_count # Relative prominence of actor in article (number of occurences/total # sentences) prominence <- occurences/sentence_count # Relative prominence of actor in article (number of occurences/total # sentences)
rel_first <- 1-(ud$sentence_id[[1]][[1]][1]/sentence_count) # Relative position of first occurence at sentence level rel_first <- 1-(ud$sentence_id[[1]][[1]][1]/sentence_count) # Relative position of first occurence at sentence level

Write Preview
Loading…
Cancel
Save