lagt till plota.R