1 Conceptualizaciòn basica de R

“2025-03-07” #fecha en la cual se esta publicando

output: tipo de documento que se va a publicar

Tabla de contenido solo aparece cuando colocamos el # para un titulo.

2 Crear un vector aleatorio con numero maximo

el numero 6 son la cantidad de elementos del vector.

# para numeros decimales se utiliza runif
Vector_aleatorio <- runif(6, min = 0, max = 100)
print(Vector_aleatorio)
## [1] 92.94001 37.98625 59.07268 36.96641 44.26192 57.71152
#Para numeros enteros donde replace quiere decir que se aceptan repeticiones. sample datos aleatorios ya sean numericos o categoricos

V_a <- sample(1:100,6,replace=TRUE)
print (V_a)
## [1]  5 76 93 39 51 54

#Crear Matrices- Matrix()

matrix <- matrix(1:4, nrow = 2, ncol = 2)
#nrow filas
#ncol columnas
#a:b cantidad de elementos de la matrix
print(matrix)
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

#Crear data frame

#round redondea un numero
x <- 3.66
round (x)
## [1] 4
print (round)
## function (x, digits = 0, ...)  .Primitive("round")
#set.seed(1,2,3)fijarpara que no se cambien los datos
set.seed(123)
edad<-round(runif(20, min=15, max=35))
#20 personas
# edad minima 15 y edad max= 35
print(edad)
##  [1] 21 31 23 33 34 16 26 33 26 24 34 24 29 26 17 33 20 16 22 34
edad<-round(runif(20, min=15, max=35))

#sample. int solo para numeros enteros
#sample.int(inicio,fin, size=tamaño)
edad_s<- sample.int(18,45,size=50)
print(edad_s)
##  [1] 15 10 13  7  9  9 10  7  6  2  5  8 12 13 18  1  6 15  9 15 16  6 11  8  7
## [26] 16 17 18 17  2  4 13  5 14  3  8 16 12 14  3 14  7  3 15  5  8 10 18 10 12
#para caracteres solo con sample
genero <- sample(c("M","F","O"),10,replace=TRUE)
print(genero)
##  [1] "F" "F" "F" "O" "F" "M" "F" "F" "F" "O"

#Crear un vector con 100 datos y hallar la media

edad_e <-sample(15:30,100,replace=TRUE)
print(edad_e)
##   [1] 22 28 17 28 29 22 15 21 25 21 27 29 21 24 20 28 29 30 21 25 24 19 20 30 22
##  [26] 30 19 21 25 18 26 28 26 27 17 23 21 20 24 23 21 16 30 27 17 22 18 29 21 18
##  [51] 15 22 28 28 18 23 30 22 20 25 30 18 22 17 27 18 18 26 20 15 24 25 18 25 23
##  [76] 21 22 28 19 27 16 25 27 28 20 23 22 26 30 24 18 27 27 28 19 30 21 27 15 22
mean(edad_e)
## [1] 23.13
print(mean)
## function (x, ...) 
## UseMethod("mean")
## <bytecode: 0x000001fb55d1eb58>
## <environment: namespace:base>
# para tomar cualquier vector con numeros aleatorios seria asi
vector <- runif(9)

#crear data frame aleatorio

#id=cualquier dato como por ejemplo un nombre siempre se debe tener un id
df<-data.frame(id=sample(1:100,10),edad=sample(18:65,10,replace=TRUE),
ciudad = sample(c("bogota","Medellin","Cali","b"),10, replace=TRUE))

summary(df)
##        id             edad          ciudad         
##  Min.   : 7.00   Min.   :24.00   Length:10         
##  1st Qu.:24.50   1st Qu.:28.50   Class :character  
##  Median :43.50   Median :41.00   Mode  :character  
##  Mean   :42.30   Mean   :38.20                     
##  3rd Qu.:60.25   3rd Qu.:42.75                     
##  Max.   :74.00   Max.   :60.00
#summary da un resumen las medidas de tendencia central