Without ‘just cells’ sample substracted

for(i in 1:ncol(dsc)) p10(dsc,i)

With ‘just cells’ sample substracted

for(i in 1:ncol(t)) p10(t,i)