R Notebook

num<- -5
if(num>0){
  print("+ve")
}else if(num<0){
  print("-ve")
}else{
  print("0")
}

[1] "-ve"

for(i in 1:10){
  print(i)
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

vec <- c(1,2,3,4,5)
sum <- 0
for(val in vec){
  sum <- sum+val
}
print(sum)

[1] 15

num <-5
f <- 1
while (num>0) {
  f <- f*num
  num <- num-1
}
print(f)

[1] 120

n<-10
f<-numeric(n)
f[1]<-0
f[2]<-1
for (i in 3:n){
  f[i] <- f[i-1] + f[i-2]
}
print(f)

 [1]  0  1  1  2  3  5  8 13 21 34

n<-5
repeat{
  print(n)
  n=n-1
  if (num==0)break
}

[1] 5

v <- c(-2, 3, -1, 5, 7)
r <- ifelse(v < 0, 0, v)
print(r)

[1] 0 3 0 5 7

A<- matrix(c(1,2,3,4),nrow =2)
B<- matrix(c(2,0,1,3),nrow = 2)
C<- matrix(0,nrow = 2,ncol = 2)
for(i in 1:2){
  for(j in 1:2){
    for(k in 1:2){
      C[i,j]<-C[i,j]+A[i,k]*B[k,j]
    }
  }
}
print(C)

     [,1] [,2]
[1,]    2   10
[2,]    4   14

for(i in 1:10){
  if(i%%2==0)next
  print(i)
}

[1] 1
[1] 3
[1] 5
[1] 7
[1] 9

for(i in 1:10){
  if(i==5)break
  print(i)
}

[1] 1
[1] 2
[1] 3
[1] 4

m<- list(1,"R",TRUE,3.14)
for (item in m) {
  print(item)
}

[1] 1
[1] "R"
[1] TRUE
[1] 3.14

random_numbers <- rnorm(1000)
hist(random_numbers, main = "Histogram of Random Normal NUmbers", xlab = "Value", col = "darkgreen")

knitr::opts_chunk$set(echo = TRUE)

fruits <- c("Apple", "Banana", "Cherry", "Date")
counts <- c(10, 15, 7, 5)
barplot(counts, names.arg = fruits, col = "orange", main = "Fruit Counts", xlab = "Fruit", ylab = "Count")

x <- runif(50, 1, 10)
y <- runif(50, 1, 10)
plot(x, y, main = "Scatter Plot", xlab = "x values", ylab = "Y values", col = "red", pch = 16)

sales <- c(20, 30, 25, 25)
labels <- c("Q1", "Q2", "Q3", "Q4")
pie(sales, labels = labels, col = rainbow(4), main = "Sales Distribution");

mat<- matrix(1:9,nrow=3)
row<-apply(mat, 1,sum)
print(row)

[1] 12 15 18