Practica2

#Practica 2

x<-seq(from =1, to =100 ,by =3)[1:15]#se limita el rango hasta el 15
plot(x)

#secuencia del 1 al 100 de 7 en 7
y<-seq(from =1, to =100 ,by =7)
plot(y)

#100 aleatorios
z<-sample(100)
#media
cat(mean(x))

## 22

cat(mean(y))

## 50

#desviacion
plot(sd(z))

#graficar 
plot(y,x)

#minimo y maximo de x & y
min(x)

## [1] 1

max(x)

## [1] 43

min(y)

## [1] 1

max(y)

## [1] 99

plot(z)