analog R skript