Modulo 3 · Ripetere facile R

Net Promoter Score

Un’azienda di telefonia manda ai clienti la domanda standard della soddisfazione: «quanto consiglieresti il nostro servizio a un amico, da 0 a 10?». Il numero che il management vuole vedere ogni mese è il Net Promoter Score: si contano i promotori (chi ha risposto 9 o 10) e i detrattori (da 0 a 6), si fa la differenza e la si divide per il numero totale di intervistati, in percentuale. Chi ha risposto 7 o 8 è passivo: non conta né in un verso né nell’altro, ma resta nel denominatore.

Ti passano il vettore dei voti e ti chiedono l’NPS con un decimale. Va da −100 (tutti detrattori) a 100 (tutti promotori). Un mese con soli 7 e 8 dà zero: non è un errore, è la definizione.

Contali con un ciclo e due contatori, uno per i promotori e uno per i detrattori, che partono da 0 e crescono di 1 a ogni voto della loro fascia.

Input

voti vettore di numeri — un voto da 0 a 10 per ogni cliente intervistato

Output

nps numero — da −100 a 100, un decimale

Regole

I clienti con voto 9 o 10 sono promotori; quelli con voto da 0 a 6 sono detrattori; 7 e 8 sono passivi e non contano.
NPS = (promotori − detrattori) / totale intervistati × 100.
Arrotonda a un decimale.
Contali con un ciclo e due contatori, promotori e detrattori, che partono da 0 e crescono di 1 a ogni voto della loro fascia.

Esempi

voti	nps
10987610	33.3
999	100.0

Ti serve: variabili · operatori di confronto · if/else · operatori logici

voti <- c(10, 9, 8, 7, 6, 10)

promotori <- 0
detrattori <- 0
for(i in 1:length(voti)){
  if(voti[i] >= 9){
    promotori <- promotori + 1
  }else if(voti[i] <= 6){
    detrattori <- detrattori + 1
  }
}
nps <- round((promotori - detrattori) / length(voti) * 100, 1)
nps