Distância entre bancos
Segundo o Levantamento do Perfil Antropométrico da População Brasileira Usuária do Transporte Aéreo Nacional, de 2009, a distância glúteo-joelho (ver figura abaixo) do homem brasileiro segue uma distribuição normal com média \(\mu = 60{,}7\)cm e desvio padrão \(\sigma = 3{,}1\)cm.
Em um avião, qual deve ser a distância mínima entre a parte dianteira do encosto de uma poltrona (onde encosta o glúteo) e a parte traseira da poltrona imediatamente à frente (onde encosta o joelho) para que \(95\%\) dos homens brasileiros possam caber sentados conforme a figura abaixo?
Caixa de mercado
Em um caixa de um pequeno mercado, o número de clientes que chegam por minuto é, em média, \(4\).
Vamos representar este número pela variável aleatória \(X\), com suporte \(\{ 0, 1, 2, 3, \ldots \}\).
As chegadas dos clientes são independentes umas das outras.
Se você dividir o tempo em intervalos menores do que um minuto, a média se mantém: \(2\) clientes a cada \(30\) segundos, \(1\) cliente a cada \(15\) segundos etc.
Clientes diferentes não chegam ao caixa no mesmo instante.
Então, a variável aleatória \(X\) segue a distribuição de Poisson, com média \(\lambda = 4\).
Faça uma simulação:
Usando rpois
, gere uma amostra de \(60\) números, correspondendo a \(1\) hora de funcionamento do caixa.
Escreva uma função em R para processar esta amostra e retornar um vetor de \(60\) elementos: a quantidade de clientes na fila ao final de cada minuto (de \(1\) a \(60\)). Lembre-se de que o caixa processa \(4\) clientes por minuto.
Faça um gráfico do número de clientes na fila ao final de cada minuto, ao longo do tempo.
Usando rpois
, agora gere uma amostra de \(60\) números, correspondendo a \(1\) hora de funcionamento do caixa, desta vez com uma média de \(5\) clientes chegando por minuto.
Use a função que você escreveu para processar esta amostra e retornar um vetor com a quantidade de clientes na fila a cada minuto (de \(1\) a \(60\)), supondo que o caixa ainda processa só \(4\) clientes por minuto.
Faça um gráfico do número de clientes na fila ao final de cada minuto, ao longo do tempo.
Pessoas canhotas
Na população, \(12\%\) das pessoas são canhotas.
Você escolhe \(100\) pessoas ao acaso.
Em relação ao grupo de pessoas escolhidas:
Qual é a média e o desvio padrão da variável aleatória que representa o número de pessoas destras no grupo?
Qual é a probabilidade de nem todas as pessoas do grupo serem canhotas?
Qual é a probabilidade de haver no máximo \(75\) pessoas destras no grupo?
Qual é a probabilidade de a maioria das pessoas do grupo serem destras?
LS0tCnRpdGxlOiAnTGlzdGEgMicKc3VidGl0bGU6ICdQcm9iYWJpbGlkYWRlIGUgRXN0YXTDrXN0aWNhIC0tIDIwMjAuMScKYXV0aG9yOiAnZm5hdWZlbCcKZW1haWw6ICdodHRwczovL2ZuYXVmZWwuZ2l0aHViLmlvLycKZGF0ZTogJ0NyaWFkbyBlbSAwNy8xMi8yMDIwPGJyIC8+VmVyc8OjbyBkZSBgciBmb3JtYXQoU3lzLkRhdGUoKSwgIiVkLyVtLyVZIilgJwpsYW5nOiAncHQnCm91dHB1dDogcm1kZm9ybWF0OjpmbmF1ZmVsX3JtZF9mb3JtYXQKIyBUbyBpbnN0YWxsIHRoaXMgZm9ybWF0LCBlbnRlcgojICAgaW5zdGFsbC5wYWNrYWdlcygiZGV2dG9vbHMiKQojICAgZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJmbmF1ZmVsL3JtZGZvcm1hdCIpCi0tLQoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmxpYnJhcnkoa25pdHIpCgpvcHRzX2NodW5rJHNldCgKICBlY2hvID0gVFJVRSwgCiAgIyBjb2xsYXBzZSA9IFRSVUUsCiAgIyBjYWNoZSA9IFRSVUUsCiAgb3V0LndpZHRoID0gIjkwJSIsCiAgZmlnLmFsaWduID0gJ2NlbnRlcicsCiAgZmlnLndpZHRoID0gNywKICBmaWcuc2hvdyA9ICJob2xkIgopCgojIFN1cHJlc3MgY3JheW9uIG91dHB1dApvcHRpb25zKGNyYXlvbi5lbmFibGVkID0gRkFMU0UpCgpvcHRpb25zKAogICMgQXZvaWQgc2NpZW50aWZpYyBub3RhdGlvbgogIHNjaXBlbiA9IDE1LAogICMgVXNlIGEgY29tbWEgYXMgZGVjaW1hbCBzZXBhcmF0b3IKICBPdXREZWMgPSAnLCcsCiAgIyBOdW1iZXIgb2YgZGVjaW1hbCBkaWdpdHMgZm9yIG51bWJlcnMgcHJvZHVjZWQgYnkgaW5saW5lIFIgY29kZQogIGZtZGlnaXRzID0gMgopCgojIFVzZWZ1bCBsaWJyYXJpZXMKbGlicmFyeShnbHVlKQpsaWJyYXJ5KHBhdGNod29yaykKbGlicmFyeShsYXRleDJleHApCmxpYnJhcnkoa2FibGVFeHRyYSkKb3B0aW9ucyhrbml0ci5rYWJsZS5OQSA9ICcnKQoKIyBGb3IgbmljZSBkYXRhZnJhbWUgc3VtbWFyaWVzCmxpYnJhcnkoc3VtbWFyeXRvb2xzKQpzdF9vcHRpb25zKAogIHBsYWluLmFzY2lpID0gRkFMU0UsCiAgZGZTdW1tYXJ5LnZhcm51bWJlcnMgPSBGQUxTRSwKICBkZlN1bW1hcnkuc3R5bGUgPSAnZ3JpZCcsCiAgZGZTdW1tYXJ5LmdyYXBoLm1hZ25pZiA9IC43NQopCgojIFRpZHkhCmxpYnJhcnkodGlkeXZlcnNlKQoKIyBVc2VmdWwgZnVuY3Rpb25zIHByb3ZpZGVkIGJ5IHRoZSBybWRmb3JtYXQgcGFja2FnZQojIAojIEV4ZWN1dGUgCiMgCiMgICBjYXQoc3lzdGVtLmZpbGUoInJtYXJrZG93bi9yZXNvdXJjZXMvY29tbW9uLlIiLCBwYWNrYWdlID0gInJtZGZvcm1hdCIpKQojIAojIHRvIHNlZSB0aGUgbG9jYXRpb24gb2YgdGhlIGZpbGUKc291cmNlKAogIHN5c3RlbS5maWxlKAogICAgInJtYXJrZG93bi9yZXNvdXJjZXMvY29tbW9uLlIiLAogICAgcGFja2FnZSA9ICJybWRmb3JtYXQiCiAgKQopCgpzZXQuc2VlZCgxMjM0KQpgYGAKCgojIERpc3TDom5jaWEgZW50cmUgYmFuY29zCgoqIFNlZ3VuZG8gbyBbTGV2YW50YW1lbnRvIGRvIFBlcmZpbCBBbnRyb3BvbcOpdHJpY28gZGEgUG9wdWxhw6fDo28gQnJhc2lsZWlyYSBVc3XDoXJpYSBkbyBUcmFuc3BvcnRlIEHDqXJlbyBOYWNpb25hbF0oaHR0cHM6Ly93d3cyLmFuYWMuZ292LmJyL2FycXVpdm9zL3BkZi9SZWxhdG9yaW9fRmluYWxfUHJvamV0b19Db25oZWNlci5wZGYpLCBkZSAyMDA5LCBhIGRpc3TDom5jaWEgZ2zDunRlby1qb2VsaG8gKHZlciBmaWd1cmEgYWJhaXhvKSBkbyBob21lbSBicmFzaWxlaXJvIHNlZ3VlIHVtYSBkaXN0cmlidWnDp8OjbyBub3JtYWwgY29tIG3DqWRpYSAkXG11ID0gNjB7LH03JGNtIGUgZGVzdmlvIHBhZHLDo28gJFxzaWdtYSA9IDN7LH0xJGNtLgoKICAhW10oaW1hZ2VzL2Rpc3RhbmNpYXMucG5nKXsgLmNlbnRlciB3aWR0aD02MCUgfQoKICBFbSB1bSBhdmnDo28sIHF1YWwgZGV2ZSBzZXIgYSBkaXN0w6JuY2lhIG3DrW5pbWEgZW50cmUgYSBwYXJ0ZSBkaWFudGVpcmEgZG8gZW5jb3N0byBkZSB1bWEgcG9sdHJvbmEgKG9uZGUgZW5jb3N0YSBvIGdsw7p0ZW8pIGUgYSBwYXJ0ZSB0cmFzZWlyYSBkYSBwb2x0cm9uYSBpbWVkaWF0YW1lbnRlIMOgIGZyZW50ZSAob25kZSBlbmNvc3RhIG8gam9lbGhvKSBwYXJhIHF1ZSAkOTVcJSQgZG9zIGhvbWVucyBicmFzaWxlaXJvcyBwb3NzYW0gY2FiZXIgc2VudGFkb3MgY29uZm9ybWUgYSBmaWd1cmEgYWJhaXhvPwogIAogICFbXShpbWFnZXMvc2VudGFkby5wbmcpeyAuY2VudGVyIHdpZHRoPTUwJSB9CiAgCgojIENhaXhhIGRlIG1lcmNhZG8KCiogRW0gdW0gY2FpeGEgZGUgdW0gcGVxdWVubyBtZXJjYWRvLCBvIG7Dum1lcm8gZGUgY2xpZW50ZXMgcXVlIGNoZWdhbSBwb3IgbWludXRvIMOpLCBlbSBtw6lkaWEsICQ0JC4gCgoqIFZhbW9zIHJlcHJlc2VudGFyIGVzdGUgbsO6bWVybyBwZWxhIHZhcmnDoXZlbCBhbGVhdMOzcmlhICRYJCwgY29tIHN1cG9ydGUgJFx7IDAsIDEsIDIsIDMsIFxsZG90cyBcfSQuCgoqIEFzIGNoZWdhZGFzIGRvcyBjbGllbnRlcyBzw6NvIGluZGVwZW5kZW50ZXMgdW1hcyBkYXMgb3V0cmFzLgoKKiBTZSB2b2PDqiBkaXZpZGlyIG8gdGVtcG8gZW0gaW50ZXJ2YWxvcyBtZW5vcmVzIGRvIHF1ZSB1bSBtaW51dG8sIGEgbcOpZGlhIHNlIG1hbnTDqW06ICQyJCBjbGllbnRlcyBhIGNhZGEgJDMwJCBzZWd1bmRvcywgJDEkIGNsaWVudGUgYSBjYWRhICQxNSQgc2VndW5kb3MgZXRjLgoKKiBDbGllbnRlcyBkaWZlcmVudGVzIG7Do28gY2hlZ2FtIGFvIGNhaXhhIG5vIG1lc21vIGluc3RhbnRlLgoKKiBFbnTDo28sIGEgdmFyacOhdmVsIGFsZWF0w7NyaWEgJFgkIHNlZ3VlIGEgZGlzdHJpYnVpw6fDo28gZGUgUG9pc3NvbiwgY29tIG3DqWRpYSAkXGxhbWJkYSA9IDQkLgoKKiBGYcOnYSB1bWEgc2ltdWxhw6fDo286CgogIDEuIFVzYW5kbyBgcnBvaXNgLCBnZXJlIHVtYSBhbW9zdHJhIGRlICQ2MCQgbsO6bWVyb3MsIGNvcnJlc3BvbmRlbmRvIGEgJDEkIGhvcmEgZGUgZnVuY2lvbmFtZW50byBkbyBjYWl4YS4KICAgCiAgMS4gRXNjcmV2YSB1bWEgZnVuw6fDo28gZW0gUiBwYXJhIHByb2Nlc3NhciBlc3RhIGFtb3N0cmEgZSByZXRvcm5hciB1bSB2ZXRvciBkZSAkNjAkIGVsZW1lbnRvczogYSBxdWFudGlkYWRlIGRlIGNsaWVudGVzIG5hIGZpbGEgYW8gZmluYWwgZGUgY2FkYSBtaW51dG8gKGRlICQxJCBhICQ2MCQpLiBMZW1icmUtc2UgZGUgcXVlIG8gY2FpeGEgcHJvY2Vzc2EgJDQkIGNsaWVudGVzIHBvciBtaW51dG8uCiAgCiAgMS4gRmHDp2EgdW0gZ3LDoWZpY28gZG8gbsO6bWVybyBkZSBjbGllbnRlcyBuYSBmaWxhIGFvIGZpbmFsIGRlIGNhZGEgbWludXRvLCBhbyBsb25nbyBkbyB0ZW1wby4KICAgCiAgMS4gVXNhbmRvIGBycG9pc2AsIGFnb3JhIGdlcmUgdW1hIGFtb3N0cmEgZGUgJDYwJCBuw7ptZXJvcywgY29ycmVzcG9uZGVuZG8gYSAkMSQgaG9yYSBkZSBmdW5jaW9uYW1lbnRvIGRvIGNhaXhhLCBkZXN0YSB2ZXogY29tIHVtYSBtw6lkaWEgZGUgJDUkIGNsaWVudGVzIGNoZWdhbmRvIHBvciBtaW51dG8uCiAgIAogIDEuIFVzZSBhIGZ1bsOnw6NvIHF1ZSB2b2PDqiBlc2NyZXZldSBwYXJhIHByb2Nlc3NhciBlc3RhIGFtb3N0cmEgZSByZXRvcm5hciB1bSB2ZXRvciBjb20gYSBxdWFudGlkYWRlIGRlIGNsaWVudGVzIG5hIGZpbGEgYSBjYWRhIG1pbnV0byAoZGUgJDEkIGEgJDYwJCksICpzdXBvbmRvIHF1ZSBvIGNhaXhhIGFpbmRhIHByb2Nlc3NhIHPDsyAkNCQgY2xpZW50ZXMgcG9yIG1pbnV0byouCiAgIAogIDEuIEZhw6dhIHVtIGdyw6FmaWNvIGRvIG7Dum1lcm8gZGUgY2xpZW50ZXMgbmEgZmlsYSBhbyBmaW5hbCBkZSBjYWRhIG1pbnV0bywgYW8gbG9uZ28gZG8gdGVtcG8uCiAgIAoKIyBQZXNzb2FzIGNhbmhvdGFzCgoqIE5hIHBvcHVsYcOnw6NvLCAkMTJcJSQgZGFzIHBlc3NvYXMgc8OjbyBjYW5ob3Rhcy4gCgoqIFZvY8OqIGVzY29saGUgJDEwMCQgcGVzc29hcyBhbyBhY2Fzby4KCiogRW0gcmVsYcOnw6NvIGFvIGdydXBvIGRlIHBlc3NvYXMgZXNjb2xoaWRhczoKCiAgMS4gUXVhbCDDqSBhIG3DqWRpYSBlIG8gZGVzdmlvIHBhZHLDo28gZGEgdmFyacOhdmVsIGFsZWF0w7NyaWEgcXVlIHJlcHJlc2VudGEgbyAgbsO6bWVybyBkZSBwZXNzb2FzIGRlc3RyYXMgbm8gZ3J1cG8/CiAgCiAgMS4gUXVhbCDDqSBhIHByb2JhYmlsaWRhZGUgZGUgbmVtIHRvZGFzIGFzIHBlc3NvYXMgZG8gZ3J1cG8gc2VyZW0gY2FuaG90YXM/CiAgCiAgMS4gUXVhbCDDqSBhIHByb2JhYmlsaWRhZGUgZGUgaGF2ZXIgbm8gbcOheGltbyAkNzUkIHBlc3NvYXMgZGVzdHJhcyBubyBncnVwbz8KICAKICAxLiBRdWFsIMOpIGEgcHJvYmFiaWxpZGFkZSBkZSBhIG1haW9yaWEgZGFzIHBlc3NvYXMgZG8gZ3J1cG8gc2VyZW0gZGVzdHJhcz8KICAKCjxkaXYgc3R5bGU9ImhlaWdodDogMTA4MHB4OyI+PC9kaXY+ICAKCg==