plot_books_all
plot_books_mean
plot_news_all
plot_news_mean

books_delta_mean = mean(mean(books_TTP)) / mean(mean(books_nonTTP))
news_delta_mean = mean(mean(news_TTP)) / mean(mean(news_nonTTP))

books_belowdiag_mean = nnz(mean(books_TTP ./ books_nonTTP, 2) >= 1 ) / size(books_TTP,1)

books_belowdiag_all = nnz((books_TTP ./ books_nonTTP) >= 1 ) / (size(books_TTP,1)*size(books_TTP,2))

news_belowdiag_mean = nnz(mean(news_TTP ./ news_nonTTP, 2) >= 1 ) / size(news_TTP,1)

news_belowdiag_all = nnz((news_TTP ./ news_nonTTP) >= 1 ) / (size(news_TTP,1)*size(news_TTP,2))
