Is there another price besides customer_price & royalty price? 

=======

* ARE WE PAYING ROYALTY ON FREE / COMP''D SALES? 

* Which customers are buying an artist after having downloaded a free track

==============

Check why so many returns?  Did they complete an album or purchase? 

Browse[1]> unique(DB.raw[units < 0, list(TotalReturns=sum(units), title) , by=pid])[order(TotalReturns)]
             vendor_identifier TotalReturns                             title
 1: 7891430290627_BRRGE1300015          -51 Música Inédita (feat. Maria Gadú)
 2:                    5546678           -6             The Blower''s Daughter
 3:                    5546672           -5                      Same Mistake
 4:                    5546673           -3                   Nothing Changes
 5:                    5546670           -3                                Us
 6: 7891430296322_BR77Z1200002           -3                            Sandau
 7:                    5546675           -2                          Holocene
 8:                    5546681           -2               O Mundo É um Moinho
 9:                    5546679           -2                   Redemption Song
10:                    5546676           -2                            Sódade
11:                    5546682           -2           Try a Little Tenderness
12: 7891430296322_BR77Z1200004           -2              Máquina Registradora
13:                    5546674           -1               Time Is Running Out
14: 7891430275921_BRRGE1200461           -1                    A Seu Critério
15: 7891430275921_BRRGE1200465           -1                            Karaok
16:               BRUR21300005           -1           Com a Certeza de Quem N
17:               BRUR21300001           -1                           Essa Mo
18:               BRUR21300003           -1                        O Primeiro
19:               BRUR21300011           -1                               Ora
20:               BRUR21300008           -1                      Passa e Fica
21:               BRUR21300009           -1                          Pousando
22:               BRUR21300004           -1                  Quando Eu Morrer
23:               BRUR21300010           -1                     Solto Pelo Ar
24: 7891430296322_BR77Z1200007           -1                Calçada da Batalha
25: 7891430296322_BR77Z1200003           -1                      Eu Não Brigo
26: 7891430296322_BR77Z1200005           -1            Vamos Sair para Jantar
27:              7891430296322           -1         Vem Ser Artista Aqui Fora
             vendor_identifier TotalReturns                             title

======================

Total price is $9.00.   Why? 
DT[, list(totalBy.ocp=sum(customer_price)), by=ocp][totalBy.ocp==9][order(pid)]

======================

TODO: 

Check all calls to setdiff()   make sure  you have yoru ordering correct. 


======================


what are: 
artist_labelID
vendor_release_identifier

in the dim_rel or dim_artist table?