ESCUELA SUPERIOR POLITÉCNICA DEL LITORAL

Año: 2022 Periodo: Primero

Materia: Estadística

Práctica: Variable aleatoria Uniforme Continua

Fecha: --------- Duración: 30 minutos

Variable Aleatoria Uniforme

Continua
Descripción de la variable
Una variable aleatoria continua se denominada Uniforme con parámetros A y B cuando y solo cuando su
densidad f se define como:
f(x)=1/(B-A) con soporte S={ X pertenece a R | A< X < B }
La forma de expresarla de manera sintetizada es: X~ U(A,B)

El valor esperado o media poblacional es: E(X)=(B+A)/2

La varianza es: sigma^2= (B-A)^2/12

Práctica
Esta práctica consiste en generar números con distribución uniforme con parámetros dados, encontrar la
media, varianza y desviación estándar y la representación gráfica de f(x) y F(X). También, encontrar
probabilidades de un valor X, probabilidades acumuladas y quantiles.

Tema 1
Generar 10 valores aleatorios con distribución uniforme (0,1). Además, encontrar:
-f(0.20)
-P(X<=0.20)
-P(X<=q)=0.95
-Gráfico de densidad de f
-Gráfico de distribución acumulada F

Comandos:
runif(n, min=A, max=B) #Generador de números aleatorios con distribución uniforme (A, B)
dunif(x, min=A, max=B) #Funcion de densidad de probabilidad, f(x)
punif(q, min=A, max=B) #Funcion de distribución acumulada hasta q, F(x)
qunif(p, min=A, max=B) #Funcion de cuantiles
plot(x, dunif(x, min=A, max=B)) #Grafica los valores de x y su respectiva densidad de probabilidad
curve(punif(x,min=A,max=B)) #Grafica la distribución acumulada de la distribución U (A,B)
Solución

x<-runif(10) #Generación de 10 números aleatorios con distribución uniforme entre 0 y 1. Se asigna a un

vector x
x

## [1] 0.4049936 0.9282103 0.3381338 0.7681047 0.4829557 0.2432625 0.4689272

## [8] 0.8516653 0.5562364 0.6160157

dunif(0.2,min=0,max=1)#Función de la densidad uniforme evaluada en 0.2

## [1] 1

punif(0.2,min=0, max=1)# Probabilidad acumulada hasta 0.2

## [1] 0.2

qunif(0.95,min=0,max = 1) #Percentil 95 de la distribución uniforme

## [1] 0.95

plot(x,dunif(x, min=0, max=1),main = "Densidad de f de U(0,1)",type = "l")

curve(punif(x,min=0,max=1),from= 0, to=3,main="Distribución acumulada F de U(0,1)")

Tema 2
Generar 12 valores aleatorios con distribución uniforme entre (-5,3). Además, encontrar:
-f(1.5)
-f(3.5)
-P(X<=1.5)
-P(X<=q) = 0.95
-Gráfico de densidad de f
-Gráfico de distribución acumulada F

y<-runif(12,min=-5,max=3) #Generación de 12 números aleatorios con dist. uniforme entre -5 y 3

y

## [1] 1.7230805 1.8067800 2.0653669 -1.1407167 -0.4086045 2.7070076

## [7] -3.0762237 -2.7805165 1.8331103 0.2023431 -2.3217686 -3.2616972

dunif(1.5,min=-5,max=3) #Función de la densidad uniforme (-5,3) evaluada en 1.5

## [1] 0.125

dunif(3.5, min=-5,max=3) #Función de la densidad uniforme (-5,3) evaluada en 3.5

## [1] 0

punif(1.5,min=-5, max=3)# Probabilidad acumulada hasta 1.5 de U(-5,3)

## [1] 0.8125
qunif(0.95,min=-5,max = 3) #Percentil 95 de la distribución uniforme (-5,3)

## [1] 2.6

