Baterias Siemens

Analisis de regrsión lineal baterias Siemens

datos_105 <- c(
1, 19, 0,
2, 18, 0,
3, 22, 0,
4, 25, 0,
5, 17, 0,
6, 30, 0,
7, 29, 0,
8, 32, 0,
9, 31, 0,
10, 33, 0,
11, 38, 1,
12, 36, 0,
13, 40, 1,
14, 40, 0,
15, 42, 1,
16, 45, 0,
17, 47, 1,
18, 49, 0,
19, 55, 0,
20, 58, 1,
21, 57, 1,
22, 63, 1,
23, 65, 1,
24, 65, 1,
25, 66, 1,
26, 69, 1,
27, 70, 1,
28, 71, 1,
29, 75, 1,
30, 86, 1,
31, 79, 1,
32, 88, 1,
33, 89, 0,
34, 92, 1,
35, 84, 1
)
Muestra_105 <- matrix(datos_105, ncol = 3, byrow = TRUE)
Muestra_105
##       [,1] [,2] [,3]
##  [1,]    1   19    0
##  [2,]    2   18    0
##  [3,]    3   22    0
##  [4,]    4   25    0
##  [5,]    5   17    0
##  [6,]    6   30    0
##  [7,]    7   29    0
##  [8,]    8   32    0
##  [9,]    9   31    0
## [10,]   10   33    0
## [11,]   11   38    1
## [12,]   12   36    0
## [13,]   13   40    1
## [14,]   14   40    0
## [15,]   15   42    1
## [16,]   16   45    0
## [17,]   17   47    1
## [18,]   18   49    0
## [19,]   19   55    0
## [20,]   20   58    1
## [21,]   21   57    1
## [22,]   22   63    1
## [23,]   23   65    1
## [24,]   24   65    1
## [25,]   25   66    1
## [26,]   26   69    1
## [27,]   27   70    1
## [28,]   28   71    1
## [29,]   29   75    1
## [30,]   30   86    1
## [31,]   31   79    1
## [32,]   32   88    1
## [33,]   33   89    0
## [34,]   34   92    1
## [35,]   35   84    1
colnames(Muestra_105) <- c("ID", "Valor", "Etiqueta")

Asignar nombres a las columnas

colnames(Muestra_105) <- c("ID", "Valor", "Etiqueta")
colnames(Muestra_105) <- c("Bateria", "Edad (semanas)", "Ensayo de Cortocircuito")

Historgama

Se hace histograma de la columna 2 corresponiente a la edad por semanas

hist(Muestra_105[,"Edad (semanas)"])

Densidad

Se hace diagrama de densidad para analisis

plot(density(Muestra_105))

Analsis

La curva de densidad muestra una alta concentración inicial de fallas tempranas, seguida de una disminución progresiva y una cola prolongada. Esto indica que la mayoría de las baterías Siemens tienen una vida útil media moderada, mientras unas pocas alcanzan mayor durabilidad, reflejando variabilidad en su desempeño y confiabilidad.

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.