jcetable <- expand.grid(event=c('Wheezing at any time',
              'Wheezing and breathless',
              'Wheezing without a cold',
              'Waking with tightness in the chest',
              'Waking with shortness of breath',
              'Waking with an attack of cough',
              'Attack of asthma',
              'Use of medication'),
            method=c('Mail','Telephone'), sex=c('Male','Female'),
            what=c('Sensitivity','Specificity'))
jcetable$y <- c(756,618,706,422,356,578,289,333,
      576,421,789,273,273,212,212,212,
      613,763,713,403,377,541,290,226,
      613,684,632,290,387,613,258,129,
      656,597,438,780,732,679,938,919,
      714,600,494,877,850,703,963,987,
      755,420,480,794,779,647,956,941,
      766,423,500,833,833,604,955,986) / 10