Aluno: Rans Miler Pereira Dantas



Baixar 75.26 Kb.
Encontro02.10.2019
Tamanho75.26 Kb.


Exercí cio 06

Aluno: Rans Miler Pereira Dantas



Questão 1

Em 1000 análises feitas no laboratório de Microbiologia de amostras de alimento foram encontradas 50 amostras contaminadas com as respectivas bactérias: Clostridium botulinum; Escherichia coli; Salmonella sp; Clostridium botulinum; Escherichia coli; Escherichia coli; Clostridium botulinum; Salmonella sp; Clostridium botulinum; Escherichia coli; Clostridium botulinum; Salmonella sp; Clostridium botulinum; Escherichia coli; Salmonella sp; Clostridium botulinum; Escherichia coli; Salmonella sp; Escherichia coli; Salmonella sp; Escherichia coli; Salmonella sp; Escherichia coli; Clostridium botulinum; Clostridium botulinum; Salmonella sp; Escherichia coli; Escherichia coli; Escherichia coli; Salmonella sp; Escherichia coli; Escherichia coli; Escherichia coli; Escherichia coli; Salmonella sp; Clostridium botulinum; Escherichia coli; Salmonella sp; Clostridium botulinum; Escherichia coli; Escherichia coli; Clostridium botulinum; Salmonella sp; Escherichia coli; Salmonella sp; Escherichia coli; Salmonella sp; Escherichia coli; Clostridium botulinum; Clostridium botulinum. Faça uma tabela e um gráfico com os dados das espécies de bactérias encontras e o interprete-os. Houve alguma espécie de bactéria que se destacou mais que as outras nas amostras contaminadas?




Tabela 1- Espécies de bactérias encontradas em amostras de alimentos:




Espécie

Frequência

Porcentagem(%)

Crostridium botulinum

14

28

Escherichia coli

22

44

Salmonela sp

14

28

Total

50





PORCENTAGEM

10

15

20

25

30
Gráfico 1- Amostras contaminadas por bactérias em um laboratório de Microbiologia:


0

5
Crostridium botulinum Escherichia coli Salmonela sp
ESPÉCIE

Interpretação: Verificou-se que há uma maior quantidade de bactérias da espécie Escherichia coli (44%) nas amostras infectadas.



Codigos1:

> a<-c(14,22,14)

>


  • barplot(a, ylim=c(0,30),

+ ylab="PORCENTAGEM",

+ xlab="ESPÉCIE",

+ col=c("blue","red","yellow"))


  • names(a)<-c("Crostridium botulinum","Escherichia coli","Salmonela sp")

  • a

Crostridium botulinum Escherichia coli Salmonela sp 14 22 14

  • barplot(a, ylim=c(0,30),

+ ylab="PORCENTAGEM",

+ xlab="ESPÉCIE",



+ col=c("blue","red","yellow"))

Questão 2

Um grupo de entusiastas do vinho testou um vinho “pinot noir” do Chile. A avaliação foi graduar o vinho em uma escala de 0 a 100 pontos. Os resultados são dados a seguir. Construa uma tabela e um gráfico para esses dados e discuta o resultado encontrado. Calcule a média. o desvio-padrão e a mediana da amostra. Um vinho avaliado acima de 90 é considerado verdadeiramente excepcional. Interprete os resultados.



94

90

92

91

91

86

89

91

91

90

90

93

87

90

91

92

89

86

89

90

88

95

91

88

89

92

87

89

95

92

85

91

85

89

88

84

85

90

90

83



Tabela 2- Pontos recebidos pelos entusiastas:


Pontos

Frequência

Porcentagem(%)

95

2

5.13

93

1

2.56

92

4

10.26

91

7

17.95

90

7

17.95

89

6

15.38

88

3

7.69

87

2

5.13

86

2

5.13

85

3

7.69

84

1

2.56

83

1

2.56

Total

39




Média

3.3

Mediana

2.5

Desvio padrão

2.3


FREQUÊNCIA

0

5

10

15
Gráfico 2- Histograma referente à frequência dos pontos recebidos pelos entusiastas:



82 84 86 88 90 92 94 96


PONTOS

Interpretação: Verificou-se que 55% dos vinhos avaliados apresentaram nota superior, ou igual, a 90, mostrando que mais da metade das amostras são excepcionais.



Codigos2:

  • rm(list=ls(all=TRUE))

  • b<-scan() 1: 94

2: 90

3: 88

4: 85

5: 90

6: 93

7: 95

8: 91

9: 92

10: 87

11: 91


12: 85

13: 91


14: 90

15: 88


16: 89

17: 91


18: 91

19: 89


20: 88

21: 86


22: 92

23: 92


24: 84

25: 89


26: 89

27: 87


28: 85

29: 91


30: 86

31: 89


32: 90

33: 91


34: 89

35: 95


36: 90

37: 90


38: 90

39: 92


40: 83

41:


Read 40 items

  • hist(b)

  • hist(b, ylim=c(0,18),ylab="FREQUÊNCIA",xlab="PONTOS",main="")

  • hist(b, ylim=c(0,18),ylab="FREQUÊNCIA",xlab="PONTOS",main="")

  • col<-colorRampPallet(c("green","blue")) Error in colorRampPallet(c("green", "blue")) :

não foi possível encontrar a função "colorRampPallet"

  • col<- colorRampPallet(c("green","blue")) Error in colorRampPallet(c("green", "blue")) :

não foi possível encontrar a função "colorRampPallet"

  • col<-colorRampPalette(c("green","blue"))

  • hist(b, ylim=c(0,18),ylab="FREQUÊNCIA",xlab="PONTOS",main="",col=col(10))


Compartilhe com seus amigos:


©principo.org 2019
enviar mensagem

    Página principal