This page explains how to simulate C13-HSQC spectum directly from BMRB database for a given entry or list of entries
library(RBMRB)
plt<-HSQC_13C(15060)
plt
plt<-HSQC_13C(c(17074,17076,17077))
plt
plt<-HSQC_13C(c(17074,17076,17077),type='line')
plt
plt<-HSQC_13C(c(17074,17076,17077),interactive = F)
plt
plt<-HSQC_13C(c(17074,17076,17077),type='line',interactive = F)
plt