1. Introducción

Este documento realiza cálculos estadísticos de una muestra de datos de ventas, dichos cálculos estadísticos se basan en Funciones propias del Desarrollador.

2. Carga de Datos

Carga de Datos desde un archivo xlsx que contine información de las Ventas
Instrucciones:
install.packages(“readxl”)
library(readxl)
ventas <- read_excel(“C:/Users/CEC/Documents/RStudio/ventas.xlsx”)

library(readxl)  
## Warning: package 'readxl' was built under R version 4.4.3
ventas <- read_excel("C:/Users/CEC/Documents/RStudio/ventas.xlsx")
summary(ventas$precio)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   0.050   0.500   1.000   1.398   1.200  30.000       1

3. Documentación de Funciones propias del Desarrollador

Función que calcula la Media de un vector

@param v Vector numérico de valores
@return Media

f_media <- function(v) {
s <- sum(v)
l <- length(v)
media <- s/l
return (media)
}

Función que calcula la Media Ponderada de un vector

@param v Vector numérico de valores
@param w Vector numérico de valores correspondientes a los pesos
@return Media Ponderada

f <- function(v,w) {
prod <- sum(v*w)
sw <- sum(w)
media_pond <- prod/sw
return (media_pond)
}

Función que calcula la Varianza de un vector

@param v Vector numérico de valores
@return Varianza

f_varianza <- function(v) {
media <- f_media(v)
prod <- sum((v - media)^2)
l <- length(v) - 1
varianza <- prod/l
return (varianza)
}

Función que calcula la Desviación Estándar de un vector

@param v Vector numérico de valores
@return Desviación Estándar

f_desviacion <- function(v){
de <- (f_varianza(v))^(1/2)
return(de)
}

4. Gráfico

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.