Funcion de descuento

valor_venta<-function(precio,cantidad){
  venta<-(precio*cantidad)
  if(cantidad<=100 & cantidad>20){
    desc_venta<-venta*0.05
    total_venta<-venta-desc_venta
    list(venta=venta,"descuento (5%)"=desc_venta,"precio venta"=total_venta)
  }else {
    if(cantidad>100 & cantidad<=200){
      desc_venta<-venta*0.07
      total_venta<-venta-desc_venta
      list(venta=venta,"descuento (7%)"=desc_venta,"precio venta"=total_venta)
    } else{
      if(cantidad>200){
        desc_venta<-venta*0.10
        total_venta<-venta-desc_venta
       list(venta=venta,"descuento (10%)"=desc_venta,"precio venta"=total_venta)
      } else{
        list("venta"=venta)
      }
    }
  }
}