\name{fcn}
\alias{fcn}
\title{ A function to evaluate the loglikelihood function under constrained parameterization }
\description{
Given a vector of constrained parameter estimates and the data, the value of the loglikelihood function is returned}
\usage{
fcn(x, exp1, se1, exp2, se2)
}
\arguments{
  \item{x}{ a vector of constrained parameter estimates}
  \item{exp1}{ observed value for vector 1 }
  \item{se1}{ standard error estimate for vector 1}
  \item{exp2}{observed value for vector 2 }
  \item{se2}{ standard error estimate for vector 2}
}
\details{
 Often times in gene expression data application, exp1 and exp2 can be considered as gene expression for gene 1 and 2 and se1 and se2 are the respective standard error estimates
}
\value{
  the loglikelihood function evaluated at the given constrained parameter estimates and data
}
\references{  }
\author{ Beiying Ding}
\note{ loglikelihood function is specific to Measurement error model correlation here }
\seealso{  }
\examples{
 exp <- matrix(abs(rnorm(200,1000,20)),ncol=10)
 se <- matrix(abs(rnorm(200,50,5)),ncol=10)
 init <- c(0.5,0.5,mean(exp[1,]),mean(exp[2,]),var(exp[1,]),var(exp[2,]))
 fcn(init,exp[1,],se[1,],exp[2,],se[2,])
}
\keyword{ }
