x <-c(2,3,4,5,6,7,8,9,2,3,10,11,17,20,18,11,15,19,16,12)
length(x)
## [1] 20
#Ans:- [1] 20
charY <-as.character(x)
charY
## [1] "2" "3" "4" "5" "6" "7" "8" "9" "2" "3" "10" "11" "17" "20"
## [15] "18" "11" "15" "19" "16" "12"
#Ans :- [1] "2" "3" "4" "5" "6" "7" "8" "9" "2" "3" "10" "11" "17" "20" "18" "11" [17] "15" "19" "16" "12"
z <- factor(x)
is.factor(z)
## [1] TRUE
#Ans:- TRUE
nlevels(z)
## [1] 17
#Ans:- [1]=17
newVec = 3*x ^2 - 4*x + 1
#Ans:- [1] 5 16 33 56 85 120 161 208 5 16 261 320 800 1121 901 320 616 1008 705 385
x <- list(1:3, "a", c(TRUE, FALSE, TRUE), c(2.3, 5.9))
#ANS :- x
#[[1]]
#[1] 1 2 3
#[[2]]
#[1] "a"
#[[3]]
#[1] TRUE FALSE TRUE
#[[4]]
#[1] 2.3 5.9
vecTitle <- c("Unforgiven","The Deer Hunter", "It Happened One Night", "The Bridge on the River Kwai", "Lawrence of Arabia","The Silence of the Lambs", "The Godfather Part II", "Casablanca", "The Godfather", "All about Eve");
genreVec <- factor(c("Thriller","Comedy","Horror","Thriller","Comedy","Thriller","Thriller","Thriller","Thriller","Comedy"))
numVec <- c(1,2,3,4,5,6,7,8,9,10)
dateVec <- seq(from = as.Date("2007-01-01"), to = as.Date("2016-01-01"), by = 'year')
df <- data.frame(vecTitle,genreVec,numVec,dateVec)
class(df)
## [1] "data.frame"
#Ans :- "data.frame"
levels(genreVec)
## [1] "Comedy" "Horror" "Thriller"
#Ans :- [1] "Thriller" "Comedy" "Horror"
str(df)
## 'data.frame': 10 obs. of 4 variables:
## $ vecTitle: Factor w/ 10 levels "All about Eve",..: 10 6 3 5 4 9 8 2 7 1
## $ genreVec: Factor w/ 3 levels "Comedy","Horror",..: 3 1 2 3 1 3 3 3 3 1
## $ numVec : num 1 2 3 4 5 6 7 8 9 10
## $ dateVec : Date, format: "2007-01-01" "2008-01-01" ...
#ANS :-
#'data.frame': 10 obs. of 4 variables:
# $ vecTitle: Factor w/ 10 levels "All about Eve",..: 10 6 3 5 4 9 8 2 7 1
# $ genreVec: Factor w/ 3 levels "Comedy","Horror",..: 3 1 2 3 1 3 3 3 3 1
# $ numVec : num 1 2 3 4 5 6 7 8 9 10
# $ dateVec : Date, format: "2007-01-01" "2008-01-01" "2009-01-01" "2010-01-01" ...
dfnew <- data.frame(vecTitle="Avatar",genreVec="Sci-fi",numVec=11,dateVec=as.Date("2018-01-01"))
rdf <- rbind(df,dfnew)
rdf
## vecTitle genreVec numVec dateVec
## 1 Unforgiven Thriller 1 2007-01-01
## 2 The Deer Hunter Comedy 2 2008-01-01
## 3 It Happened One Night Horror 3 2009-01-01
## 4 The Bridge on the River Kwai Thriller 4 2010-01-01
## 5 Lawrence of Arabia Comedy 5 2011-01-01
## 6 The Silence of the Lambs Thriller 6 2012-01-01
## 7 The Godfather Part II Thriller 7 2013-01-01
## 8 Casablanca Thriller 8 2014-01-01
## 9 The Godfather Thriller 9 2015-01-01
## 10 All about Eve Comedy 10 2016-01-01
## 11 Avatar Sci-fi 11 2018-01-01
#ANS:-
# vecTitle genreVec numVec dateVec
#1 Unforgiven Thriller 1 2007-01-01
#2 The Deer Hunter Comedy 2 2008-01-01
#3 It Happened One Night Horror 3 2009-01-01
#4 The Bridge on the River Kwai Thriller 4 2010-01-01
#5 Lawrence of Arabia Comedy 5 2011-01-01
#6 The Silence of the Lambs Thriller 6 2012-01-01
#7 The Godfather Part II Thriller 7 2013-01-01
#8 Casablanca Thriller 8 2014-01-01
#9 The Godfather Thriller 9 2015-01-01
#10 All about Eve Comedy 10 2016-01-01
#11 Avatar Sci-fi 11 2018-01-01
setwd("C:/Users/ARORA/Documents")
readFile <- read.csv("temperatures.csv",TRUE,",")
class(readFile)
## [1] "data.frame"
#Ans :- [1] "data.frame"
readFile
## temp city date
## 1 80 Atlanta 7/17/2018
## 2 100 Denver 7/17/2018
## 3 110 Dallas 7/15/2018
## 4 90 Boston 7/16/2018
#Ans :-
# temp city date
#1 80 Atlanta 7/17/2018
#2 100 Denver 7/17/2018
#3 110 Dallas 7/15/2018
#4 90 Boston 7/16/2018
p = 1500
inter = .0324
compu_yrs = 12
yrs = 6
for(i in seq (1, compu_yrs*yrs,1)){
p <- p + (p * inter / compu_yrs)
}
print("Final Balance before round off :: ")
## [1] "Final Balance before round off :: "
print(p)
## [1] 1821.396
#Ans:- 1891.396
d<-round(p,digits =2)
print("Final Balance after roundoff ::")
## [1] "Final Balance after roundoff ::"
print(d)
## [1] 1821.4
#Ans :- 1891.4
p <- signif(p,digits=5)
print(p)
## [1] 1821.4
#Ans :- 1891.4
numVec <- c(1:20)
nsum <-sum(numVec= seq(0,length(numVec),3))
print(nsum)
## [1] 63
#Ans:- 63
x =2
nsum=0
for(i in 1:10){
nsum <- sum(x^i)
}
print(nsum)
## [1] 1024
#Ans :- 1024
x<-2
nsum <- 0
i<-1
while( i<=10){
nsum <- sum(x^i)
i = i+1
}
print(nsum)
## [1] 1024
#Ans :- 1024
x =2
print( sum(x^seq(1,10)))
## [1] 2046
#Ans :- 2046