cd \ymain\meas clear input year cites 1986 10 1987 41 1988 80 1989 123 1990 160 1991 217 1992 288 1993 343 1994 431 1995 508 1996 649 1997 753 1998 838 1999 807 2000 867 2001 896 2002 908 2003 1049 2004 965 2005 1198 2006 1178 2007 1250 2008 1413 2009 . end * total 16,261 so far, end November. sum cites disp 16261 - r(N)*r(mean) replace cites = 12*(16261 - r(N)*r(mean))/11 if year==2009 graph twoway scatter cites year, xlabel(1985, 1990, 1995, 2000, 2005, 2010) xtick(1986 (1) 2009) xtitle(Year) ylabel(0 (200)1400) ytitle(Citations) saving(cites2, replace)