Trabajo Banco de Datos Grupo AN
Ana López, María Guaita, Nicolás Martínez
13/05/2024
WII MARIO KART AUCTIONS FROM EBAY
1. ANÁLISIS DESCRIPTIVO
1.1 Subastas con una duración mayor de 7 (en días)
load("/Users/nicolasmc/Downloads/mariokart.rda")
subastaMayor7 <- subset(mariokart, duration > 7)
print(subastaMayor7)## id duration n_bids cond start_pr ship_pr total_pr ship_sp
## 60 180413665867 10 3 used 30.00 0 31.00 priority
## 81 320429166256 10 15 used 9.99 6 43.36 parcel
## seller_rate stock_photo wheels
## 60 19 no 0
## 81 2399 yes 1
## title
## 60 Mario Kart Wii Good Condition (No Wii Wheel)
## 81 Mario Kart Wii (Nintendo Wii) Complete, Mint!!1.2 Mostrar las 10 subastas con mayor total_pr
load("/Users/nicolasmc/Downloads/mariokart.rda")
top_10_subasta <- head(mariokart[order(-mariokart$total_pr),],10)
print((top_10_subasta))## id duration n_bids cond start_pr ship_pr total_pr ship_sp
## 20 110439174663 7 22 used 1.00 25.51 326.51 parcel
## 65 130335427560 3 27 used 6.95 4.00 118.50 parcel
## 115 350261016626 1 3 new 69.95 0.00 75.00 standard
## 5 170392227765 1 20 new 0.01 0.00 71.00 media
## 103 400076879560 1 1 new 54.99 11.45 66.44 upsGround
## 84 160366174782 7 2 used 55.00 9.02 65.02 parcel
## 23 350261958546 1 1 new 64.95 0.00 64.95 standard
## 75 400077480990 1 1 new 64.95 0.00 64.95 standard
## 131 390103890073 1 1 new 64.95 0.00 64.95 standard
## 69 360193279993 7 12 used 0.99 4.00 64.50 standard
## seller_rate stock_photo wheels
## 20 115 no 2
## 65 41 no 0
## 115 118345 yes 3
## 5 820 yes 2
## 103 118345 yes 2
## 84 25 no 4
## 23 118345 yes 2
## 75 118345 yes 2
## 131 118345 yes 2
## 69 991 no 3
## title
## 20 Nintedo Wii Console Bundle Guitar Hero 5 Mario Kart
## 65 10 Nintendo Wii Games - MarioKart Wii, SpiderMan 3, etc
## 115 NEW MARIO KART WITH WII WHEEL+2 GT PRO WHITE WII WHEEL
## 5 BRAND NEW NINTENDO 1 WII MARIO KART WITH 2 WHEELS +GAME
## 103 MARIO KART WITH WII WHEEL+1 GT PRO PINK WII WHEEL BUNDL
## 84 Mario Kart Wii (Wii) + 4 nerf wheels
## 23 MARIO KART WITH WII OFFICIAL WHEEL+1 COBALT BLUE WHEEL
## 75 NEW MARIO KART GAME+OFFICIAL WHITE+CRIMSON RED WHEELS!!
## 131 MARIO KART WITH WII OFFICIAL WHEEL+1 COBALT BLUE WHEEL
## 69 Wii MARIO KART GAME PLUS 3 STEERING WHEELS! Wii(#OTRA FORMA#)
load("/Users/nicolasmc/Downloads/mariokart.rda")
cuentaSub <- table(mariokart$total_pr)
cuentaSub <- data.frame(total = names(cuentaSub), cuenta = as.integer(cuentaSub))
cuentaSub <- cuentaSub[order(-cuentaSub$cuenta),]
top10_subastas <- head(cuentaSub, 10)
pie(top10_subastas$cuenta, main = "Top 10 subastas con mayor total_pr", labels = top10_subastas$total)
1.3 Ordenar por duración y wheels (ruedas)
load("/Users/nicolasmc/Downloads/mariokart.rda")
barplot(mariokart$duration, names.arg = mariokart$wheels, xlab = "Nombre de la variable", ylab = "Número de la variable", main = "Gráfico de barras", col = "lightpink", border ="green")
2. CONTRASTE DE HIPÓTESIS
Vamos a comparar la cantidad del número de ofertas (n_bids) de las que se guardan registro en los 10 primeros datos de la subasta ordenados por ID que empieza en “110” con la cantidad del número de ofertas de las que se guardan registro en los 10 últimos datos de la subasta ordenados por ID que empieza en “110”. Con esta comparación estudiaremos si hay alguna diferencia significativa entre las cantidades del número de ofertas de ambas muestras.
Se tiene en cuenta que la cantidad del número de ofertas no sigue una distribución normal. Las muestras son de 10 subastas. Debido a estas condiciones, y que se trata de dos muestras emparejadas, utilizamos un test no paramétrico, concretamente el test de los signos.
A continuación vamos a representar la cantidad del numero de ofertas en una tabla:
load("/Users/nicolasmc/Downloads/mariokart.rda")
datos_con_id_110 <- subset(mariokart, grepl("^110", id))
print(datos_con_id_110)## id duration n_bids cond start_pr ship_pr total_pr ship_sp
## 20 110439174663 7 22 used 1.00 25.51 326.51 parcel
## 24 110441494985 1 18 new 1.00 2.99 50.50 upsGround
## 25 110443013258 3 12 used 0.01 4.00 46.50 firstClass
## 37 110441755664 3 16 used 0.99 4.00 47.00 firstClass
## 44 110443667250 1 29 new 1.00 2.99 51.99 upsGround
## 45 110443342909 1 17 new 1.00 2.99 55.99 upsGround
## 51 110442981432 1 10 new 1.00 2.99 59.88 upsGround
## 66 110439935999 7 12 used 30.00 0.00 61.76 standard
## 67 110441494977 1 13 new 1.00 2.99 53.99 upsGround
## 71 110442400658 3 9 new 25.00 4.00 47.00 ups3Day
## 76 110443314932 1 13 used 0.99 8.02 49.00 parcel
## 82 110442967284 1 8 new 1.00 2.99 54.99 upsGround
## 85 110439483831 7 14 used 10.00 3.75 45.75 upsGround
## 95 110443640168 1 16 used 0.01 0.00 31.06 standard
## 97 110441486551 3 23 new 0.99 4.00 40.10 standard
## 98 110443692422 1 20 new 1.00 2.99 52.59 upsGround
## 101 110442288138 5 11 used 19.99 4.00 51.00 priority
## 114 110441494999 1 25 new 1.00 2.99 57.50 upsGround
## 123 110443653510 1 17 new 1.00 2.99 56.00 upsGround
## 139 110441497272 1 20 used 0.01 0.00 39.51 standard
## 143 110443320905 1 13 new 1.00 2.99 54.51 upsGround
## seller_rate stock_photo wheels
## 20 115 no 2
## 24 4858 yes 2
## 25 172 yes 1
## 37 1270 no 0
## 44 4858 yes 2
## 45 4858 yes 2
## 51 4858 yes 2
## 66 27 yes 2
## 67 4858 yes 2
## 71 627 yes 1
## 76 350 no 2
## 82 4858 yes 2
## 85 0 yes 1
## 95 7284 yes 0
## 97 270144 yes 0
## 98 4858 yes 2
## 101 36 no 2
## 114 4858 yes 2
## 123 4858 yes 2
## 139 7284 yes 0
## 143 4858 yes 2
## title
## 20 Nintedo Wii Console Bundle Guitar Hero 5 Mario Kart
## 24 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 25 Mario Kart Wii (Wii) Includes Steering Wheel!
## 37 Mario Kart Wii (Wii) COMPLETE
## 44 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 45 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 51 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 66 Mario Kart Wii (Wii) game and 2 wheels!
## 67 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 71 Mario Kart Wii with Wii Wheel for Wii (New)
## 76 NINTENDO Wii Mario Kart 2 wheels 1 reg & 1 sport NR E
## 82 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 85 Nintendo Wii MarioKart and Steering Wheel
## 95 Mario Kart Wii (Wii) Nintendo Wii game *--WOW --AWESOME
## 97 Mario Kart Wii (GAME ONLY/NO WHEEL) - Nintendo Wii Game
## 98 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 101 NINTENDO WII MARIO KART GAME DISK WITH TWO (2) WHEELS
## 114 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 123 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELS
## 139 Mario Kart Wii (Wii) Nintendo Wii game *--WOW --AWESOME
## 143 BRAND NEW NINTENDO MARIO KART WITH 2 WHEELSlibrary(knitr)
data<- data.frame(
Id = c(1,2,3,4,5,6,7,8,9,10),
PrimerasOfertas = c(22,18,12,16,29,17,10,12,13,9),
UltimasOfertas = c(8,14,16,23,20,11,25,17,20,13)
)
tabla <- kable(data, caption = "Numero de ofertas segun el id")
tabla| Id | PrimerasOfertas | UltimasOfertas |
|---|---|---|
| 1 | 22 | 8 |
| 2 | 18 | 14 |
| 3 | 12 | 16 |
| 4 | 16 | 23 |
| 5 | 29 | 20 |
| 6 | 17 | 11 |
| 7 | 10 | 25 |
| 8 | 12 | 17 |
| 9 | 13 | 20 |
| 10 | 9 | 13 |
Las hipótesis que se plantean son las siguientes: Hipótesis nula (H0): La mediana de las diferencias es igual a 0. Hipótesis alternativa (H1): La mediana de las diferencia es diferente a 0. Utilizamos un nivel de significación con valor de 0.05. (α = 0.05) Calculamos el valor del estadístico, para ellos comprobamos cuantos positivos y cuantos negativos hay, y nos quedamos con el valor máximo.
load("/Users/nicolasmc/Downloads/mariokart.rda")
PrimerasOfertas = c(22,18,12,16,29,17,10,12,13,9)
UltimasOfertas = c(8,14,16,23,20,11,25,17,20,13)
Positivos <- sum((PrimerasOfertas-UltimasOfertas)>0)
Negativos <- sum((PrimerasOfertas-UltimasOfertas)<0)
Positivos## [1] 4Negativos## [1] 6max(Positivos,Negativos)## [1] 6Las funciones “sum” nos indican que hay 4 positivos y 6 negativos, y la función “max” nos indica que el máximo es 6. Ahora calculamos el umbral para compararlo con el del valor estadístico y así poder tomar una decisión.
qbinom(1-(0.05/2),10,0.5)## [1] 8La función “qbinom” nos devuelve 8, que sería el valor del umbral.
El valor del estadístico no es mayor que el valor del umbral, por lo tanto no se rechaza la hipótesis nula (H0). No se aprecia una diferencia significativa entre la cantidad del numero de oferta en los 10 primeros id y la cantidad del numero de ofertas en los últimos 10 id.