data(exStudy)
exStudy <- addNote(exStudy, to='study', label='Note1',
note='My first note for this study')
exStudy <- addNote(exStudy, to='event', evNum=1:2, label='Note2',
note='A note for the first two events')
exStudy <- addNote(exStudy[[1]], to='event', label='Note3',
note='A second note for the first event')
exStudy
Run the code above in your browser using DataLab