# declaring a floating point vector 
vec <- c(1.1,2,3.2,4)
size = length(vec)
  
# initializing product as 1
prod = 1
  
# looping over the vector elements
for(i in 1:size)
 {
  # multiplying the vector element at ith index 
  # with the product till now
  prod = vec[i]*prod
 }
print("Product of vector elements:")
  
# in-built application of prod function
print(prod)

[1] “Product of vector elements:”

[1] 28.16

# declaring a floating point vector 
vec <- c(1.1,2,NA,11,4)
size = length(vec)
  
# initializing product as 1
prod = 1
  
# looping over the vector elements
for(i in 1:size)
 {
  # multiplying the vector element at
  # ith index with the product till now
  prod = vec[i]*prod
  cat("Product after iteration:") 
  print(prod)
 }
print("Final product of vector elements:")
  
# in-built application of prod function
print(prod)

Product after iteration:[1] 1.1

Product after iteration:[1] 2.2

Product after iteration:[1] NA

Product after iteration:[1] NA

Product after iteration:[1] NA

[1] “Final product of vector elements:”

[1] NA

# declaring a integer vector 
vec <- c(1,2,3,4)
print("Product of vector elements:")
  
# in-built application of prod function
print(prod(vec))

[1] “Product of vector elements:”

[1] 24