Re: [R] Plot for jump point

Try this: ratio<-seq(0,1,by=0.01) payoff<-NULL for (i in 1:length(ratio) ) { payoff1<-100*(ratio[i]>=0.7)+max(100*(1+(ratio[i]-1)*2),0)*(ratio[i]<0.7) payoff<-c(payoff,payoff1) } payoff[70] <- NA # force no line plot(ratio,payoff, xlab='ST/S0', ylab='Payoff',type='l') points(c(ratio[69], ratio[71

[R] Plot for jump point

Hi, My code is as the following, ratio<-seq(0,1,by=0.01) payoff<-NULL for (i in 1:length(ratio) ) { payoff1<-100*(ratio[i]>=0.7)+max(100*(1+(ratio[i]-1)*2),0)*(ratio[i]<0.7) payoff<-c(payoff,payoff1) } plot(ratio,payoff, xlab='ST/S0', ylab='Payoff',type='l') I have the discontinuous point at rat