Displaying 1 result from an estimated 1 matches for "wtmatrix".
Did you mean:
wmatrix
2010 Jul 22
1
function return
...e function( ) there have been arguments and I just call
for the value of the function. In this case there doesn't seem to be
a value for the function. Any help would be appreciated.
Thanks,
Dan
`panel3pt1.fn` <-
function(){
source("utilfns.Rd")
data<- read.table("wtmatrix.txt",header=T,na.strings=T)
elev<-data[,"elev"]
forest<-data[,"forest"]
elev<-scale(elev,center=TRUE)
forest<-scale(forest,center=TRUE)
pamat<-data[,c("y.1","y.2","y.3")]
z<-pamat[,1]
M<-length(z)
lik<-function(parms){...