A cellphone has 4 functions and can function of at least two of them. Each component independently works with a probability of 0.8. What is the probability the cellphone will function?

My process look clumsy ?

p <- 0.8

n = 4

X <- 2:n

Prob <- dbinom(X, n, p, log =F)

Prob