Practica de Descuentos

Calcular el total a cobrar para cada pedido 5% para mas de 20 hasta 100 unidades 7% de 101 a 200 unidades 10% para mas de 200 unidades debe solicitar: precio del art y la cantidad del pedido puede mostrar los subtotales

pedido<-function(precio,cantidad){
  total<-(precio*cantidad)
  if(20<cantidad & cantidad<=100){
    descuent<-total*0.05
    cobrar<-total-descuent
    list(total=total,"descuento aplicado (5%)"=descuent,
         "total"=cobrar)
  }else{
    if(100<cantidad & cantidad<=200){
    descuent<-total*0.07
    cobrar<-total-descuent
    list(total=total,"descuento aplicado (7%)"=descuent,
         "total"=cobrar)
    }else
       if(200<cantidad){
    descuent<-total*0.1
    cobrar<-total-descuent
    list(total=total,"descuento aplicado (10%)"=descuent,
         "total"=cobrar)
    }}
  
}