plot(y,dunif(y, min=-5, max=3),main = "Densidad de f de U(-5,3)",type = "l")

curve(punif(x,min=-5,max=3),from= -6, to=6,main="Distribución acumulada F de U(-5,3)")

Tema 3
Generar 20 números aleatorios con distribución uniforme entre (-1,2) y encontrar:
-f(-0.5)
-f(-2)
-P(X<=3.5)
-P(X<=q)=0.75
-Gráfico de densidad de f
-Gráfico de distribución acumulada F

#minimo=-1 maximo=2
> x<-runif(20, min=-1, max=2)
> x
[1] 1.01484495 -0.44021977 0.49624633 -0.95426204 1.58096810
0.26901248 0.78103988 1.51909069 -0.49748622
[10] 1.65289930 1.59014040 0.93807427 0.78643088 -0.04318752
1.83442149 0.23282457 0.47778708 1.10928779
[19] 0.77392024 0.88996307
> #-f(-0.5)
> dunif(-0.5,min=-1,max=2)
[1] 0.3333333
> #f-(-2)
> dunif(-2,min=-1,max=2)
[1] 0
> #-Gráfico de densidad de f
> plot(x,dunif(x, min=-1, max=2),main = "Densidad de f de U(-1,2)",type
= "l")
> #-Gráfico de distribución acumulada F
> curve(punif(x,min=-1,max=2),from= -5, to=5,main="Distribución
acumulada F de U(-1,2)")
Tema 4
A partir de la distribución uniforme utilizada en los temas 1 y 2, generar 200 números aleatorios y
encontrar la media, varianza y desviación estándar para:
-x ~ U(0,1)
-x ~ U(-5,3)

Comandos
mean(datos) #Función para calcular la media
var(datos) #Función para calcular la varianza
sd(datos) #Función para calcular la desviación estándar

Para 200 números con distribución uniforme (0,1)

x<-runif(200) #Generación de 200 números aleatorios con distribución uniforme entre 0 y 1

mean(x)

## [1] 0.4888516 0.4809728

var(x)

## [1] 0.08591364

sd(x)

## [1] 0.2931103

Para 200 números con distribución uniforme (-5,3)

y<-runif(200,min=-5,max=3) #Generación de 200 números aleatorios con dist. uniforme entre -5 y 3

mean(y)

## [1] -1.078353

var(y)

## [1] 5.328014

sd(y)

## [1] 2.308249
SECCIÓN DE TAREA

Tema 5
A partir de la distribución uniforme utilizada en el tema 3, generar 1000 números aleatorios y encontrar
la media y varianza para:

-x ~ U(-1,2)

#-x ~ U(-1,2)
> y<-runif(1000, min=-1, max=2)
> y
[1] 0.0223415324 -0.2697131941 1.2878577828 1.1434250211 -0.3609571636 1.8117104680 0.4393900202
[8] 0.2186685412 1.5037876240 0.2391952493 0.7258716437 -0.0815124628 0.9624304131 -0.9818819345
[15] 0.3506373311 1.2748678215 1.7015149449 1.5807439906 -0.2873563606 0.1482866614 -0.5811498808
[22] 1.3403244740 0.8349965247 -0.9050918487 1.7625984275 -0.7511697570 -0.0771635536 -0.0935302435
[29] -0.1604677597 0.7508111333 -0.8052061244 -0.3434750128 1.3940784908 -0.5675228508 1.2374296291
[36] 1.0613943585 0.4302505446 1.6115947894 0.9008962538 -0.9134427828 -0.3601758284 0.7770883690
[43] 0.9152272267 1.2865549116 1.6672703736 -0.4112172581 1.5234487916 -0.8950583257 -0.7998909152
[50] -0.3125743472 -0.9837305541 1.5542511032 1.8526141290 1.6693475768 1.4575222782 1.1372978219
[57] 1.3017562621 0.9698762610 -0.1006704515 0.0102561384 0.1589574863 -0.4704220579 -0.8516445565
[64] 1.0746872663 -0.5072315957 -0.4357591304 -0.5250660246 0.5936326834 1.6903901868 1.2894780089
[71] 0.5990273224 0.9058085310 0.6481854704 0.3863104240 -0.2609154892 1.9202275765 -0.8194139686
[78] 0.2241470830 1.0086012767 -0.3462225155 1.9195638185 -0.5348697451 -0.8517194844 0.2902204557
[85] 1.3063313207 0.7620265773 1.1974937127 0.9574292388 1.3175988826 0.9571118671 0.1250050892
[92] 0.2585032524 0.4839548168 1.3172107614 1.4059485111 0.1980092439 0.5886726035 0.7043294653
[99] -0.6212773942 0.0992445832 -0.8725660886 -0.1466846517 -0.0178685477 0.9580349012 -0.9034888530
[106] 1.5206260572 1.0872965299 1.1051905912 -0.7094848182 1.0354575342 0.6333033552 1.4512507692
[113] 1.1437569396 1.6214283034 1.4652078764 0.0483919950 -0.6948155432 -0.0286867202 1.9461562529
[120] -0.2932864733 1.6135930379 0.7679375226 -0.9688416119 0.9888201291 0.4969497737 0.4947564602
[127] 1.4475922619 1.5053011065 -0.5719924916 0.0514904067 0.7958965551 -0.4749950182 1.3345236445
[134] -0.9947284325 1.9895747188 1.7822168320 0.0385599528 -0.7382455873 0.8880933067 -0.9951264402
[141] 1.1541054125 1.7115403046 0.7782241916 -0.4660885574 1.3434895002 1.4773653296 1.5226060464
[148] -0.2508890629 -0.2768620187 0.3507513718 -0.7050006830 1.3843753398 -0.3950450018 0.4481470219
[155] 1.3716698177 1.2109449860 0.3675831498 -0.4225891985 0.3932392607 1.5042977522 1.8752816282
[162] -0.9089618886 1.9175677255 1.8021316438 0.2986010052 1.6110654799 -0.4080820910 1.2211401497
[169] 1.0884966159 -0.5157211993 1.7457570480 1.3915300556 -0.6748561789 1.0544119657 -0.0497509660
[176] 1.7229688012 1.1853194523 1.3959673799 0.3483091416 -0.4085131311 -0.3385573628 1.2011560427
[183] -0.2220824461 -0.7866280824 1.0571582096 0.9028029523 -0.0745286716 0.6194047795 1.9910497116
[190] 0.3714436484 1.0591799868 0.6738635655 -0.1441945951 0.8831361618 0.3740137250 0.2224744540
[197] 1.3226796954 1.9166044088 1.8918712391 -0.9134515852 1.4228185609 1.0175651431 0.4774419845
[204] -0.1732264741 0.4388906034 1.9106264194 0.1126709217 0.8167516298 0.7313093804 0.0429515936
[211] 0.0103538958 1.3971040114 -0.3436228151 0.6680416947 -0.7817467861 0.8808350221 1.3587519394
[218] -0.2602800920 1.1457778220 -0.4707267017 -0.6492766081 0.4582514551 1.2825936570 0.2256824311
[225] 0.7605849297 1.0839393793 -0.8881310557 1.5440473263 0.3043781098 -0.9898180210 -0.9398334110
[232] 0.9566083914 -0.8980402926 -0.1439545625 -0.2634824407 1.9317130763 1.6210441301 -0.0034710022
[239] 0.4076842736 -0.1010723442 -0.2735240886 -0.0437399449 -0.0110053860 -0.6584360264 1.7483021354
[246] 1.5475838322 1.3997134145 1.3203670313 1.9181571724 0.2041531685 0.1324069914 1.3373495173
[253] -0.9393288987 -0.4359951131 -0.5544429272 -0.0158963669 0.6472296345 1.0723997345 -0.9695642297
[260] -0.4571368056 0.7826194374 0.1341867188 -0.3359809006 1.7154290564 1.7449433077 -0.0244669167
[267] 0.0496736683 0.7749720237 -0.3516197486 1.8333518163 -0.4394289979 -0.9256204714 1.1028291674
[274] 0.6963158189 0.9947539466 -0.1130754692 1.0581352916 -0.0305776265 -0.9585658896 1.6894367433
[281] 1.1605713698 -0.5562477885 -0.4585081583 1.3617378359 -0.1480285607 1.9059837509 1.2163122252
[288] 1.2423233006 1.6759490240 -0.1377840205 1.6113147438 1.2620369396 1.1648069187 0.3164561472
[295] 1.1279694538 -0.5139024751 0.4037472461 0.2994508652 1.4820070467 0.4027048217 0.4540644772
[302] 0.0773015597 0.7222311758 0.7982070867 1.3982243023 -0.8368788555 -0.4959812670 1.9901492228
[309] -0.9662169565 1.0133490018 0.1256164513 0.0067239464 0.6602045628 -0.6387129920 1.2620187055
[316] 1.4363932332 0.6236816428 0.3485990800 0.5560244110 0.0350386580 -0.3857768318 -0.3183848404
[323] 1.2285780062 0.7970514004 -0.9034908325 1.8041560787 0.7966540493 1.0521762830 0.1276243075
[330] 1.8759374716 -0.4029492042 -0.0433425952 1.5206635452 0.2015201431 1.0964987127 -0.6724301816
[337] 0.1596481984 -0.3095339830 -0.1830362100 -0.1716941581 0.9123822851 0.6742181054 1.7595625860
[344] 1.8606316030 1.3984893835 -0.5983282728 0.0397453676 0.4036439734 -0.8896689296 0.9417723536
[351] -0.9735200745 -0.7839386363 -0.0013642563 0.3290019599 1.9517014490 1.4764142553 -0.1339007525
[358] 1.8539808772 0.8497802238 1.6330719048 0.6749873329 0.8329155098 -0.3986264730 -0.3187930768
[365] 0.7563920266 -0.7006112367 -0.7652128444 1.1014037179 -0.5652171688 0.2438138393 1.8060572124
[372] -0.1833315925 1.9822820006 0.1029197655 -0.0827830790 -0.6600393022 0.1544486370 1.4131989775
[379] 0.5726389845 1.4777524723 0.3090340481 1.3595384720 1.2008410718 -0.9789360454 -0.1972679894
[386] -0.1396191244 -0.9348051716 1.9626521596 0.7631379757 0.8007707421 0.9280898243 0.8816740639
[393] 0.0771389208 -0.9064381423 1.6113281199 0.7365370225 1.3433268256 1.5163872924 -0.1000596504
[400] -0.6986714213 1.3953816413 0.1065036808 0.6962171982 0.1327737200 1.8652846587 0.3261470543
[407] 0.3644830498 -0.4765305389 0.8139791247 -0.6971146134 -0.7096844185 1.6618317806 -0.7255325138
[414] -0.1249675862 -0.0273918719 -0.4732478908 -0.2184277344 1.6586454483 0.2062599640 0.8321082864
[421] -0.3784347442 -0.1263188880 -0.9922184465 -0.3885865693 1.6582986652 1.7800066073 1.0963907964
[428] 0.0964018279 0.9622886870 -0.1412844835 -0.2754988202 -0.8188476195 0.5928886344 1.8218602808
[435] 0.2911647330 1.1765251127 0.4763353805 1.5640241278 0.1251812321 0.5698869452 1.5521331870
[442] 0.7201208773 -0.1478278239 0.0781865637 -0.0254762676 1.8132421749 -0.2743626344 1.9592860544
[449] 0.4760264731 0.2172432230 1.3135955781 1.5184248667 -0.4572529725 -0.7843170709 -0.6801413915
[456] 0.3259520493 1.6112573752 0.1710244869 1.2970715472 1.5331716589 0.9495171085 -0.1676903053
[463] 1.0846243289 -0.8394491710 1.9230092710 1.4947039564 -0.6680085461 -0.9173789176 0.1286409828
[470] 0.3016206494 1.3048775466 -0.0995124001 -0.7617120747 -0.1399690059 0.3945206741 1.6481819721
[477] 1.6597922840 1.9182221335 -0.6168978373 -0.5920164217 -0.9391273558 -0.2731654109 -0.1817004874
[484] 1.3486820369 1.5950721465 0.0258891890 1.8737828908 -0.4092783772 0.9755096340 0.1199351037
[491] -0.1617599223 0.3115582443 0.5727061830 1.8276211922 0.0194109592 -0.5045104010 -0.8984105184
[498] -0.6551139520 1.9286638307 -0.7605285654 -0.7644810204 -0.0198041617 0.0097868014 0.9004109772
[505] 1.2995384664 1.9959261667 -0.6759803940 -0.9387764900 1.3818665901 1.1318786631 -0.9955761970
[512] 1.5427560040 0.3857799158 1.1112478671 1.0264533984 -0.2609604888 -0.2397670869 -0.8738245287
[519] 0.8223136365 1.4523745659 1.8209710733 1.2393100057 1.3090415427 -0.6526100673 0.0911903642
[526] 1.0883717269 -0.1943292473 -0.1550029789 0.0426397233 1.1654496773 -0.9870905580 0.0701121443
[533] 1.0175074434 1.8977089084 1.5221039962 0.1484872005 -0.1998175262 -0.6117733261 1.2046268848
[540] 0.5004625414 1.9088982937 -0.5039876022 -0.3513617481 -0.3856869519 0.1424787967 0.0033921078
[547] -0.8667834359 -0.0793875854 -0.1296491488 1.3480951388 0.9406358465 0.6647788363 -0.8715982127
[554] 1.8936637125 0.4416672569 -0.0154060647 -0.6070219709 0.9846122593 -0.9120698893 1.4141799200
[561] 0.4521135530 -0.1408468175 -0.2984836590 -0.9665770193 -0.0435467211 0.5403617772 1.7056672398
[568] -0.0833809511 1.4379918906 -0.9724604993 0.8713905793 -0.4925992528 1.0620194173 1.4634839431
[575] 1.3213205335 0.5408021302 0.5904199209 0.0665843661 -0.8780040354 -0.1727985982 0.0484043045
[582] 0.2910973390 -0.5162265764 1.7867794833 -0.4141466809 1.7976751185 0.6916672399 1.9083001555
[589] 1.3236851089 -0.1096468272 0.5675155371 0.5305095562 1.1203445455 0.1411558480 -0.6011729084
[596] 1.8633829411 1.1061866630 0.9348020586 -0.8421402313 0.4517029354 0.7486194388 -0.3691148816
[603] 0.6488569740 0.7875823546 1.3487589722 0.1319636446 -0.4115144350 1.5206416335 0.6286644901
[610] -0.7459493366 -0.6675530567 -0.1166472307 -0.4908353176 -0.0776326677 1.5601231810 1.2573446950
[617] -0.2645515888 1.0619005430 0.6951121783 1.8201762636 0.9858722640 -0.8506447247 1.1093859181
[624] 1.9012997772 0.4192542818 0.4851677453 0.6107006012 -0.8838921101 0.3315507241 1.2416466693
[631] 1.1789361881 1.7873661802 0.4504027520 -0.1531912438 1.8707946816 0.5894301808 -0.9020024908
[638] 1.2512275591 1.4021683685 1.8064089667 1.0799079284 0.9000154037 -0.9162151685 0.0734054842
[645] -0.6138056219 -0.8658127151 1.4897087074 0.3865413775 -0.3988754330 0.3641373110 0.9847654100
[652] -0.2130961728 0.1093192725 -0.5753870786 1.1970383022 1.8282771746 1.6619799642 0.4510810534
[659] 1.8994750683 0.0956039573 0.0184978780 1.6619968943 -0.5331857363 -0.5387475970 0.7194884997
[666] 0.4095253348 1.4233352968 1.9823866263 -0.6276459594 -0.8445284241 0.0475669929 1.4929324936
[673] 0.0874395184 -0.7945005272 0.3794230931 0.1915432112 -0.0760086111 -0.5574909868 -0.8832643195
[680] 1.9119170927 -0.5672738636 -0.2873353423 1.4160018691 -0.1979087167 0.9059272858 1.3479212464
[687] -0.8338834622 -0.9072826791 0.7157771271 -0.9038907813 0.6682187840 -0.2326207762 -0.3734548488
[694] 0.6155385869 0.3244965193 0.0758281322 -0.4760099410 1.6271630968 0.9815661961 1.4742412951
[701] -0.6513336026 1.0569907581 0.1073670657 1.2192204725 1.7207318444 1.6028548693 -0.0882643282
[708] 1.4847614309 0.4285116992 1.6300863330 0.7677393814 0.3417005942 -0.2425146454 1.4078225056
[715] 1.6128992448 0.0822245050 1.4960779250 -0.4283910247 0.7830454721 -0.4684849679 1.2442345191
[722] 0.6120069404 0.5813734103 -0.5691761142 0.2058299815 -0.6036817839 1.0694972365 1.5179428654
[729] 1.1946966394 -0.6929406659 0.6482338235 -0.4555376775 -0.1490491622 0.7600742294 1.3891204617
[736] 1.0883116538 1.1635616410 -0.9988867603 1.8001590997 1.7103737092 1.5720856690 -0.3328953914
[743] -0.9924490717 -0.2327776176 1.2037667381 0.6498892019 -0.0494154943 1.7184003182 1.5574956010
[750] -0.4938118760 -0.5888623919 -0.5664844273 0.3578098724 0.4254099417 0.1510528522 0.1257940868
[757] 1.4091437953 1.0344454537 -0.0952954981 1.1333722631 -0.2716082830 0.9146104436 1.8455146381
[764] 0.8649463374 -0.9433700636 0.0273276779 -0.1876742649 1.1443981712 -0.1450677987 0.5614346040
[771] 1.2831397667 0.3604191358 -0.3069350321 0.9058670821 0.0755138835 -0.6891217025 -0.6167613107
[778] -0.8995192284 -0.3016074456 -0.0305178782 -0.6165116061 0.8956532909 0.7696234914 1.3365948701
[785] 1.5282071987 0.4604854132 -0.4539323600 1.5389769119 0.9496684116 1.6533134263 -0.9651928109
[792] 0.5078869280 1.7686157308 0.3481230347 1.9825626609 0.8312735523 -0.7330957523 0.5553970779
[799] 1.5307917600 -0.9211327047 0.8526849786 0.2301729191 0.1187192332 1.1858929589 1.9298472807
[806] 1.8714040969 0.8772010752 -0.9807416764 -0.8718866236 0.5906440222 1.4827472609 0.2552039998
[813] -0.0579562066 1.3580621954 1.6051854058 -0.7581654701 0.6277591803 -0.8797564630 0.9171135111
[820] 1.0208983431 0.3835945888 -0.5138017680 1.5050268248 -0.5239647795 -0.9556404406 1.1802503064
[827] 1.0734417986 -0.2366842970 1.2374474141 -0.0110073062 1.4285312491 0.0012840738 -0.0465747095
[834] 1.2618976645 1.1026340458 1.7576016991 0.3432298256 -0.6394386874 0.8211255276 1.1189776142
[841] -0.9573890669 1.7400260642 -0.0124748363 0.7644095838 0.2174669674 0.9402967349 -0.1795908462
[848] 1.3789077196 0.2098648683 1.5546071155 1.5928470509 1.2030570752 -0.3592939028 0.6554701224
[855] -0.9179178132 0.1859130869 1.1090871193 1.1213560093 1.3327341529 1.1664376515 1.0879753467
[862] 1.1967907567 1.7757016032 0.7592217361 -0.1264785982 1.0317350619 -0.4223181158 -0.0096637758
[869] 0.8425726853 1.5418439831 -0.8027422312 1.7694680851 1.2537414001 -0.7896700106 0.4697650168
[876] -0.0271805488 1.9756430520 0.9257775303 0.2442935035 0.1202551716 0.7935895787 0.2613205917
[883] 0.8644149827 -0.1151509297 -0.0372074961 0.0946267049 1.2163738965 -0.2075179345 1.3699542363
[890] 1.0795942154 0.5439225975 1.1643586971 -0.7434260561 -0.4563056289 1.3323977361 -0.5626985962
[897] 0.2828569999 0.4726126441 0.3749769202 0.7189288400 -0.6558832906 1.7464128621 1.6567249475
[904] -0.8913836568 -0.7507797778 0.2710016214 0.7139147925 -0.1105973008 1.0635312018 0.4517081762
[911] 0.3425597658 0.5911333186 1.5462167535 -0.5572990035 -0.5304426153 0.0914128905 1.3563058772
[918] -0.8923883305 -0.6579242686 1.2910424450 -0.3286158389 0.0696889602 0.8304764102 0.3379599024
[925] -0.5485220780 0.4160342256 -0.0695639139 1.5907484158 0.4859569357 0.7792023961 0.0001862631
[932] 0.1183001988 1.5300903267 1.4351997536 1.2964707862 0.6720183734 -0.3296947491 0.1650145547
[939] 0.6397843279 1.4258207029 1.2891400170 -0.7843285722 -0.9450407417 1.9596314852 -0.3882493584
[946] 0.3438918472 1.1603718910 -0.7065315510 1.2962281385 1.0185778034 -0.5213501663 -0.9912881320
[953] 0.4338076098 -0.2184837814 1.0528854660 -0.6587327255 1.5235522543 -0.1973454654 1.5473384387
[960] 0.4392607831 -0.5096600412 -0.3081819660 0.8571037566 1.4573774480 0.6160043748 1.3892346818
[967] 1.3180500944 0.8006367993 -0.9495989785 0.2011074957 -0.4615755773 1.4726061458 -0.8453830073
[974] 0.5218299802 0.9481366090 0.1855497558 0.9295981876 1.6878905972 1.2173861663 -0.2631319494
[981] -0.6934739777 -0.2276217560 0.9368502130 1.0406005457 1.6234907175 -0.2604849541 -0.4973248797
[988] 0.1501851582 0.4234158674 -0.1715500159 -0.2790709073 0.8312725953 0.0126175755 -0.7818822747
[995] -0.1579126888 0.5027444251 -0.5782017566 1.3063439431 0.0215886992 0.8004112227

> > #para la media

> mean(y)
[1] 0.4708245
> #Vpara la varinza
> var(y)
[1] 0.7419331
> #para la desviación estandar
> sd(y)
[1] 0.8613554

 W4.50

Empezando a las 12:00 de la noche, un centro de computadoras funciona durante una hora y deja de
operar dos horas en un ciclo regular. Una persona que desconoce este horario marca al centro en
una hora al azar entre las 12:00 de la noche y las 5:00 a.m. ¿Cuál es la probabilidad de que el centro
esté funcionando cuando entre la llamada de la persona?

#X: es una variable aleatoria uniforme

> #X: funcionamiento del centro en llamada
>
> #P(0<X<1)+P(3<X<4)
> p1=punif(1,min=0,max=5)-punif(0,min=0,max=5)
>
> p2=punif(4,min=0,max=5)-punif(3,min=0,max=5)
>
> p1+p2
[1] 0.4