contour.rsm.lm(rsm.object, vary, granularity = 50, ... )
ab.rsm <- rsm.lm(abrsm.df) contour(ab.rsm)sda.od.rsm <- rsm.lm(sda.df) contour(sda.od.rsm, levels = c(20,30,40,50,60), vary = list(Hinc.II = 'v', time = 'v')) contour(sda.od.rsm, vary = list(Hinc.II = 'v', Exo.Klenow = 'v', time = 3))