Prova 2 VA

VADeaths

## Warning: package 'wordcloud' was built under R version 4.1.2

## Warning: package 'tm' was built under R version 4.1.2

## Carregando pacotes exigidos: NLP

## Warning: package 'twitteR' was built under R version 4.1.2

## Warning: package 'syuzhet' was built under R version 4.1.2

## Warning: package 'readr' was built under R version 4.1.2

## Warning: package 'DT' was built under R version 4.1.2

## 
## Attaching package: 'ggplot2'

## The following object is masked from 'package:NLP':
## 
##     annotate

## Warning: package 'bookdown' was built under R version 4.1.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:twitteR':
## 
##     id, location

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Warning: package 'plotly' was built under R version 4.1.2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

ClassificaçãoDoença

Twitters

Teorema

Peso médio gatos

sd<-0.5
N <-300
erro <-0.1
nc<-(1-0.99)/2
n <-(qnorm(nc, lower.tail= F)^2*sd^2*N)/((erro^2*(N-1))+(qnorm(nc, lower.tail= F)^2*sd^2))
round(n,2)

## [1] 107.04