sunspot.month            package:datasets            R Documentation

_M_o_n_t_h_l_y _S_u_n_s_p_o_t _D_a_t_a, _1_7_4_9-_1_9_9_7

_D_e_s_c_r_i_p_t_i_o_n:

     Monthly numbers of sunspots.

_U_s_a_g_e:

     sunspot.month

_F_o_r_m_a_t:

     The univariate time series 'sunspot.year' and 'sunspot.month'
     contain 289 and 2988 observations, respectively. The objects are
     of class '"ts"'.

_N_o_t_e:

     Prior to R 2.0.0 'sunspot.month' and 'sunspot.year' were copied to
     the user's workspace (or elsewhere) by 'data(sunspot)'. However,
     as package 'lattice' has a dataset 'sunspot' which can be
     retrieved by the same command, that usage has been removed.

_S_o_u_r_c_e:

     World Data Center-C1 For Sunspot Index Royal Observatory of
     Belgium, Av. Circulaire, 3, B-1180 BRUSSELS <URL:
     http://www.oma.be/KSB-ORB/SIDC/sidc_txt.html>

_S_e_e _A_l_s_o:

     'sunspot.month' is a longer version of 'sunspots' that runs until
     1988 rather than 1983.

_E_x_a_m_p_l_e_s:

     require(stats)
     ## Compare the monthly series 
     plot (sunspot.month, main = "sunspot.month [stats]", col = 2)
     lines(sunspots) # "very barely" see something

     ## Now look at the difference :
     all(tsp(sunspots)     [c(1,3)] ==
         tsp(sunspot.month)[c(1,3)]) ## Start & Periodicity are the same
     n1 <- length(sunspots)
     table(eq <- sunspots == sunspot.month[1:n1]) #>  132  are different !
     i <- which(!eq) 
     rug(time(eq)[i])
     s1 <- sunspots[i] ; s2 <- sunspot.month[i]
     cbind(i = i, sunspots = s1, ss.month = s2,
           perc.diff = round(100*2*abs(s1-s2)/(s1+s2), 1))

