Paseos aleatorios para explicar un aspecto del duelo

Tras la desaparición de una persona, quienes la rodean deben transitar por un duelo, de diferentes características según la "distancia emocional" con la fallecida o fallecido. A lo largo del duelo esa distancia aumenta muy poco en la persona más cercana sentimentalmente y mucho en los más alejados.

#INICIO -------------------------
rm(list=ls(all=TRUE))
A<-c(0,0.2,-1.2)
B<-c(0,0.2,1.2)
AA<-A[-1];BB<-B[-1]

#En este primer gráfico se observan las "distancias emocionales" previas al duelo:

#Entre la persona desaparecida (punto rojo) y su persona más allegada como, por ejemplo, la pareja (punto azul); y entre el fallecido y otra persona más alejada emocionalmente (punto negro) como, por ejemplo, un amigo

plot(A,B,pch=c(21,21,24),cex=c(1.5,0.8,0.8),
bg=c("red","blue","black"),
xlim=c(-5,5),ylim=c(-5,5),
xlab="DISTANCIAS EMOCIONALES PREVIAS AL DUELO")
n<-50
m<-rnorm(n,0,0.08)
s<-rnorm(n,0,0.08)
r<-rnorm(n,0,0.6)
l<-rnorm(n,0,0.6)
x<-rep(AA[1],n);y<-rep(BB[1],n)
z<-rep(AA[2],n);t<-rep(BB[2],n)
  for(i in 2:n)
  {x[i]<-x[i-1]+m[i];y[i]<-y[i-1]+s[i];
   z[i]<-z[i-1]+r[i];t[i]<-t[i-1]+l[i]}

#En este segundo gráfico se observa la posible evolución de las distancias emocionales entre 

#la persona fallecida y la persona más próxima y otra más alejada

windows()
plot(A,B,pch=c(21,21,24),cex=c(1.5,0.8,0.8),
bg=c("red","blue","black"),
xlim=c(-5,5),ylim=c(-5,5),
xlab="EVOLUCIÓN DE LA DISTANCIA EMOCIONAL DURANTE EL DUELO")
points(x,y,pch=21,bg=c("blue"),cex=c(0.8),type='b')
points(z,t,pch=24,bg=c("black"),cex=c(0.5),type='b')
#FIN -------------------------