R window plotting added