miércoles, 31 de diciembre de 2014

Apuntes sobre Vectores

Ejemplo de Operaciones con Vectores






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