Schleife dsl

for (j in 1:m)
{
  for (i in 1:n)
  {
    if (DSL_50(j,i) > DSL_200(j,i) && habe_Asset == 0)
    {
      # Dann kaufe Asset
      wann_gekauft=i;
      habe_Asset=1;
      if (i>1)
      {
        Rendite_dsl(j,i)=Rendite_dsl(j,i-1);
      }
      else
      {
        Rendite_dsl(j,i)=0;
      }
    }
    else if (DSL_50(j,i) < DSL_200(j,i) && habe_Asset == 1)
    {
      # Dann verkaufe Asset
      Rendite_dsl(j,i)=Rendite_dsl(j,i-1)+S(j,i)-S(j,wann_gekauft); # bisherige Rendite + das was neu dazu kommt
      wann_gekauft=-1;
      habe_Asset=0;
      else
      {
        if (i>1)
        {
          Rendite_dsl(j,i)=Rendite_dsl(j,i-1);
        }
        else
        {
          Rendite_dsl(j,i)=0;
        }
      }
    }
  }
  if (habe_Asset ==1)
  {
    # Falls ich am ende Asset habe berechne Rendite die aktuell
    # drauf ist
    Rendite_dsl(j,i)=Rendite_dsl(j,i-1)+S(j,i)-S(j,wann_gekauft);#% Endrendite
  }
  wann_gekauft=-1;
  habe_Asset=0;
}