Displaying 2 results from an estimated 2 matches for "wipertim".
Did you mean:
wipertime
2017 Jun 08
2
Rainbow in loop
...essarily whole numbers so there's not a one to one correspondence
between times and index of time elements
sec.time<-seq(0,100)
distance<-c(rep(0,
10),rep(1,5),rep(2,20),rep(3,10),rep(4,20),rep(5,5),rep(6,31))
plot(sec.time,distance,type="l")
horntime<-c(7,23,52,67,81,90)
wipertime<-c(4,18,34,47,62,78,89)
calltime<-c(27,58,93)
abline(v=sec.time[horntime], col="red")
abline(v=sec.time[wipertime], col="blue")
abline(v=sec.time[calltime], col="green")
what I want, in this case as there are three events, is to have horn in red,
wiper in blue...
2017 Jun 08
0
Rainbow in loop
...one to one correspondence
> between times and index of time elements
>
> sec.time<-seq(0,100)
>
> distance<-c(rep(0,
> 10),rep(1,5),rep(2,20),rep(3,10),rep(4,20),rep(5,5),rep(6,31))
> plot(sec.time,distance,type="l")
> horntime<-c(7,23,52,67,81,90)
> wipertime<-c(4,18,34,47,62,78,89)
> calltime<-c(27,58,93)
>
> abline(v=sec.time[horntime], col="red")
> abline(v=sec.time[wipertime], col="blue")
> abline(v=sec.time[calltime], col="green")
>
> what I want, in this case as there are three events, is...