Displaying 1 result from an estimated 1 matches for "youtput".
Did you mean:
output
2007 Apr 16
2
Simplify simple code
Dear expeRts,
I would simplify following code.
---------------------------------------------
youtput <- function(x1, x2){
n <- length(x1)
y <- vector(mode="numeric", length=n)
for(i in 1:n){
if(x1[i] >=5 & x1[i] <= 10 & x2[i] >=5 & x2[i] <=10)
y[i] <- 0.631 * x1[i]^0.55 * x2[i]^0.65
if(x1[i] >=10 & x1[i] <= 15 &...