Trabalho_aborto

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

---
title: "Trabalho_aborto"
author: "Daniela Santos"
date: "Tuesday, December 02, 2014"
output: html_document
---
```{r}
getwd()
setwd("C:\\Users\\Dannyzinha\\Desktop\\Trabalho_aborto")
dir()
dados<- read.csv2("dados_2.csv",sep=";",quote="\"")
dados
summary(dados)
#Calculando#
x<-1 - pnorm(124,mean=98.67,sd=36.36)
x
```