现在有个画一个图的程序，要运行这个程序是什么步骤啊，
刚开始看，请帮帮忙
fig11 <- function(post=F){if(post)  {#ps.options (colors=ps.colors.rgb[c("blue", "magenta", "cyan",   #"green", "MediumBlue", "red", "black", "yellow", "blue"),])    postscript("Fig11.ps", width=4.4, height=3, horizontal=F, pointsize=8)  } else {if(dev.cur()==1) motif(); par(ask=T)} par(mfrow = c(1, 1),mar=c(5,3,3,1)+0.1) par(mex=0.5,csi=0.11) sunspot <- scan("../datasets/sunspots.dat",skip=1) plot(1700:1994,sunspot, xlab="time", ylab ="number of Sun spots",                 type="o", pch="*") #tsplot(sunspot, ylab="number of Sun spots",type='o',pch='*') title("Number of Sun spots")}