PD.1.2$rin12<-with(PD.1.2, paste(rin,rin_2,sep="")) table(PD.1.2$rin12) PD.1.2E<-subset(PD.1.2, rin12 %in% c("11","22")) # rinnaspindala juurdekasv PD.1.2E$ig5<-with(PD.1.2E, (d_k2^2 - d_k^2)*pi/4) hist(PD.1.2E$ig5) # M0: ig5 = a M0<-lm(ig5~1,PD.1.2E) summary(M0) # mean(PD.1.2E$ig5); sd(PD.1.2E$ig5) # R2: 1-(sd(PD.1.2E$ig5)/var(PD.1.2E$ig5))^2 # Md: ig5 = a + b*d Md<-lm(ig5~d_k,PD.1.2E) summary(Md) # Mh: ig5 = a + b*h Mh<-lm(ig5~h,PD.1.2E) summary(Mh) # Mhv: ig5 = a + b*hv Mhv<-lm(ig5~hv,PD.1.2E) summary(Mhv) # Mdh: ig5 = a + b1*d + b2*h Mdh<-lm(ig5~d_k+h,PD.1.2E) summary(Mdh) # Mdhv: ig5 = a + b1*d + b3*hv Mdhv<-lm(ig5~d_k+hv,PD.1.2E) summary(Mdhv) # Mhhv: ig5 = a + b2*h + b3*hv Mhhv<-lm(ig5~h+hv,PD.1.2E) summary(Mhhv) # Mdhhv: ig5 = a + b1*d + b2*h + b3*hv Mdhhv<-lm(ig5~d_k+h+hv,PD.1.2E) summary(Mdhhv) # diagnostka AIC(M0,Md,Mh,Mhv,Mdh,Mdhv,Mhhv,Mdhhv) library(car) vif(Mdhhv) vif(Mdhv) vif(Mdh)
G. Hepatovirus HAV (A-hepatiit) Ph: Potyviridae PVY (potato virus Y) ALPHA-SARNASED VIIRUSED: Ph. Togaviridae G. Alphavirus SIN (Sindbis virus) SFV (Semliki forest virus) G. Rubivirus RUB (Rubella virus) Selts: Nidovirales Ph. Coronaviridae IBV MHV (mouse hepatis virus) HcoV-SARS (SARS associated v) HcoV-229E (human coronavirus) Negatiivse RNA genoomiga viirused Selts: Mononegavirales Ph. Rhabdoviridae G. Vesiculovirus VSV (vesicular stomatitis virus) G. Lymavirus marutõve viirus Ph. Paramyxoviridae SubPh: Paramyxovirinae G. Respirovirus Sendai viirus
DQ#h#?#h?
;>#o_4#hz.C;i7RIT#=OX}o##wk{yucm#u-RD]
l#|
##M#A4~2zF#~O2XoM(yB93/R+>
#O;#
annaabi.ee 
