heterosis {agricolae} | R Documentation |
Determination of heterosis, general combining ability (GCA) and specific combining ability in tuber dry matter, reducing sugars and agronomic characteristics in TPS families.
data(heterosis)
A data frame with 216 observations on the following 11 variables.
Place
Replication
Treatment
Factor
Control
progenie
progenitor
testigo
Female
Achirana
LT-8
MF-I
MF-II
Serrana
TPS-2
TPS-25
TPS-7
Male
TPS-13
TPS-67
TS-15
v1
v2
v3
v4
v5
The study was conducted in 3 environments, La Molina-PERU to 240 masl. during autumn-winter and spring, and in Huancayo-PERU 3180 masl., during summer. The experimental material consisted of 24 families half brother in the form of tubers derived from TPS, obtained crossing between 8 female and 3 male parents. Design used was randomized complete block with three repetitions. The experimental unit was 30 plants in two rows at a distance of 30cm between plants and 90 cm between rows. Variables evaluated were Yield, Tubers number, Dry matter and content and reducing sugars. The analysis was conducted line x tester. The control variety was Desiree.
International Potato Center(CIP). Lima-Peru. Data Kindly provided by of Rolando Cabello.
Tesis "Heterosis, habilidad combinatoria general y especifica para materia seca, azucares reductores y caracteres agronomicos en familias de tuberculos provenientes de semilla sexual de papa. Magister Scientiae Rodolfo Valdivia Lorente. Universidad Nacional Agraria La molina-Lima Peru, Escuela de Post Grado, Mejoramiento genetico de plantas, 2004". Poster: Congreso de la Sociedad Peruana de Genetica - Peru, 2008.
library(agricolae) data(heterosis) str(heterosis) site1<-subset(heterosis,heterosis[,1]==1) site2<-subset(heterosis,heterosis[,1]==2) site3<-subset(heterosis,heterosis[,1]==3) attach(site1) model1<-lineXtester(Replication, Female, Male, v1) DFe <- df.residual(model1) CMe <- deviance(model1)/DFe test1 <- HSD.test(v1, Factor,DFe,CMe) test2 <- HSD.test(v1, Treatment,DFe,CMe) detach(site1) attach(site2) model22<-lineXtester(Replication, Female, Male, v3) detach(site2) attach(site3) model3<-lineXtester(Replication, Female, Male, v4) detach(site3)