rmse4xyz
rmse4xyz(xyz1, xyz2)
xyz1 | |
---|---|
xyz2 |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (xyz1, xyz2) { xyz_d2 <- (xyz1 - xyz2)^2 rss <- sum(colSums(xyz_d2)) N <- dim(xyz1)[2] sqrt(rss/N) }#> function (xyz1, xyz2) #> { #> xyz_d2 <- (xyz1 - xyz2)^2 #> rss <- sum(colSums(xyz_d2)) #> N <- dim(xyz1)[2] #> sqrt(rss/N) #> } #> <environment: 0x10e4d5f40>