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주째막힘