Return to Answer

Removed additional question(s) to avoid need to flag Answer

Source Link

edited Jun 26, 2014 at 1:05

I used the following and itsit is working now. Let me know if you have any suggestion.

norm_vec <- function(x) sqrt(sum((x[1]-data_ref$x)^2+(x[2]-data_ref$x)^2))-sum(data_ref$r)

nlm(norm_vec,c(mean(data_ref$x),mean(data_ref$y)))

I am yet to find the confidence interval. How to do that i dont know.

norm_vec <- function(x) sqrt(sum((x[1]-data_ref$x)^2+(x[2]-data_ref$x)^2))-sum(data_ref$r)

nlm(norm_vec,c(mean(data_ref$x),mean(data_ref$y)))

I used and its working now. Let me know if you have any suggestion.

norm_vec <- function(x) sqrt(sum((x[1]-data_ref$x)^2+(x[2]-data_ref$x)^2))-sum(data_ref$r)

nlm(norm_vec,c(mean(data_ref$x),mean(data_ref$y)))

I am yet to find the confidence interval. How to do that i dont know.

I used the following and it is working now.

norm_vec <- function(x) sqrt(sum((x[1]-data_ref$x)^2+(x[2]-data_ref$x)^2))-sum(data_ref$r)

nlm(norm_vec,c(mean(data_ref$x),mean(data_ref$y)))

Source Link

created Apr 20, 2014 at 13:28

I used and its working now. Let me know if you have any suggestion.

norm_vec <- function(x) sqrt(sum((x[1]-data_ref$x)^2+(x[2]-data_ref$x)^2))-sum(data_ref$r)

nlm(norm_vec,c(mean(data_ref$x),mean(data_ref$y)))

I am yet to find the confidence interval. How to do that i dont know.