h(all2)
table(all$gen)
table(all2$gen)
str(dat)
str(all)
levels(all$rep)
str(var)
str(rep)
str(rdat)
which(rdat$rep=="R3 ")
which(rdat$rep=="R3 ")
q()
h(dat)
h(dat)
lib(kw)
import("data/mead.strawberry.txt")
mead.strawberry=import("data/mead.strawberry.txt")
h(mead.strawberry)
promptData(mead.strawberry, "man/mead.strawberry.Rd")
levelplot(yield~col*row, dat)
0
levelplot(yield~col*row, dat)
q()
lib(kw)
0
0
dir()
h(dgen)
h(denv)
str(vargas.durum1)
dir()
names(denv)
gsub(names(denv), "1","")
gsub
gsub("1","",names(denv))
h(denv)
str(dgen)
ls()
dgen$rep
str(dgen)
str(dgen)
str(dgen$gen)
unique(dgen$gen)
str(vargas.durum1)
h(gv)
evals
X2
as.matrix(X2)
X2
Y2
Y2
0
09
0
X2
names(vargas.durum1)
X2
m2
summary(m2)
loadings(m2)
Y2
Y1
Y1
acast(X1, gen~)
acast(X1, gen~variable)
acast(X1, gen~variable, mean)
0
str(X1)
is.matrix(X1)
m1
summary(m1)
loadings(m1)
scores(m1)
explvar(m1)
print(m1)
Y2
X2
loadings(m2)
sweep(Y1, rowMeans(Y1))
0
sweep(Y1, 1, rowMeans(Y1))
sweep(Y1, 1, rowMeans(Y1))
Y1
Y1
Y1
Y1
sum(Y1)
summary(m1)
m2
loadings(m2)
plot(m2)
loadings(m1)
0
0
Y0
Y0
loadings(m1)
loadings(m1)[,1,drop=FALSE]
loadings(m2)
q()
