## The function is currently defined as
function (vect1, vect2, rows_no)
{
result = 0
obs <- 0
pred <- 0
for (i in 1:rows_no) {
result <- result + (vect1[i] - vect2[i])^2
}
result <- (result/rows_no)^0.5
return(result)
}
Run the code above in your browser using DataCamp Workspace