Agora, para fechar com chave de ouro a disicplina vamos realizar nossa atividade avaliativa 2, unindo os diferentes conteúdos que aprendemos em uma única atividade.
Para tal, você deve criar uma função chamada AP2(), a qual deverá receber um conjunto de dados como argumento, devendo retornar o valor médio da primeira coluna do conunto de dados e um gráfico de dispersão comparando a a primeira e a segunda coluna do conjunto de dados.
O objetivo é a função seja capaz de funcionar com diferentes conjuntos de dados, bastanto fornecer ele como argumento. Ex. AP2(iris), AP2(titanic), AP2(tabela).
Poste aqui o script, a correção se dará com base no funcionamento da função apresentada.
Para esta atividade, vamos começar carregando o conjunto de dados iris no R, logo na sequência responda as seguintes questões:
a) Qual o comprimento médio e a mediana das sépatalas (Sepal.Length)?
b) Qual o comprimento médio e a mediana das pétalas da espécie setosa(Petal.Length)?
c) Qual o desvio padrão da largura das pétalas (Petal.Width)?
d) Qual o comprimento máximo (Petal.Length) da pétala para a espécie Virginica?
e) Qual o valor mínimo de largura da sépala (Petal.Length) encontrada entre os exemplares da espécie versicolor?
Lembre-se de ir salvando os comandos utilizados em um arquivo de texto (script), pois você precisará apresentar os códigos na próxima questão.
Resposta
a) mean(dados$Sepal.Length)
[1] 5.843333
a)median((dados$Sepal.Length))
[1] 5.8
b) mean(dados[dados$Species=="setosa",3])
[1] 1.462
b) median(dados[dados$Species=="setosa",3])
[1] 1.5
c)> sd(dados$Petal.Width)
[1] 0.7622377
d) max(dados[dados$Species=="virginica","Petal.Length"])
[1] 6.9
e)min(dados[dados$Species=="versicolor","Petal.Width"])
[1] 1
TAREFA AP 1 FOI ESTA , PRECISO AJUDA NA AP 2
a) mean(dados$Sepal.Length)
[115.843333
a)median((dados$Sepal.Length))
[115.8
b)mean(dados[dados$Species=="setosa",31)
[111.462
b) median(dados [dados$Species=="setosa",3])
[111.5
c)> sd(dados$Petal.Width)
[110.7622377
d) max dados dados$Species=="virginica"."Petal. Length"1)
[116.9
e)min(dados[dados$Species=="versicolor""Petal.Width"1)
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar