#' score.MISSING
#'
#' Missing
#' @param data1
#' @param data2
#' @param ths1 threshold#1
#' @param ths2 threshold#2
#' @keywords score
#' @export
#' @examples
#' score.MISSING()
score.MISSING<-function(data1, #missing
data2,
ths1,ths2) {
if (length(ths1)==2) temp<-((data1>=ths1[1]) & (data1<ths1[2]))
if (length(ths1)==1) temp<-(data1>=ths1)
if (length(ths2)==2) temp2<-((data2>=ths2[1]) & (data2<ths2[2]))
if (length(ths2)==1) temp2<-(data2<ths2)
temp<-(data1>=ths1)
#BOOL<- apply( temp,2,"&")
BOOL<-Reduce(`&`, as.data.frame(t(temp)))
results<-BOOL & temp2
return(results)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.