El script:
Precio <- c(15,27,19,11,13,10,17) names(Precio)<-c("Lun","Mar","Mie","Jue","Vie","Sab","Dom") Aumento <- c(2,1,1,4,3,7,8) PrecioAumento <- Precio + Aumento TotalAumento <- sum(Aumento) #Primeros 2 dias Precio[1:2] #Ultimo dia Precio [length(Precio)] Precio[c("Sab","Dom")] #Dias con precio menor que 15 Precio[Precio<15] #Dia con maryor precio Precio[Precio==max(Precio)] #Ordena Decreciente Precio[order(Precio, decreasing=TRUE)] match(Precio["Dom"],Precio) # Todos los dias excepto Sab y Dom Precio[-match(Precio[c("Sab","Dom")],Precio)]
No hay comentarios:
Publicar un comentario