PESSOA = (got$Personagens)
NOTAS = (got$Nota)

medianotas = function(tabelaNotas, tabelaPessoas, nome)
    Nota = c()
    arrayPessoas = c()

    for(i in 1:length(tabelaPessoas))
        arrayPessoas = c(arrayPessoas, PESSOA[i])
        arraySplit = c(unlist(strsplit(as.character(arrayPessoas,","))))


    return()

resposta = medianotas(got$Nota, got$Personagens, "MARIA")
print(resposta)