for(x in 0:40){
  K<-c(abs((x-10)/log(x/10)));
  for(i in 1:K){
    t<-c(t+(10^(i)*exp(-10)-(x^(i))*exp(-1))/factorial(i)); 
  }
  y<-c(0.5*(1-t));
  
}
plot(x,y);

x에대한 y 간단한 함수를 만들려하는데 
문제가 K라는 변수에대해 for문을 돌리면 Na/NaN 으로 에러가떠서 못합니다..
그러면 K를 숫자(상수)로 넣어야하는건데 이건 상위 for에의해 항상가변적이라서 그렇게는 못해요.. 어떻게해야할까요? ㅠㅠ 2주째막힘