# Untitled

unknown
plain_text
2 years ago
2.7 kB
20
Indexable
Never
```setwd("C:/Users/jains/Desktop/Vit Pune/Sem 2/Labs/Data Science/Lab 2")

attach(travel)

#1.	Find out the % of Indians in the sample
#   who have traveled abroad using the data source

per1 = ((yesTravel / length(Sr..No.)) * 100)
per1

per2 = ((notTravel / length(Sr..No.)) * 100)
per2

#2.	Treating this value as "p" , calculate the following probabilities

#   a. What is the probability that in a
#      randomly chosen sample of 10 persons, no one has traveled abroad.

1 - pnorm(66, mean=1, sd=10, lower.tail =TRUE, log.p = F)

#  b.	What is the probability that in a randomly chosen sample of
#     10 persons, exactly one has traveled abroad.

1 - pnorm(84, mean=9, sd=10, lower.tail =TRUE, log.p = F)

#c.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly two persons have traveled abroad.

1 - pnorm(84, mean=8, sd=10, lower.tail =TRUE, log.p = F)

#d.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly three persons have travelled abroad.

1 - pnorm(84, mean=7, sd=10, lower.tail =TRUE, log.p = F)

#e.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly four persons have travelled abroad.

1 - pnorm(84, mean=6, sd=10, lower.tail =TRUE, log.p = F)

#f.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly five persons have travelled abroad.

1 - pnorm(84, mean=5, sd=10, lower.tail =TRUE, log.p = F)

#g.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly six persons have travelled abroad.

1 - pnorm(84, mean=4, sd=10, lower.tail =TRUE, log.p = F)

#h.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly seven persons have travelled abroad.

1 - pnorm(84, mean=3, sd=10, lower.tail =TRUE, log.p = F)

#i.	What is the probability that in a randomly chosen sample of 10 persons,
#   exactly eight persons have travelled abroad.

1 - pnorm(84, mean=2, sd=10, lower.tail =TRUE, log.p = F)

#j.	What is the probability that in a randomly chosen sample of 10 persons,
#   all 10 persons have travelled abroad.

1 - pnorm(84, mean=1, sd=10, lower.tail =TRUE, log.p = F)

# 3.	Plot the probability values as a Table / Bar graph and interpret

# 4.	What is the probability that in the randomly chosen sample of 100 persons
#  at least 59 have travelled abroad?

pnorm(84, mean=59, sd=100, lower.tail =TRUE, log.p = F)

```