write.table(file="covpar.out",temp[,4:5])
dim(beta)
beta[,1]
beta=beta%*%t(B)%*%t(A)
beta[1,]
beta[400,]
write.table(file="beta.out",beta)
beta=temp[,1:3]%*%t(B)%*%t(A)
dim(temp)
temp[1,]
beta=as.matrix(temp[,1:3])%*%t(B)%*%t(A)
beta[1,]
dim(beta)
write.table(file="beta.out",beta)
q()
library(spatstat)
plot.im
?par
gray
myplot.im(im(t(meany),xcol=5*c(1:200),yrow=5*c(1:100)),main="")
?plot.im
image.default
image
?image
)
plot.owin
?asp
?plot
plot.fast
plot.fasp
q()
y
