Предложения по использованию кода вместо функции конвейера%>%% *%

Question

Может кто-нибудь порекомендовать изменения в моем следующем коде, где мне не нужно использовать функцию конвейера %>% или %*%, чтобы я мог достичь тех же результатов, но без %>% %*%. Любые предложения будут полезны. Спасибо.

 V = cov(returns)
 mu = colMeans(returns)
 mu.prime = t(mu)
 V.inv = solve(V)
 one=rep(1, 30)
 one.prime = t(one)

 A=mu.primV.inv%*%one
 B=mu.prime%*%V.inv%*%mu
 C=one.prime%*%V.inv%*%one
 D=B%*%C-A^2

 #mvp
 min.return = A/C
 min.dv =1/C

 #EZp
 EZp <- runif(n = 99, min =min.return, max = 0.0075) %>% as.list()
 st.d.zi = sqrt(var(EZp))
 risk = lapply(EZp, function(EZp)(sqrt(C*(EZp^2)-(2*A*EZp-B))/D))
 EZp <- as.numeric(EZp)
 df <- cbind(EZp, risk) %>% as.data.frame()