> I'm trying to write a function that takes a vector of length n and
> then takes the first value of the vector i.e j=1 and forms a new
> vector of length n (i.e replicate the first value n times). This
> function will then calculate the absoulte difference of the original
> vector and the new vector and store the results omitting the
> difference between the value and itself. This function should be able
> to repeat the procedure for each of the j's i.e j=2 to n. The results
> should all be stored together. Below is what I've tried so far but it
> seems to work only for j=1 .
>
> Your help will be highly appreciated.
> IED<-function(risk){
> n<-length(risk)
> i<-c(1:n)
> Diff<-numeric()
> for(j in 1:n){
> relrisk<-risk
> relrisk[i]<-relrisk[j]
> Difference<-abs(risk-relrisk)
> Difference<-Difference[-c(1:j)]
> Difference<-append(Diff,Difference)
> return(Difference)
> }
> }
>
>
> Oarabile
>
|