read_toxoplasmosis_data = function(){

    fn = '../../Data/toxoplasmosis.txt'
    tx = scan(file=fn, quiet=TRUE)
    toxo = data.frame(NULL)
    while( length(tx)> 0 ){
        toxo = rbind(toxo, tx[1:3])
        tx = tx[-(1:3)]
    }
    colnames(toxo) = c('Cases', 'Number_tested', 'Rainfall')
    return(toxo)

}