I have a list like the following:
class(temp)
[1] list
names(temp)
[1] 1A24 1A57 1A5J 1A6X 1AB7 1AF8 1AFI 1AGG 1AH9 1AHL
[11] 1AJ3 1AJW 1AK7 1ALG 1AOY 1APF 1AUZ 1AZJ 1AZK
head(temp[[1]])
pr modelaa omega
1 1A24 MODEL_1 1_ALA 84.47
2 1A24 MODEL_1 2_GLN 63.06
3 1A24 MODEL_1
In order to make this question be clear, Here is my code
source(http://omega.psi.iastate.edu/data/nmr_19.R;)
class(temp)
[1] list
names(temp)
[1] 1A24 1A57 1A5J 1A6X 1AB7 1AF8 1AFI 1AGG 1AH9 1AHL
[11] 1AJ3 1AJW 1AK7 1ALG 1AOY 1APF 1AUZ 1AZJ 1AZK
head(temp[[1]])
pr modelaa
This should work on your data using the 'reshape' package;
nmr_19_model_aa-read.table(url(
http://omega.psi.iastate.edu/data/nmr_19_model_aa.txt;),sephttp://omega.psi.iastate.edu/data/nmr_19_model_aa.txt%22),sep
=)
name.col-c(pr,mod,mod_No,aa,aa_po,omega)
colnames(nmr_19_model_aa)-name.col