# NOT RUN {
rduinoConnect()
# set position of servo to position of potentiometer
off<-getDpin(4)
while (!off)
{
angle<-getApin(5)
angle<- 1.68 * angle + 575
setServo(9,angle)
off<-getDpin(4)
}
offServo()
rduinoClose()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab