Добавление значений в матрицу

Question

Создана нулевая матрица «а». Попытка добавить значения к нулевой матрице 'a' через 3 для циклов, но они не добавляются. Они все еще показывают как ноль.

#Butterfly Spread
SP <- c(seq(60,140,5))
K1 = 80
K2 = 100
K3 = 120
N1=N2=N3=P1=P2=P3=1
a<- matrix(0,nrow=length(SP))

for(i in length(SP)){
  if(SP[i]> K1){
    a[i,1] = a[i,1] + (N1*(SP[i]-K1-P1))
  }else{
    a[i,1] = a[i,1] + (-N1*P1)
  }
}

for(i in length(SP)){
  if(SP[i]> K2){
    a[i,1] = a[i,1] + (N2*(-SP[i]+K2+P2))
  }else{
    a[i,1] = a[i,1] + (N2*P2)
  }
}

for(i in length(SP)){
  if(SP[i]> K3){
    a[i,1] = a[i,1] + (N3*(SP[i]-K3-P3))
  }else{
    a[i,1] = a[i,1] + (-N3*P3)
  }
}